R/run-file.R

In sasquatch: Use 'SAS', R, and 'quarto' Together

#' Execute SAS file
#'
#' @description
#' Execute a SAS file and render html output or save output as html and log.
#'
#' @param input_path string; Path of SAS file to run.
#' @param output_path optional string; Path to save html output to (log file will be
#' named the same).
#' @param overwrite logical; Can output overwrite prior output?
#'
#' @return If `output_path` specified, `htmlwidget`. Else, no return value.
#'
#' @export
#'
#' @family code execution functions
#' @examplesIf interactive()
#' sas_connect()
#'
#' tempfile_sas_path <- tempfile(fileext = ".sas")
#' tempfile_html_path <- sub("\\.sas$", ".html", tempfile_sas_path)
#' tempfile_log_path <- sub("\\.sas$", ".log", tempfile_sas_path)
#' cat("PROC MEANS DATA = sashelp.cars;RUN;", file = tempfile_sas_path)
#' sas_run_file(tempfile_sas_path, tempfile_html_path)
#'
#' # clean up
#' unlink(tempfile_sas_path)
#' unlink(tempfile_html_path)
#' unlink(tempfile_log_path)
sas_run_file <- function(input_path, output_path, overwrite = FALSE) {
  check_session()
  check_file(input_path, x_name = "input_path")

  input <- read_file(input_path)
  if (missing(output_path)) {
    return(sas_run_string(input))
  } else {
    check_string(output_path)
    check_file_ext(output_path, "html")
    check_bool(overwrite)
  }

  output_dir <- dirname(output_path)
  output_file <- basename(output_path)
  output_file_name <- substr(output_file, 0, nchar(output_file) - 5)
  output_log_path <- file.path(output_dir, paste0(output_file_name, ".log"))

  if (!overwrite) {
    check_no_file(output_path)
    check_no_file(output_log_path)
  }

  results <- .sas_run_string(input)

  cat(paste(results$LST, collapse = "\n"), file = output_path)
  cat(paste(results$LOG, collapse = "\n"), file = output_log_path)

  invisible()
}

read_file <- function(path) {
  readChar(path, file.info(path)$size)
}