- Add a patch to fix the result of xmlRoot because of changing

the layout in May 2014
- Specify LICENSE BSD -> BSD3CLAUSE

finance/R-cran-RFinanceYJ/Makefile

@@ -3,14 +3,14 @@
 
 PORTNAME=	RFinanceYJ
 PORTVERSION=	0.3.1
-PORTREVISION=	3
+PORTREVISION=	4
 CATEGORIES=	finance
 DISTNAME=	${PORTNAME}_${PORTVERSION}
 
 MAINTAINER=	tota@FreeBSD.org
 COMMENT=	Japanese stock market from Yahoo!-finance-Japan
 
-LICENSE=	BSD
+LICENSE=	BSD3CLAUSE
 
 RUN_DEPENDS=	R-cran-XML>0:${PORTSDIR}/textproc/R-cran-XML \
 		R-cran-xts>0:${PORTSDIR}/math/R-cran-xts

finance/R-cran-RFinanceYJ/files/patch-R-quoteStockTsData.R

@@ -0,0 +1,15 @@
+--- R/quoteStockTsData.R.orig	2013-08-13 00:05:58.000000000 +0900
++++ R/quoteStockTsData.R	2014-05-25 10:58:31.000000000 +0900
+@@ -57,10 +57,10 @@
+   
+   extractQuoteTable <- function(r,type){
+     if(type %in% c("fund","fx")){
+-      tbl <- r[[2]][[2]][[7]][[3]][[3]][[9]][[2]]
++      tbl <- r[[2]][[2]][[7]][[3]][[3]][[8]][[2]]
+     }
+     else{
+-      tbl <- r[[2]][[2]][[7]][[3]][[3]][[10]][[2]]
++      tbl <- r[[2]][[2]][[7]][[3]][[3]][[11]][[2]]
+     }
+     return(tbl)
+   }