R/test.R

In mrgsolve/systest: Tests sys Function

#' Test exec_internal
#'
#' @examples
#'
#' @examples
#'
#' sys_test_internal()
#'
#' @export
sys_test_internal <- function() {
  sys::exec_internal("date")
  # stop(Sys.which(sys:::rbin()))
  # sys::r_internal(
  #   args = c("CMD", "SHLIB", "-v"),
  #   error = FALSE
  # )
}

#' Run system2 example
#'
#' @examples
#'
#' sys_test_AAA_system2()
#'
#' @export
sys_test_AAA_system2 <- function() {
  out <- system2(sys:::rbin(), c("CMD", "SHLIB", "-v"))
  print(out)
}