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

typo

parent 3240308d
......@@ -35,7 +35,17 @@ luftlyr_df_data <- function(x,res){
#' luftlyr_df_qa()
#' }
luftlyr_df_qa <- function(x,res){
luftlyr_df_data(x=x,res=res)
tmp <- df_data(x=x,ugly_df=res)
names(tmp) <- c(names(tmp)[1],paste0("qa_",names(tmp)[-1]))
if (x$dateStructObj$COL_DATE) {
# ..
} else if (!x$dateStructObj$COL_DATE){
tmp <- timelyr::checkDate(df = tmp, timeObj=x$timeObj, missingValues = NA)
} else stop("COL_DATE in the right format")
return(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