R/open-intro.R

In mattwarkentin/CHL5201: CHL5202 - Biostatistics

#' Introduction to RMarkdown
#' 
#' Opens an Introducion to R Markdown PDF for viewing.
#' 
#' @return Nothing, invisibly.
#' 
#' @examples 
#' \dontrun{intro_to_Rmd()}
#' 
#' @export

intro_to_Rmd <- function() {
  stopifnot(interactive())
  file = find_resource('assignment', 'documentation/intro-to-rmd.pdf')
  
  if (Sys.info()[1] %in% 'Windows') {
    system2('start', args = file, wait = FALSE)
  } else {
    system2('open', args = file, wait = FALSE)
  }
  invisible()
}