1.默认的侧边栏布局模板
ui <- fluidPage(
sidebarLayout(
sidebarPanel(),
mainPanel()
)
)
2.shinydashboard基础布局模板
library(shiny)
library(shinydashboard)
ui <- dashboardPage(
dashboardHeader(),
dashboardSidebar(),
dashboardBody()
)
server <- function(input, output) { }
shinyApp(ui, server)
3.shinydashboard标准代码模板
header <- dashboardHeader()
sidebar <- dashboardSidebar()
body <- dashboardBody()
ui <- dashboardPage(header, sidebar, body)
server <- function(input, output) { }
shinyApp(ui, server)
4.双脚本模板
ui.R
library(shiny)
shinyUI(fluidPage(
headerPanel(),
sidebarPanel(),
mainPanel()
server.R
library(shiny)
shinyServer(function(input, output) {}