shinyMobile (version 0.5.0.9000)

updateF7Checkbox: Change the value of a checkbox input on the client

Description

Change the value of a checkbox input on the client

Usage

updateF7Checkbox(session, inputId, label = NULL, value = NULL)

Arguments

session

The session object passed to function given to the server.

inputId

The id of the input object.

label

The label to set for the input object.

value

The value to set for the input object.

Examples

# NOT RUN {
if (interactive()) {
 library(shiny)
 library(shinyMobile)

 ui <- f7Page(
   f7SingleLayout(
    navbar = f7Navbar(title = "updateF7CheckBox"),
    f7Slider(
     inputId = "controller",
     label = "Number of observations",
     max = 10,
     min = 0,
     value = 1,
     step = 1,
     scale = TRUE
    ),
    f7checkBox(
     inputId = "check",
     label = "Checkbox"
    )
   )
 )

 server <- function(input, output, session) {
   observe({
     # TRUE if input$controller is odd, FALSE if even.
     x_even <- input$controller %% 2 == 1

     if (x_even) {
      showNotification(
       id = "notif",
       paste("The slider is ", input$controller, "and the checkbox is", input$check),
       duration = NULL,
       type = "warning"
      )
     } else {
      removeNotification("notif")
     }

     updateF7Checkbox(session, "check", value = x_even)
   })
 }

shinyApp(ui, server)
}
# }