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

typo

parent 503ab910
......@@ -24,9 +24,6 @@ luftlyr_df_data <- function(x,res){
} else stop("COL_DATE in the right format")
return(tmp)
}
......@@ -49,15 +46,15 @@ df_data <- function(x,ugly_df){
tmp <- timelyr::checkDate(df=ugly_df[indice,],timeObj = x$timeObj, missingValues=NA)[,"TE_VALUE"]
df <- tmp
if (length(x$stationObj$station_id)>2) {
if (length(x$stationObj$station_id)>1) {
while (i_s< length(x$stationObj$station_id)) {
indice <- NULL
while ( (!length(indice)) && (i_s< length(x$stationObj$station_id))) {
indice <- which( (ugly_df["ST_ID"] == x$stationObj$station_id[i_s]) & (ugly_df["CO_NAME"] == x$elementObj$element_id[i_e]))
i_s <- i_s+1
indice <- which( (ugly_df["ST_ID"] == x$stationObj$station_id[i_s]) & (ugly_df["CO_NAME"] == x$elementObj$element_id[i_e]))
}
stations_id <- c(stations_id,x$stationObj$station_id[i_s])
tmp <- timelyr::checkDate(df=ugly_df[indice,],timeObj = x$timeObj, missingValues=NA,CONVERTZONE=FALSE,fromtzone="Europe/Oslo",totzone="UTC")[,"TE_VALUE"]
tmp <- timelyr::checkDate(df=ugly_df[indice,],timeObj = x$timeObj, missingValues=NA)[,"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