Don't try to browse local folder on RStudio server (#213)

Author: jennybc

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)

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)