tools/update-shinytests-expected-maccheck-2.R

In oc1lojo/rccshiny: Shiny Apps for RCC

# Preparations
#
# 1. Run update-shinytests-expected-mactest.R
# 2. Run update-shinytests-expected-maccheck-1.R
# 3. Run Check Package in RStudio
# 4. Inspect differences between shinytest results when running tests during
#    R CMD check and expected shinytest results when testing the package in
#    RStudio (e.g. Ctrl+Shift+T, devtools::test, testthat::test_check or
#    testthat::test_dir) -- the differences should be minor

dirs_expected_maccheck <- stringr::str_subset(
  list.dirs("../rccShiny.Rcheck/tests/testthat/apps/"),
  pattern = "current"
)

for (dir_expected_maccheck in dirs_expected_maccheck) {
  for (file_expected_maccheck in list.files(dir_expected_maccheck, "*.json", full.names = TRUE)) {
    file.copy(
      from = file_expected_maccheck,
      to = stringr::str_replace(
        stringr::str_replace(
          file_expected_maccheck,
          pattern = "../rccShiny.Rcheck/tests/testthat/apps/",
          replacement = "tests/testthat/apps/"
        ),
        pattern = "current",
        replacement = "expected-maccheck"
      ),
      overwrite = TRUE
    )
  }
}