tests/testthat/functions/dummy_class.R

In covidregionaldata: Subnational Data for COVID-19 Epidemiology

replacePublicR6Method <- function(r6Instance, fName, fun) {
  selfEnv <- environment(r6Instance[[fName]])$self
  properEnv <- environment(r6Instance[[fName]])
  unlockBinding(fName, selfEnv)
  selfEnv[[fName]] <- fun
  environment(selfEnv[[fName]]) <- properEnv
  lockBinding(fName, selfEnv)
}

dummy_class <- function(class) {
  class$download()
  class$data$raw <- purrr::map(class$data$raw, ~ dplyr::slice_tail(., n = 250))
  class$data$raw <- purrr::map(class$data$raw, ~ .[, 1:min(20, ncol(.))])
  class$clean()
  class$data$clean <- dplyr::slice_tail(class$data$clean, n = 250)
  class$process()
  replacePublicR6Method(class, "download", function() {
    return(invisible(NULL))
  })
  replacePublicR6Method(class, "clean", function() {
    return(invisible(NULL))
  })
  class$verbose <- FALSE
  return(class)
}