R/install.R

In mrchypark/sdkman4r: R Wrapper of The Software Development Kit Manager

#' install
#'
#' @importFrom sys exec_wait
#' @export
install <- function(){
  dependency(get_os())
  sys::exec_wait("curl", args = c("-o","install.sh", "https://get.sdkman.io"))
  sys::exec_wait("bash", args = c("install.sh"))
  file.remove("install.sh")
}

#' @export
sdk_version <- function(){
  sys::exec_wait("bash", args = c("-c","source $HOME/.sdkman/bin/sdkman-init.sh && sdk version"))
}