R/clean_excel_data.R

In fdrennan/test: What the Package Does (One Line, Title Case)

#' clean_excel_data
#' @export
clean_excel_data <- function(file) {
  # browser()
  data <- file$datapath %>%
    read_excel(.,
      skip = 1,
      col_names = TRUE
    ) %>%
    mutate_if(is.numeric, as.character) %>%
    rename("Treatment" = `Treatment Group Name`)

  endpoint <- read_xlsx(
    path = file$datapath, range = "B1",
    col_names = FALSE
  ) %>% as.character()

  BLQ_value <- read_xlsx(
    path = file$datapath, range = "D1",
    col_names = FALSE
  ) %>% as.numeric()

  data <-
    data %>%
    mutate(
      type_snake = paste0("type_", snakecase::to_snake_case(Type)),
      treatment_snake = paste0("treatment_", snakecase::to_snake_case(Treatment))
    ) %>%
    mutate_all(.funs = ~ gsub("BLQ", BLQ_value, .))

  list(data = data, endpoint = endpoint, BLQ_value = BLQ_value)
}