mirror of
https://github.com/rstudio/shiny.git
synced 2026-02-17 18:11:36 -05:00
24 lines
452 B
Plaintext
24 lines
452 B
Plaintext
# Subapp test
|
|
|
|
This is an R Markdown document that contains several embedded Shiny apps.
|
|
|
|
```{r}
|
|
library(shiny)
|
|
shinyAppDir(
|
|
system.file("examples/01_hello", package="shiny"),
|
|
options=list(
|
|
width="100%", height=250
|
|
)
|
|
)
|
|
shinyAppObj(
|
|
ui = fluidPage(
|
|
numericInput("n", "n", 1),
|
|
plotOutput("plot")
|
|
),
|
|
server = function(input, output) {
|
|
output$plot <- renderPlot( plot(head(cars, input$n)) )
|
|
},
|
|
options=list(width=450)
|
|
)
|
|
```
|