diff --git a/R/auk-set-awk-path.r b/R/auk-set-awk-path.r index 3f5877a..09fdf34 100644 --- a/R/auk-set-awk-path.r +++ b/R/auk-set-awk-path.r @@ -58,4 +58,6 @@ auk_set_awk_path <- function(path, overwrite = FALSE) { write(paste0("AWK_PATH='", path, "'\n"), renv_path, append = TRUE) message(paste("AWK_PATH set to", path)) invisible(path) + # set AWK_PATH for this session, so user doesn't have to reload + Sys.setenv(AWK_PATH = path) } \ No newline at end of file diff --git a/R/auk-set-ebd-path.r b/R/auk-set-ebd-path.r index d4099c3..87cf7b3 100644 --- a/R/auk-set-ebd-path.r +++ b/R/auk-set-ebd-path.r @@ -13,7 +13,7 @@ #' @param overwrite logical; should the existing `EBD_PATH` be overwritten if it #' has already been set in .Renviron. #' -#' @return Edits .Renviron, then returns the AWK path invisibly. +#' @return Edits .Renviron, then returns the EBD path invisibly. #' @export #' @family paths #' @examples @@ -50,4 +50,6 @@ auk_set_ebd_path <- function(path, overwrite = FALSE) { write(paste0("EBD_PATH='", path, "'\n"), renv_path, append = TRUE) message(paste("EBD_PATH set to", path)) invisible(path) + # set EBD_PATH for this session, so user doesn't have to reload + Sys.setenv(EBD_PATH = path) }