This is a modified version of the f7SingleLayout. It is intended to be used with tablets.
Arguments
- ...
Content.
- navbar
Slot for f7Navbar.
- sidebar
Slot for f7Panel. Particularly we expect the following code:
f7Panel(title = "Sidebar", side = "left", theme = "light", "Blabla", style = "reveal")
- toolbar
Slot for f7Toolbar.
- panel
Slot for f7Panel. Expect only a right panel, for instance:
f7Panel(title = "Left Panel", side = "right", theme = "light", "Blabla", style = "cover")
- appbar
Slot for f7Appbar.
Author
David Granjon, dgranjon@ymail.com
Examples
if(interactive()){
library(shiny)
library(shinyMobile)
shinyApp(
ui = f7Page(
title = "Split layout",
f7SplitLayout(
sidebar = f7Panel(
id = "sidebar",
title = "Sidebar",
side = "left",
theme = "dark",
f7PanelMenu(
id = "menu",
f7PanelItem(tabName = "tab1", title = "Tab 1", icon = f7Icon("envelope"), active = TRUE),
f7PanelItem(tabName = "tab2", title = "Tab 2", icon = f7Icon("house"))
),
uiOutput("selected_tab")
),
navbar = f7Navbar(
title = "Split 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
f7Items(
f7Item(
tabName = "tab1",
f7Slider("obs", "Number of observations:",
min = 0, max = 1000, value = 500
),
plotOutput("distPlot")
),
f7Item(tabName = "tab2", "Tab 2 content")
)
)
),
server = function(input, output) {
output$selected_tab <- renderUI({
HTML(paste0("Selected tab: ", strong(input$menu)))
})
output$distPlot <- renderPlot({
dist <- rnorm(input$obs)
hist(dist)
})
}
)
}