Actualizar el diseño (UI)

Puedes usar las funciones de layout que ofrece Shiny para organizar los elementos de la interfaz. En este caso, queremos usar un sidebarLayout(), donde la entrada va dentro de un sidebarPanel() y la salida va dentro de un mainPanel(). Puedes usar esta plantilla para actualizar el diseño de tu app.

sidebarLayout(
  sidebarPanel(p("This goes into the sidebar on the left")),
  mainPanel(p("This goes into the panel on the right"))
)

Hemos precargado los paquetes shiny y ggplot2 para ti. Ten en cuenta que p('hello') devuelve un párrafo HTML con el texto "hello".

Este ejercicio forma parte del curso

Creación de aplicaciones web con Shiny en R

Ver curso

Instrucciones del ejercicio

Coloca textInput() dentro de un sidebarPanel().
Coloca plotOutput() dentro de un mainPanel().
Coloca ambos paneles dentro de un diseño con barra lateral: sidebarLayout(___ , ___).

Ejercicio interactivo práctico

Prueba este ejercicio y completa el código de muestra.

ui <- fluidPage(
  titlePanel("Baby Name Explorer"),
  # CODE BELOW: Add a sidebarLayout, sidebarPanel, and mainPanel
  
  textInput('name', 'Enter Name', 'David'),
  plotOutput('trend')
  
)

server <- function(input, output, session) {
  output$trend <- renderPlot({
    ggplot()
  })
}

shinyApp(ui = ui, server = server)

Editar y ejecutar código