Commit 70006417 authored by jml's avatar jml
Browse files

typo on qa

parent d64335a6
Package: luftlyr
Type: Package
Version: 0.0.3
Version: 0.0.4
Authors@R: c(person("Jean-Marie", "Lepioufle", , "jml@nilu.no", role=c("aut","cre")),
person("NILU",role="cph"))
Title: luftlyr
......
......@@ -50,11 +50,17 @@ luftlyr_df_qa <- function(x,res){
col_names <- get_name_date_col(x$timeObj$precision())
target <- setdiff(names(res), c(col_names,"ST_ID","ST_NAME","CO_NAME"))
if (nrow(res)>0){
tmp <- friendlyts::ts_spread(df=res, col_date=col_names,
col_key=c("CO_NAME","ST_ID"),col_target=target,
precision=x$timeObj$precision(),tzone=x$timeObj$tzone(),
date_type="df_yymmdd_hhmmss")
tmp <- friendlyts::ts_spread(df=res, col_date=col_names,
col_key=c("CO_NAME","ST_ID"),col_target=target,
precision=x$timeObj$precision(),tzone=x$timeObj$tzone(),
date_type="df_yymmdd_hhmmss")
df <- friendlyts::check_date(tbl_fts=tmp, fromDate=x$timeObj$fromDateTime(),toDate=x$timeObj$toDateTime(),timeResolution=x$timeObj$timeResolution(), v=x$timeObj$v(), precision=x$timeObj$precision(), tzone=x$timeObj$tzone(),missingValues=NA,date_type="posixlt")
} else {
df <- friendlyts::friendlyts(varnames="empty",date_type=c("posixlt"),fromDate=x$timeObj$fromDateTime(),toDate=x$timeObj$toDateTime(),timeResolution=x$timeObj$timeResolution(),v=x$timeObj$v(),precision=x$timeObj$precision(),tzone=x$timeObj$tzone())
}
icol <- friendlyts::get_date_col(precision=x$timeObj$precision())
names(df) <- c(names(df)[icol],paste0("qa_",names(tmp)[-c(icol)]))
......
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