f7SingleLayout | R Documentation |
f7SingleLayout
provides a simple page layout.
f7SingleLayout(..., navbar, toolbar = NULL, panels = NULL, appbar = NULL)
... |
Content. |
navbar |
Slot for f7Navbar. |
toolbar |
Slot for f7Toolbar. |
panels |
Slot for f7Panel.
Wrap in |
appbar |
Slot for f7Appbar. |
David Granjon, dgranjon@ymail.com
if(interactive()){ library(shiny) library(shinyMobile) shinyApp( ui = f7Page( title = "Single layout", f7SingleLayout( navbar = f7Navbar( title = "Single Layout", hairline = FALSE, shadow = TRUE ), toolbar = f7Toolbar( position = "bottom", f7Link(label = "Link 1", href = "https://www.google.com"), f7Link(label = "Link 2", href = "https://www.google.com") ), # main content f7Shadow( intensity = 10, hover = TRUE, f7Card( title = "Card header", f7Slider("obs", "Number of observations", 0, 1000, 500), plotOutput("distPlot"), footer = tagList( f7Button(color = "blue", label = "My button", href = "https://www.google.com"), f7Badge("Badge", color = "green") ) ) ) ) ), server = function(input, output) { output$distPlot <- renderPlot({ dist <- rnorm(input$obs) hist(dist) }) } ) }
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.