From e227f2b172ae32c76a3636be4a2a47675918e31d Mon Sep 17 00:00:00 2001 From: Simon Date: Fri, 16 Aug 2024 12:39:36 +0200 Subject: [PATCH] minor edit ot get statsion data --- R/getStationData.R | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/R/getStationData.R b/R/getStationData.R index 548bf53..1da3d88 100644 --- a/R/getStationData.R +++ b/R/getStationData.R @@ -23,13 +23,15 @@ getStationData <- function(start_date, end_date, station_id,headers = headers,dp response <- GET(url_with_params, headers) while(response$status_code == 204){ response <- GET(url_with_params, headers) - print("file not finisehed") + print("file not finished yet, wait 5s") Sys.sleep(5) } if(response$status_code == 201){ return(read.csv(text=content(response,as="text")[[1]],sep=";",header=T,dec = ",")) } } - stop(sprintf("Failed to retrieve data from the API. Status code: %s", response$status_code)) + print(sprintf("Failed to retrieve data from the API. Status code: %s", response$status_code)) + return(NULL) } +