Commit d33fc8f4 authored by Jean-Marie Lepioufle's avatar Jean-Marie Lepioufle
Browse files

so far change of the time zone put to off

parent 303fffce
......@@ -36,7 +36,7 @@ df_data <- function(x,ugly_df){
indice <- which( (ugly_df["ST_ID"] == x$stationObj$station_id[i_s]) & (ugly_df["CO_NAME"] == x$elementObj$element_id[i_e]))
}
stations_id <- x$stationObj$station_id[i_s]
tmp <- timelyr::checkDate(df=ugly_df[indice,],timeObj = x$timeObj, missingValues=NA,CONVERTZONE=TRUE,fromtzone="Europe/Oslo",totzone="UTC")[,"TE_VALUE"]
tmp <- timelyr::checkDate(df=ugly_df[indice,],timeObj = x$timeObj, missingValues=NA,CONVERTZONE=FALSE,fromtzone="Europe/Oslo",totzone="UTC")[,"TE_VALUE"]
df <- tmp
if (length(x$stationObj$station_id)>2) {
......@@ -47,7 +47,7 @@ df_data <- function(x,ugly_df){
i_s <- i_s+1
}
stations_id <- c(stations_id,x$stationObj$station_id[i_s])
tmp <- timelyr::checkDate(df=ugly_df[indice,],timeObj = x$timeObj, missingValues=NA,CONVERTZONE=TRUE,fromtzone="Europe/Oslo",totzone="UTC")[,"TE_VALUE"]
tmp <- timelyr::checkDate(df=ugly_df[indice,],timeObj = x$timeObj, missingValues=NA,CONVERTZONE=FALSE,fromtzone="Europe/Oslo",totzone="UTC")[,"TE_VALUE"]
df <- cbind(df,tmp)
}
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment