diff --git a/R/course.R b/R/course.R index 8e7f0455c..22bead1e7 100644 --- a/R/course.R +++ b/R/course.R @@ -232,8 +232,10 @@ tidy_unzip <- function(zipfile) { unlink(zipfile) } - done("Opening ", value(target), " in the file manager") - utils::browseURL(normalizePath(target)) + if (!in_rstudio_server()) { + done("Opening ", value(target), " in the file manager") + utils::browseURL(normalizePath(target)) + } } invisible(target) diff --git a/R/rstudio.R b/R/rstudio.R index 26ae0b1e8..3df0cd29a 100644 --- a/R/rstudio.R +++ b/R/rstudio.R @@ -104,6 +104,13 @@ in_rstudio <- function(base_path = proj_get()) { normalizePath(proj) == normalizePath(base_path) } +in_rstudio_server <- function() { + if (!rstudioapi::isAvailable()) { + return(FALSE) + } + identical(rstudioapi::versionInfo()$mode, "server") +} + parse_rproj <- function(file) { lines <- as.list(readLines(file)) has_colon <- grepl(":", lines)