From owner-svn-ports-head@FreeBSD.ORG Sat Jan 24 21:23:31 2015 Return-Path: Delivered-To: svn-ports-head@freebsd.org Received: from mx1.freebsd.org (mx1.freebsd.org [8.8.178.115]) (using TLSv1.2 with cipher AECDH-AES256-SHA (256/256 bits)) (No client certificate requested) by hub.freebsd.org (Postfix) with ESMTPS id B224B88B; Sat, 24 Jan 2015 21:23:31 +0000 (UTC) Received: from svn.freebsd.org (svn.freebsd.org [IPv6:2001:1900:2254:2068::e6a:0]) (using TLSv1.2 with cipher ECDHE-RSA-AES256-GCM-SHA384 (256/256 bits)) (Client did not present a certificate) by mx1.freebsd.org (Postfix) with ESMTPS id 92519212; Sat, 24 Jan 2015 21:23:31 +0000 (UTC) Received: from svn.freebsd.org ([127.0.1.70]) by svn.freebsd.org (8.14.9/8.14.9) with ESMTP id t0OLNV88004338; Sat, 24 Jan 2015 21:23:31 GMT (envelope-from tota@FreeBSD.org) Received: (from tota@localhost) by svn.freebsd.org (8.14.9/8.14.9/Submit) id t0OLNU2H004335; Sat, 24 Jan 2015 21:23:30 GMT (envelope-from tota@FreeBSD.org) Message-Id: <201501242123.t0OLNU2H004335@svn.freebsd.org> X-Authentication-Warning: svn.freebsd.org: tota set sender to tota@FreeBSD.org using -f From: TAKATSU Tomonari Date: Sat, 24 Jan 2015 21:23:30 +0000 (UTC) To: ports-committers@freebsd.org, svn-ports-all@freebsd.org, svn-ports-head@freebsd.org Subject: svn commit: r377828 - in head/finance/R-cran-RFinanceYJ: . files X-SVN-Group: ports-head MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit X-BeenThere: svn-ports-head@freebsd.org X-Mailman-Version: 2.1.18-1 Precedence: list List-Id: SVN commit messages for the ports tree for head List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , X-List-Received-Date: Sat, 24 Jan 2015 21:23:31 -0000 Author: tota Date: Sat Jan 24 21:23:30 2015 New Revision: 377828 URL: https://svnweb.freebsd.org/changeset/ports/377828 QAT: https://qat.redports.org/buildarchive/r377828/ Log: - Upstream rerolled tarball * Updated DESCRIPTION file - Update the patch to make fetchable more than 50 records because web page layout was changed in January 2015 Modified: head/finance/R-cran-RFinanceYJ/Makefile head/finance/R-cran-RFinanceYJ/distinfo head/finance/R-cran-RFinanceYJ/files/patch-R-quoteStockTsData.R Modified: head/finance/R-cran-RFinanceYJ/Makefile ============================================================================== --- head/finance/R-cran-RFinanceYJ/Makefile Sat Jan 24 21:21:22 2015 (r377827) +++ head/finance/R-cran-RFinanceYJ/Makefile Sat Jan 24 21:23:30 2015 (r377828) @@ -3,7 +3,7 @@ PORTNAME= RFinanceYJ PORTVERSION= 0.3.1 -PORTREVISION= 5 +PORTREVISION= 6 CATEGORIES= finance DISTNAME= ${PORTNAME}_${PORTVERSION} Modified: head/finance/R-cran-RFinanceYJ/distinfo ============================================================================== --- head/finance/R-cran-RFinanceYJ/distinfo Sat Jan 24 21:21:22 2015 (r377827) +++ head/finance/R-cran-RFinanceYJ/distinfo Sat Jan 24 21:23:30 2015 (r377828) @@ -1,2 +1,2 @@ -SHA256 (RFinanceYJ_0.3.1.tar.gz) = b8fc8b7e6dcf0683b84df985749f6ebe2674f2761f3c64c9532a387965c7c0a9 -SIZE (RFinanceYJ_0.3.1.tar.gz) = 3719 +SHA256 (RFinanceYJ_0.3.1.tar.gz) = a33eeb02a919490bdaa3b2c7721c03a122f8a5d2574f39d90757b00399fe1562 +SIZE (RFinanceYJ_0.3.1.tar.gz) = 3635 Modified: head/finance/R-cran-RFinanceYJ/files/patch-R-quoteStockTsData.R ============================================================================== --- head/finance/R-cran-RFinanceYJ/files/patch-R-quoteStockTsData.R Sat Jan 24 21:21:22 2015 (r377827) +++ head/finance/R-cran-RFinanceYJ/files/patch-R-quoteStockTsData.R Sat Jan 24 21:23:30 2015 (r377828) @@ -1,15 +1,70 @@ --- 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")){ ++++ R/quoteStockTsData.R 2015-01-24 20:34:35.000000000 +0900 +@@ -46,42 +46,33 @@ + #get time series data from Yahoo! Finance. + quoteTsData <- function(x,function.financialproduct,since,start.num,date.end,time.interval,type="stock"){ + r <- NULL +- result.num <- 51 + financial.data <- data.frame(NULL) +- #start <- (gsub("([0-9]{4,4})-([0-9]{2,2})-([0-9]{2,2})","&c=\\1&a=\\2&b=\\3",since)) +- #end <- (gsub("([0-9]{4,4})-([0-9]{2,2})-([0-9]{2,2})","&f=\\1&d=\\2&e=\\3",date.end)) + start <- (gsub("([0-9]{4,4})-([0-9]{2,2})-([0-9]{2,2})","&sy=\\1&sm=\\2&sd=\\3",since)) + end <- (gsub("([0-9]{4,4})-([0-9]{2,2})-([0-9]{2,2})","&ey=\\1&em=\\2&ed=\\3",date.end)) + + if(!any(time.interval==c('d','w','m'))) stop("Invalid time.interval value") +- +- 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{ +- } +- else{ - tbl <- r[[2]][[2]][[7]][[3]][[3]][[10]][[2]] -+ tbl <- r[[2]][[2]][[7]][[3]][[3]][[11]][[2]] +- } +- return(tbl) +- } +- +- while( result.num >= 51 ){ ++ while( 1 ){ + start.num <- start.num + 1 + quote.table <- NULL + quote.url <- paste('http://info.finance.yahoo.co.jp/history/?code=',x,start,end,'&p=',start.num,'&tm=',substr(time.interval,1,1),sep="") + +- try( r <- xmlRoot(htmlTreeParse(quote.url,error=xmlErrorCumulator(immediate=F))), TRUE) ++ try( r <- htmlParse(quote.url) ) + if( is.null(r) ) stop(paste("Can not access :", quote.url)) + +- #try( quote.table <- r[[2]][[1]][[1]][[16]][[1]][[1]][[1]][[4]][[1]][[1]][[1]], TRUE ) +- try( quote.table <- extractQuoteTable(r,type), TRUE ) ++ try( quote.table <- xpathApply(r,"//table")[[2]], TRUE ) ++ ++ quote.size <- xmlSize(quote.table) ++ ++ if( xmlSize(quote.table) <= 1 ){ ++ return(financial.data) ++ } + + if( is.null(quote.table) ){ + if( is.null(financial.data) ){ + stop(paste("Can not quote :", x)) + }else{ +- financial.data <- financial.data[order(financial.data$date),] +- return(financial.data) ++ financial.data <- financial.data[order(financial.data$date),] ++ return(financial.data) + } + } + +@@ -90,7 +81,6 @@ + financial.data <- rbind(financial.data,function.financialproduct(quote.table[[i]])) } - return(tbl) + +- result.num <- xmlSize(quote.table) + Sys.sleep(1) } + financial.data <- financial.data[order(financial.data$date),] +@@ -120,5 +110,3 @@ + return(startOfNextMonth-1) + } + +- +-