Description Usage Arguments Details Author(s) Examples
Add rows and columns.
1 2 3 4 5 6 7 8 9 10 11 | fullRow(...)
fullColumn(..., width = 6)
pageRow(...)
pageColumn(..., width = 6)
multiRow(...)
multiColumn(..., width = 6)
|
... |
any element. |
width |
Width of column. |
Wrap columns in row function, see examples.
John Coene, jcoenep@gmail.com
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 | if(interactive()){
library(shiny)
ui <- pagePiling(
center = TRUE,
sections.color = c("#f3f3f3", "#f4f4f4"),
pageSection(
h1("Grid")
),
pageSection(
h1("Columns"),
pageRow(
pageColumn(
h2("First Column"),
p("Resize your screen to see columns in action.")
),
pageColumn(
h2("Second Column"),
numericInput("obs", "observations", value = 20)
),
pageColumn(
h2("Thirs Column"),
plotOutput("plot")
)
)
)
)
server <- function(input, output){
output$plot <- renderPlot({
par(bg = "#f4f4f4")
hist(rnorm(input$obs, 10, 3))
})
}
shinyApp(ui, server)
}
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.