exemples/app_rascunho.R

library(shiny)

ui <- fluidPage(
  titlePanel("Título"),

  sidebarLayout(
    sidebarPanel("Painel lateral"),
    mainPanel("Painel principal")
  )
)

server <- function(input, output) {}

shinyApp(ui = ui, server = server)
curso-r/pu.shiny documentation built on May 18, 2019, 8:07 p.m.