Readr::type_convert(setNames(dat, cols)) # more robust than nvert() #' is not in "%Y-%m-%d" format, then specify the format hereĭat <- read.table(text=dat, sep=",", header=TRUE, #' fmt if wx_date is not a Date object and the character string #' wx_date Date object or character string They changed the URL a bit and, while I think I could have just subbed out the bad URL for the new one, here's a modernized version of most of that code (I did 99% of the cleanup you did): #' station station name # stack elements of list into DF, filling missing columns with NA L] <- wunder_station_daily('EKAH', date.range) Print(paste0("Fetching data: ", date.range)) L <- vector(mode='list', length=length(date.range)) # 2) Get data for a range of dates -ĭate.range <- seq.Date(from=as.Date(''), to=as.Date(''), by='1 day') The_data$Time <- as.POSIXct(strptime(the_data$Time, format='%Y-%m-%d %H:%M:%S')) # convert Time column into properly encoded date time # remove the last column, created by trailing comma The_data <- read.csv(tC, as.is=TRUE, row.names=NULL, header=FALSE, skip=1)
TC <- textConnection(paste(the_data, collapse='\n')) The_header <- make.names(strsplit(the_header, ',')]) Wunder_station_daily tags on every other line What I want is to collect and arrange data from to from the weather station "EKAH" (Tirstrup, Aarhus Airport, Denmark). I used the script without issues last year, but now there is issues with the connection to the url.
0 kommentar(er)
