16 lines
481 B
R
16 lines
481 B
R
|
--- 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)
|
||
|
|
}
|