mirror of
https://github.com/rstudio/shiny.git
synced 2026-02-08 13:45:28 -05:00
20 lines
361 B
R
20 lines
361 B
R
library(shiny)
|
|
|
|
shinyUI(pageWithSidebar(
|
|
|
|
headerPanel(
|
|
h1("Shiny text")
|
|
),
|
|
|
|
sidebarPanel(
|
|
selectInput("dataset", "Choose a dataset:",
|
|
choices = c("rock", "pressure", "cars")),
|
|
numericInput("obs", "Number of observations to view:", 10)
|
|
),
|
|
|
|
mainPanel(
|
|
verbatimTextOutput("summary"),
|
|
tableOutput("view")
|
|
)
|
|
))
|