R/setup.R

In tpemartin/econR2:

#' Setup your R environment
#'
#' @export
#'
#' @examples none
setup <- function(){
  assertthat::assert_that(
    check_installation_path(),
    msg="Please fix your R/RStudio installation path then do check_fix() again."
  )
  create_project_if_necessary() -> projectPath

  check_fix_libraryPath()
  fix_language2english()

  message("Don't forget to check your encoding setting.")

}
check_fix_language <- function(){
  flag_ok <- (stringr::str_detect(Sys.getenv("LANG"), "en") ||
    stringr::str_detect(Sys.getenv("LANGUAGE"), "en"))
  if(flag_ok) {
    fix_language2english()
  }
  message("Language is English now.")

}
fix_libPath <- function(){
  wd_rprofilepath = file.path(getwd(),".Rprofile")
  ud_rprofilepath = file.path("~",".Rprofile")
  if(isTRUE(Sys.getenv("R_PROFILE_USER") !="")){
    rp_filepath = Sys.getenv("R_PROFILE_USER")
  } else
    if(file.exists(wd_rprofilepath)){
      rp_filepath = wd_rprofilepath
    } else
      if(file.exists(ud_rprofilepath)){
        rp_filepath = ud_rprofilepath
      } else {
        rp_filepath = wd_rprofilepath
        file.create(rp_filepath)
      }
  xfun::read_utf8(
    rp_filepath
  )  -> lines

  rstudioapi::showDialog(
    "Setup package library path",
    "Choose directory to save packages to."
  )
  rstudioapi::selectDirectory(
    getwd()
  ) -> libPath
  c(lines,
  glue::glue('Sys.setenv("R_LIBS_USER"="{libPath}")'))|>
    xfun::write_utf8(rp_filepath)
}
#' Fix error message language to English
#'
#' @return none
#' @export
fix_language2english <- function(){
  if(!require("xfun")) install.packages("xfun")
  if(!require("stringr")) install.packages("stringr")
  wd_renvfilepath = file.path(getwd(),".Renviron")
  ud_renvfilepath = file.path("~",".Renviron")
  if(isTRUE(Sys.getenv("R_ENVIRON_USER") !="")){
    re_filepath = Sys.getenv("R_ENVIRON_USER")
  } else
    if(file.exists(wd_renvfilepath)){
      re_filepath = wd_renvfilepath
    } else
      if(file.exists(ud_renvfilepath)){
        re_filepath = ud_renvfilepath
      } else {
        re_filepath = wd_renvfilepath
        file.create(re_filepath)
      }
  xfun::read_utf8(
    re_filepath
  )  -> lines
  stringr::str_detect(lines, "LANGUAGE|LANG\\s*=") -> pick_same
  stringr::str_detect(lines, "^#") ->
    pick_comment
  which2comment <- which(pick_same & !pick_comment)
  paste("#", lines[which2comment]) -> lines[which2comment]
  c("LANGUAGE=en", lines) |>
    xfun::write_utf8(re_filepath)
  message("Done")
}

check_installation_path <- function(){
  currentPath = R.home()
  message("Current R path: ", currentPath)
  flag_nonASCII <- stringr::str_detect(R.home(), "[^\\x00-\\x7F]+")
  if(flag_nonASCII) warning("R should not be installed at a path with `non-English` characters.")

  flag_onedrive <- stringr::str_detect(R.home(), "OneDrive")
  if(flag_onedrive) {
    warning("R should not be installed under OneDrive") } else {
      message("No problem found.")
    }

  return(!flag_nonASCII && !flag_onedrive)
}

check_fix_libraryPath <- function(){
  flag_accessible <- file.access(.libPaths(),2)==0
  if(all(!flag_accessible)) fix_libPath()
  message("Lib path check fix done")
}