improve examples

Author: lgnbhl

inst/examples/CustomComponentShinyInputStyled.R

@@ -32,7 +32,7 @@ SliderCustom <- function(inputId, ..., value = defaultValue) {
     module = "CustomComponents",
     name = "SliderCustom",
     props = shiny.react::asProps(inputId = inputId, ..., value = value),
-    deps = muiMaterial:::muiMaterialDependency()
+    deps = muiMaterial::muiMaterialDependency()
   )
 }
 

inst/examples/Fab.R

@@ -6,13 +6,13 @@ FloatingActionButtons <- Box(
   sx = list('& > :not(style)' = list(m = 1)),
   Fab(
     color = "primary",
-    'aria-label' = "add",
-    shiny::icon("add")
+    'aria-label' = "plus",
+    shiny::icon("plus")
   ),
   Fab(
     color = "secondary",
-    'aria-label' = "edit",
-    shiny::icon("edit")
+    'aria-label' = "pen",
+    shiny::icon("pen")
   ),
   Fab(
     variant = "extended",

inst/examples/Grid.R

@@ -1,6 +1,6 @@
 library(muiMaterial)
 
-muiMaterialPage(
+ui_Grid <- muiMaterialPage(
   CssBaseline(),
   Grid(
     container = TRUE,
@@ -23,3 +23,9 @@ muiMaterialPage(
     )
   )
 )
+
+server_Grid <- function(input, output, session) {}
+
+if (interactive()) {
+  shinyApp(ui = ui_Grid, server = server_Grid)
+}

inst/examples/Rating.R

@@ -24,9 +24,8 @@ HalfRating <- Stack(
 )
 
 ui_Rating <- muiMaterialPage(
-  CssBaseline(
-    HalfRating
-  )
+  CssBaseline(),
+  HalfRating
 )
 
 server_Rating <- function(input, output, session) {

inst/examples/Slider.R

@@ -8,7 +8,12 @@ DiscreteSliderLabel <- Box(
     inputId = "DiscreteSliderLabel",
     value = 80,
     step = 10,
-    marks = data.frame(value = c(0, 20, 37, 100), label = c("0°C", "20°C", "37°C", "100°C")),
+    marks = list(
+      list(value = 0, label = "0°C"),
+      list(value = 20, label = "20°C"),
+      list(value = 37, label = "37°C"),
+      list(value = 100, label = "100°C")
+    ),
     valueLabelDisplay = "on",
     'aria-label' = "Always visible"
   ),

inst/examples/Switch.R

@@ -2,12 +2,13 @@ library(muiMaterial)
 library(shiny)
 
 # https://mui.com/material-ui/react-switch/#label
-ui_Switch <- Box(
+ui_Switch <- muiMaterialPage(
+  CssBaseline(),
   FormControlLabel(
     control = Switch.shinyInput(
       inputId = "Switch1",
       value = TRUE
-    ), 
+    ),
     label = "Label"
   ),
   verbatimTextOutput("SwitchValue1")

inst/examples/TextField.R

@@ -14,13 +14,13 @@ ui_TextField <- muiMaterialPage(
         value = "Hello World",
         id = "outlined-basic",
         label = "Outlined",
-        variant="outlined"
+        variant = "outlined"
       ),
       TextField.shinyInput(
         inputId = "BasicTextFields2",
         id = "filled-basic",
         label = "Filled",
-        variant="filled"
+        variant = "filled"
       ),
       TextField.shinyInput(
         inputId = "BasicTextFields3",

inst/examples/Timeline.R

@@ -84,4 +84,6 @@ ui_Timeline <- muiMaterialPage(
 
 server_Timeline <- function(input, output, session) {}
 
-shinyApp(ui_Timeline, server_Timeline)
+if (interactive()) {
+  shinyApp(ui = ui_Timeline, server = server_Timeline)
+}

inst/examples/ToggleButtonGroup.R

@@ -2,7 +2,7 @@ library(muiMaterial)
 library(shiny)
 
 # https://mui.com/material-ui/react-toggle-button/#exclusive-selection
-ToggleButtonGroup <- ToggleButtonGroup.shinyInput(
+toggleButtonGroupWidget <- ToggleButtonGroup.shinyInput(
   inputId = "ToggleButtonGroup1",
   value = 1,
   ToggleButton.shinyInput(inputId = "ToggleButton1", value = 1, "One"),
@@ -13,19 +13,31 @@ ToggleButtonGroup <- ToggleButtonGroup.shinyInput(
 ui_ToggleButtonGroup <- CssBaseline(
   Box(
     sx = list(flexDirection = 'row', p = 1, gap = "500px"),
-    ToggleButtonGroup
+    toggleButtonGroupWidget
   )
 )
 
 server_ToggleButtonGroup <- function(input, output, session) {
   rv <- reactiveValues(value = 1)
 
-  observeEvent(input$ToggleButton1, { rv$value <- 1 })
-  observeEvent(input$ToggleButton2, { rv$value <- 2 })
-  observeEvent(input$ToggleButton3, { rv$value <- 3 })
-  observeEvent(c(input$ToggleButton1, input$ToggleButton2, input$ToggleButton3), {
-    updateToggleButtonGroup.shinyInput(inputId = "ToggleButtonGroup1", value = rv$value)
+  observeEvent(input$ToggleButton1, {
+    rv$value <- 1
   })
+  observeEvent(input$ToggleButton2, {
+    rv$value <- 2
+  })
+  observeEvent(input$ToggleButton3, {
+    rv$value <- 3
+  })
+  observeEvent(
+    c(input$ToggleButton1, input$ToggleButton2, input$ToggleButton3),
+    {
+      updateToggleButtonGroup.shinyInput(
+        inputId = "ToggleButtonGroup1",
+        value = rv$value
+      )
+    }
+  )
 }
 
 if (interactive()) {