2014-02-15 5 views
1

Привет, я пытаюсь написать цикл, который поможет мне получить данные с сайта с помощью цикла, но я застрял в том, как вставить date на URL. Например, я пытаюсь получить последние 5 дней данных ....Вытягивание цикла данных с использованием R

# Get Todays Date 
Friday <- Sys.Date() 

# Get Previous 5 days 
Thursday <- Friday - 1 
Wednesday <- Thursday -1 
Tuesday <- Wednesday -1 
Monday <- Tuesday -1 

#Make Them "readable" for Site` 
Friday <- format(Friday, "%Y%m%d") 
Thursday<- format(Thursday, "%Y%m%d") 
Wednesday<- format(Wednesday, "%Y%m%d") 
Tuesday<- format(Tuesday, "%Y%m%d") 
Monday<-format(Monday, "%Y%m%d") 

#I would like to set what stock I want to retrieve prior to looping 
#What Stock and exchange? 
GOOG.O 

#Get Data by Date 
FRIDAY <- read.delim(header=TRUE, stringsAsFactor=FALSE,"http://hopey.netfonds.no/tradedump.php?date=20140214&paper=GOOG.O&csv_format=txt") 
+0

кавычки является полезно для встроенного кода, но для фрагментов кода просто отступают все четыре пробела. Альтернативно выделите код и нажмите кнопку блока кода (который выглядит как {}) – Dason

+0

@dason Спасибо человеку! вид нового для этого еще ... – Jason

ответ

3

Если я понимаю, что вы пытаетесь сделать здесь, просто используйте paste или paste0:

stock.name <- "GOOG.O" 

FRIDAY <- read.delim(header=TRUE, stringsAsFactor=FALSE, 
      paste0("http://hopey.netfonds.no/tradedump.php?date=", Friday, 
        "&paper=", stock.name, 
        "&csv_format=txt") 
     ) 
+0

'paste0' - это короткая форма для' paste (..., sep = "") '. –

+0

@BrandonBertelsen +1, всегда узнайте что-то новое –

+0

@ JuliánUrbano Спасибо, человек, я его ценю ... экономит много времени! – Jason