Don't get/set static paths for stopped app

rstudio · Nov 30, 2018 · 7bf3d73 · 7bf3d73
1 parent bc7a061
commit 7bf3d73
Showing 1 changed file with 10 additions and 0 deletions.
diff --git a/R/server.R b/R/server.R
@@ -59,21 +59,31 @@ Server <- R6Class("Server",
       private$running
     },
     getStaticPaths = function() {
+      if (!private$running) return(NULL)
+
       getStaticPaths_(private$handle)
     },
     setStaticPath = function(..., .list = NULL) {
+      if (!private$running) return(invisible())
+
       paths <- c(list(...), .list)
       paths <- normalizeStaticPaths(paths)
       invisible(setStaticPaths_(private$handle, paths))
     },
     removeStaticPath = function(path) {
+      if (!private$running) return(invisible())
+
       path <- as.character(path)
       invisible(removeStaticPaths_(private$handle, path))
     },
     getStaticPathOptions = function() {
+      if (!private$running) return(NULL)
+
       getStaticPathOptions_(private$handle)
     },
     setStaticPathOption = function(..., .list = NULL) {
+      if (!private$running) return(invisible())
+
       opts <- c(list(...), .list)
       opts <- drop_duplicate_names(opts)
       opts <- normalizeStaticPathOptions(opts)