shinyMobile (version 0.5.0.9000)

f7ActionSheet: Create a framework7 action sheet

Description

Create a framework7 action sheet

Usage

f7ActionSheet(
  id,
  session = shiny::getDefaultReactiveDomain(),
  grid = FALSE,
  buttons,
  icons = NULL
)

Arguments

id

Unique id. This gives the state of the action sheet. input$id is TRUE when opened and inversely. Importantly, if the action sheet has never been opened, input$id is NULL.

session

Shiny session object.

grid

Whether to display buttons on a grid. Default to FALSE.

buttons

dataframe of buttons such as buttons <- data.frame( text = c('Button 1', 'Button 2'), color = c(NA, NA) ). The currently selection button can be accessed via input$button. The value is numeric. When the action sheet is closed, input$button is NULL. This is useful when you want to trigger events after a specific button click.

icons

A list of icons for buttons. Expect f7Icon.

Examples

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

 shiny::shinyApp(
   ui = f7Page(
     title = "Action sheet",
     f7SingleLayout(
       navbar = f7Navbar("Action sheet"),
       br(),
       f7Button(inputId = "go", "Show action sheet", color = "red")
     )
   ),
   server = function(input, output, session) {

     observe({
       print(list(
         sheetOpen = input$action1,
         button = input$button
       ))
     })

     observeEvent(input$button, {
       if (input$button == 1) {
         f7Notif(
           text = "You clicked on the first button",
           icon = f7Icon("bolt_fill"),
           title = "Notification",
           titleRightText = "now",
           session = session
         )
       } else if (input$button == 2) {
         f7Dialog(
           inputId = "test",
           title = "Click me to launch a Toast!",
           type = "confirm",
           text = "You clicked on the second button",
           session = session
         )
       }
     })

     observeEvent(input$test, {
       f7Toast(session, text = paste("Alert input is:", input$test))
     })

     observeEvent(input$go, {
       f7ActionSheet(
         grid = TRUE,
         id = "action1",
         icons = list(f7Icon("info"), f7Icon("lightbulb_fill")),
         buttons = data.frame(
           text = c('Notification', 'Dialog'),
           color = c(NA, NA)
         )
       )
     })
   }
 )
}
# }