R/rstudio.R

In patchDVI: Package to Patch '.dvi' or '.synctex' Files

knitInRStudio <- function(SweaveFiles = NULL,
                          force = FALSE, verbose = FALSE) {
  inRStudio <- Sys.getenv("RSTUDIO") == "1"
  if (inRStudio) {
    .childOutput <- character() # Just in case...
    knitr::knit_hooks$set(childOutput = function(before, options, envir)   {
      if (!before) {
        cat(.childOutput, sep = "\n")
      }
    })

    if (missing(SweaveFiles) && exists(".SweaveFiles", envir=globalenv(), inherits = FALSE))
      SweaveFiles <- get(".SweaveFiles", envir=globalenv(), inherits = FALSE)
    if (length(SweaveFiles))
      .childOutput <- system2("Rscript",
                              paste("-e \"patchDVI::SweaveAll(c(",
                                    paste0("'", SweaveFiles, "'", collapse = ","),
                                    "), weave = knitr::knit, force =", force, ", verbose = ", verbose, ")\""),
                              stdout = TRUE, stderr = TRUE)
  }
}