From 250b49ea38588f2d65808137bd9862bad4cf20a5 Mon Sep 17 00:00:00 2001
From: Jenny Bryan <jenny.f.bryan@gmail.com>
Date: Tue, 16 Jan 2018 13:30:34 -0800
Subject: [PATCH] Don't try to browse local folder on RStudio server

---
 R/course.R  | 6 ++++--
 R/rstudio.R | 7 +++++++
 2 files changed, 11 insertions(+), 2 deletions(-)

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)