R/read_cases_data.R

In sutsabs/rwLoT: Line of Therapy Package

#' @export
cases_line_name <- function(input_indication) {
  df <-
    sapply(read.csv(system.file(
      paste0(
        "extdata/reference/",
        input_indication,
        "/cases_line_name.csv",
        sep = ""
      ),
      package = "rwLoT"
    ), as.is = TRUE), tolower)
  invisible(df)
}

#' @export
cases_line_substitutions <- function(input_indication) {
  df <-
    as.data.frame(read.csv(system.file(
      paste0(
        "extdata/reference/",
        input_indication,
        "/cases_substitutions.csv",
        sep = ""
      ),
      package = "rwLoT"
    ), as.is = TRUE)) %>% mutate_all(.funs = toupper)
  invisible(df)
}

#' @export
cases_line_additions <- function(input_indication) {
  df <-
    as.data.frame(read.csv(system.file(
      paste0(
        "extdata/reference/",
        input_indication,
        "/cases_additions.csv",
        sep = ""
      ),
      package = "rwLoT"
    ), as.is = TRUE)) %>% mutate_all(.funs = toupper)
}

#' @export
cases_line_maintenance <- function(input_indication) {
  df <-
    as.data.frame(read.csv(system.file(
      paste0(
        "extdata/reference/",
        input_indication,
        "/cases_maintenance.csv",
        sep = ""
      ),
      package = "rwLoT"
    ), as.is = TRUE)) %>% mutate_all(.funs = toupper)
}

#' @export
cases_episode_gap <- function(input_indication) {
  df <-
    as.data.frame(read.csv(system.file(
      paste0(
        "extdata/reference/",
        input_indication,
        "/cases_episode_gap.csv",
        sep = ""
      ),
      package = "rwLoT"
    ), as.is = TRUE)) %>% mutate_all(.funs = toupper)
}