luftlyr_df.R

#' luftlyr_df_data

#' luftlyr_df_data
#' @param x request object
#' @param res resulted data.frame
#' @keywords luftlyr
#' @export
#' @examples
#' \dontrun{
#' luftlyr_df_data()
#' }
luftlyr_df_data <- 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"))

  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")

  if (x$dateStructObj$COL_DATE) {
     stop("to be done")
  }
  return(df)

}

#' luftlyr_df_qa

#' luftlyr_df_qa
#' @param x request object
#' @param res resulted data.frame
#' @keywords luftlyr
#' @export
#' @examples
#' \dontrun{
#' luftlyr_df_qa()
#' }
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"))

  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")

  icol <- friendlyts::get_date_col(precision=x$timeObj$precision())
  names(df) <- c(names(df)[icol],paste0("qa_",names(tmp)[-c(icol)]))

  if (x$dateStructObj$COL_DATE) {
     stop("to be done")
  }
  return(df)
}

get_name_date_col <- function(precision){
  res <- switch(precision,
      "yearly"  = "YEAR_UTC",
      "monthly" = c("YEAR_UTC","MONTH_UTC"),
      "daily"   = c("YEAR_UTC","MONTH_UTC","DAY_UTC"),
      "hourly"  = c("YEAR_UTC","MONTH_UTC","DAY_UTC","HOUR_UTC"),
      "minute"  = c("YEAR_UTC","MONTH_UTC","DAY_UTC","HOUR_UTC","MINUTE_UTC"),
      "second"  = c("YEAR_UTC","MONTH_UTC","DAY_UTC","HOUR_UTC","MINUTE_UTC","SECOND_UTC"),
      stop("precision not recognized"))

  return(res)
}