# NOT RUN {
if(interactive()){
library(shiny)
library(shinyMobile)
shiny::shinyApp(
ui = f7Page(
title = "My app",
f7SingleLayout(
navbar = f7Navbar(title = "f7Radio"),
f7Radio(
inputId = "radio",
label = "Choose a fruit:",
choices = c("banana", "apple", "peach"),
selected = "apple"
),
plotOutput("plot")
)
),
server = function(input, output) {
output$plot <- renderPlot({
if (input$radio == "apple") hist(mtcars[, "mpg"])
})
}
)
}
# }
Run the code above in your browser using DataLab