fix: Set scalar defaults in sidebar_open_on()

Fixes #1081 We manually provide values to `rlang::arg_match()`, so vector input values throw
rstudio · Jul 11, 2024 · b67005a · b67005a
1 parent 1f4ad41
commit b67005a
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/sidebar.R b/R/sidebar.R
@@ -266,8 +266,8 @@ as_sidebar_open_on <- function(open) {
 #'   or `"always"` (or `NA`). `mobile` also accepts `"always-above"`.
 #' @noRd
 sidebar_open_on <- function(
-  desktop = c("open", "closed", "always"),
-  mobile = c("closed", "open", "always")
+  desktop = "open",
+  mobile = "closed"
 ) {
   desktop <- desktop %||% "open"
   mobile <- mobile %||% "closed"