# NOT RUN {
library(shiny)
library(shinyChakraUI)
ui <- chakraPage(
br(),
chakraComponent(
"mycomponent",
chakraCheckboxWithChildren(
"cwc",
Tag$Checkbox(
"Parent checkbox"
),
Tag$Checkbox(
"Child checkbox 1"
),
Tag$Checkbox(
defaultChecked = TRUE,
"Child checkbox 2"
)
)
)
)
server <- function(input, output, session){
observe({
print(input[["cwc"]])
})
}
if(interactive()){
shinyApp(ui, server)
}
# }
Run the code above in your browser using DataLab