R/GenerateStack.R

In raubreywhite/dashboards_normomo:

#' GenerateStack
#' @param folder_clean a
#' @param folder_results a
#' @param f a
#' @param dateDataMinusOneWeek a
#' @param dateData a
#' @import data.table
#' @export GenerateStack
GenerateStack <- function(
                          folder_clean = DashboardFolder("data_clean"),
                          folder_results = DashboardFolder("results"),
                          f,
                          dateDataMinusOneWeek,
                          dateData) {
  stack <- data.frame(fylke = c(0, normomo::CONFIG$VALID_FYLKE))

  stack$runName <- c(
    "norway",
    sprintf("county%s", formatC(normomo::CONFIG$VALID_FYLKE, width = 2, flag = 0))
  )

  stack$data_clean_name <- paste0(
    folder_clean, c(
      sprintf("data_%s.RDS", f),
      sprintf("fylke_%s_%s.RDS", normomo::CONFIG$VALID_FYLKE, f)
    )
  )

  stack$plotGraphs <- c(TRUE, rep(FALSE, length(normomo::CONFIG$VALID_FYLKE)))
  stack$MOMOFolderInput <- folder_clean

  stack$MOMOFolderResults <- file.path(
    folder_results,
    fhi::isoyearweek(dateDataMinusOneWeek),
    "MOMO"
  )

  stack$SykdomspulsFolderResultsData <- file.path(
    "/data_raw/sykdomspuls/normomo",
    paste0(stack$runName, ".RDS")
  )

  stack$MOMOFolderResultsData <- file.path(
    folder_results,
    fhi::isoyearweek(dateDataMinusOneWeek),
    "data",
    paste0(stack$runName, ".RDS")
  )

  stack$MOMOFolderResultsGraphsStatus <- file.path(
    folder_results,
    fhi::isoyearweek(dateDataMinusOneWeek),
    "graphs_status"
  )

  stack$MOMOFolderResultsGraphsStatistics <- file.path(
    folder_results,
    fhi::isoyearweek(dateDataMinusOneWeek),
    "graphs_statistics"
  )

  stack$MOMOYsum <- fhi::isoyear_n(dateDataMinusOneWeek)
  stack$dateDataMinusOneWeek <- dateDataMinusOneWeek
  stack$dateData <- dateData
  # stack$dateData[[1]] <- c(dateData-seq(4*52*7,0,by=-7))
  # stack$dateData[[1]] <- c(dateData-seq(4*52*7,0,by=-7))
  # for(i in 1:nrow(stack)) stack$dateData[[i]] <- dateData

  tmp <- list(
    list(
      "0to4" = "age >= 0 & age <=4",
      "5to14" = "age >= 5 & age <=14",
      "15to64" = "age >= 15 & age <=64",
      "65P" = "age >= 65 | is.na(age)",
      "Total" = "age >= 0 | is.na(age)"
    )
  )
  for (i in normomo::CONFIG$VALID_FYLKE) {
    tmp[[sprintf("Fylke_%s", i)]] <- list(
      "Total" = "age >= 0 | is.na(age)"
    )
  }
  stack$MOMOgroups <- tmp

  tmp <- list(
    c(
      "0to4" = "LINE",
      "5to14" = "LINE",
      "15to64" = "LINE_SIN",
      "65P" = "LINE_SIN",
      "Total" = "LINE_SIN"
    )
  )
  for (i in normomo::CONFIG$VALID_FYLKE) {
    tmp[[sprintf("Fylke_%s", i)]] <- c(
      "Total" = "LINE_SIN"
    )
  }
  stack$MOMOmodels <- tmp

  stackStatistics <- stack[2, ]
  stackStatistics$runName <- "Norway"
  res <- vector("list", length = length(CONFIG$HISTORICAL_DELAY_VERSIONS))
  for (i in 1:length(res)) {
    df1 <- stackStatistics[rep(row.names(stackStatistics), length(CONFIG$HISTORICAL_ANALYSES)), ]
    df1$dateData <- as.Date(df1$dateData - CONFIG$HISTORICAL_ANALYSES, origin = "1970-01-01")
    df1$delayVersion <- CONFIG$HISTORICAL_DELAY_VERSIONS[i]
    res[[i]] <- df1
  }
  res <- rbindlist(res)

  return(list(
    stackAnalyses = stack,
    stackStatistics = res
  ))
}