R/store_prefs.R

In charliejhadley/rstudioprefswitcher: What the Package Does (One Line, Title Case)

#' Store current preferences
#' @export
prefs_save <- function(preferences_name = "personal") {

  rstudio_prefs_json <-
    jsonlite::read_json(tolower(usethis:::rstudio_config_path("rstudio-prefs.json")),
                        simplifyVector = TRUE)

  dir.create(
    file.path(tolower(rappdirs::user_config_dir("rstudioprefswitcher"))),
    recursive = TRUE,
    showWarnings = FALSE
  )

  jsonlite::write_json(
    rstudio_prefs_json,
    file.path(
      tolower(rappdirs::user_config_dir("rstudioprefswitcher", expand = TRUE)),
      paste0(preferences_name, "_rstudio-prefs.json")
    ),
    auto_unbox = TRUE,
    pretty = TRUE
  )
}