allow color to be passed as name

RinteRface · Apr 28, 2024 · db8d0c7 · db8d0c7
1 parent 519466e
commit db8d0c7
Show file tree

Hide file tree

Showing 2 changed files with 11 additions and 2 deletions.
diff --git a/R/update-app.R b/R/update-app.R
@@ -15,6 +15,14 @@
 #'
 #' @export
 updateF7App <- function(options, session = shiny::getDefaultReactiveDomain()) {
+
+  # if color in options, convert color to hex
+  if (!is.null(options$color)) {
+    if (options$color %in% getF7Colors()) {
+      options$color <- colorToHex(options$color)
+    }
+  }
+
   sendCustomMessage("update-app", options, session)
 }
 

diff --git a/vignettes/update-app.Rmd b/vignettes/update-app.Rmd
@@ -143,9 +143,10 @@ shinyApp(
   }
 )
 ```
-TODO: shinylive example
 
-Note that the given `color` should be a valid hexadecimal color. You can call `updateF7App` multiple times, and the app will update the given configuration settings accordingly.
+Note that the color can both be a color of `getF7Colors()` (like "primary", "pink" or  "teal") or a hexadecimal color. You can call `updateF7App` multiple times, and the app will update the given configuration settings accordingly.
+
+TODO: shinylive example
 
 ### Updating component configuration