Включить два кратных при очистке данных - PullRequest
Новая
       3

Включить два кратных при очистке данных

1 голос
/ 23 января 2020

Wi sh для очистки данных о погоде от

https://www.wetterzentrale.de/weatherdata.php?station=260&jaar=2019&maand=1&dag=1

С 2019-01-01 до сегодняшнего дня, но я не знаю, как написать код, который заменяет jaar = 2019 (т. е. year = 2019), maand = 1 (т. е. month = 1) и dag = 1 (т. е. day = 1) на нужные дни.

Я пытался работать с lapply как: 

    years <- c("2019", "2020")
    urls <- rbindlist(lapply(years, function(x) {
       url <- paste(https://www.wetterzentrale.de/weatherdata.php?station=260&jaar=2019&maand=1&dag=1, sep = "")
       data.frame(url)
    } ))

Следовательно, это дает только URL-адреса на 2019 и 2020 годы. Есть ли способ включить месяцы и дни?

1 Ответ

1 голос
/ 23 января 2020 
library(lubridate)

allYourDates <- seq(ymd(20190101), Sys.Date(), by = "days")
urls <- paste("https://www.wetterzentrale.de/weatherdata.php?station=260&jaar=", year(allYourDates)
              , "&maand=", month(allYourDates)
              , "&dag=", day(allYourDates)
              , sep = "")
...