Fix display of empty options

rstudio · Dec 3, 2018 · bd77f36 · bd77f36
1 parent 7bf3d73
commit bd77f36
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/R/static_paths.R b/R/static_paths.R
@@ -129,14 +129,14 @@ print.staticPathOptions <- function(x, ...) {
 format.staticPathOptions <- function(x, ...) {
   paste0(
     "<staticPathOptions>\n",
-    format_opts(x)
+    format_opts(x, format_empty = "<none>")
   )
 }
 
-format_opts <- function(x) {
+format_opts <- function(x, format_empty = "<inherit>") {
   format_option <- function(opt) {
     if (is.null(opt) || length(opt) == 0) {
-      "<none>"
+      format_empty
 
     } else if (!is.null(names(opt))) {
       # Named character vector