Warning: file_get_contents(/data/phpspider/zhask/data//catemap/4/r/71.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
R 刮取数据时包含两个倍数_R_Web Scraping - Fatal编程技术网
Fatal编程技术网
  • r/
  • R 刮取数据时包含两个倍数

R 刮取数据时包含两个倍数

r web-scraping

R 刮取数据时包含两个倍数,r,web-scraping,R,Web Scraping,希望从中获取天气数据 从2019-01-01一直到今天，我还不知道如何编写代码，将jaar=2019（即年份=2019）、maand=1（即月份=1）和dag=1（即日期=1）更改为所需的天数 我试着与lapply合作： years <- c("2019", "2020") urls <- rbindlist(lapply(years, function(x) { url <- paste(https://www.wetterzentrale.d

希望从中获取天气数据

从2019-01-01一直到今天，我还不知道如何编写代码，将jaar=2019（即年份=2019）、maand=1（即月份=1）和dag=1（即日期=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)
    } ))

years
library（lubridate）
所有的日期

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 = "")