f7CheckboxGroup {shinyMobile} | R Documentation |
Framework7 checkbox group
Description
f7CheckboxGroup
creates a checkbox group input
Custom choice item for f7CheckboxGroup.
Usage
f7CheckboxGroup(
inputId,
label,
choices = NULL,
selected = NULL,
position = c("left", "right"),
style = list(inset = FALSE, outline = FALSE, dividers = FALSE, strong = FALSE)
)
f7CheckboxChoice(..., title, subtitle = NULL, after = NULL)
Arguments
inputId |
Input id. |
label |
Input label |
choices |
List of choices. Can be a simple vector or named list or a list of f7RadioChoice or f7CheckboxChoice |
selected |
Selected element. NULL by default. If you pass f7RadioChoice or f7CheckboxChoice in choices, selected must be a numeric value corresponding to the index of the element to select. |
position |
Check mark side.
|
style |
Input style. Inherit from f7List options such as outline, inset, strong and dividers. |
... |
Choice content. Text is striped if too long. |
title |
Item title. |
subtitle |
Item subtitle. |
after |
Display at the right of title. |
Examples
library(shiny)
library(shinyMobile)
app <- shinyApp(
ui = f7Page(
title = "My app",
f7SingleLayout(
navbar = f7Navbar(title = "f7CheckboxGroup"),
f7BlockTitle("Simple choices", size = "large"),
f7CheckboxGroup(
inputId = "checkboxgroup",
label = "Choose a variable:",
choices = colnames(mtcars)[-1],
selected = "disp",
position = "right"
),
tableOutput("data"),
f7BlockTitle("Custom choices: f7CheckboxChoice", size = "large"),
f7CheckboxGroup(
inputId = "checkboxgroup2",
label = "Custom choices",
choices = list(
f7CheckboxChoice(
"Lorem ipsum dolor sit amet, consectetur adipiscing elit.
Nulla sagittis tellus ut turpis condimentum,
ut dignissim lacus tincidunt",
title = "Choice 1",
subtitle = "David",
after = "March 16, 2024"
),
f7CheckboxChoice(
"Cras dolor metus, ultrices condimentum sodales sit
amet, pharetra sodales eros. Phasellus vel felis tellus.
Mauris rutrum ligula nec dapibus feugiat",
title = "Choice 2",
subtitle = "Veerle",
after = "March 17, 2024"
)
),
selected = 2,
style = list(
inset = TRUE,
outline = TRUE,
dividers = TRUE,
strong = TRUE
)
),
textOutput("selected")
)
),
server = function(input, output) {
output$data <- renderTable(
{
mtcars[, c("mpg", input$checkboxgroup), drop = FALSE]
},
rownames = TRUE
)
output$selected <- renderText(input$checkboxgroup2)
}
)
if (interactive() || identical(Sys.getenv("TESTTHAT"), "true")) app
[Package shinyMobile version 2.0.0 Index]