1 创建一个 Shiny App 的过程：

• 新建一个项目文件夹，每一个app都要有一个单独的文件夹。
• 在文件夹中新建app.R，注意这个文件名是不能改动的。
• app.R包含四个部分：（1）library(shiny)；（2）ui¹ 对象，设定界面的布局和外观；（3）server对象，在后台进行数据处理；（4）shinyApp(ui = ui, server = server)创建应用
• 在R中通过runApp("app文件夹目录")² 来启动应用；runApp("app文件夹目录", display.mode = "showcase")可以在应用底部显示源代码。

2 官方示例

library(shiny)
runExample("01_hello")      # a histogram
runExample("02_text")       # tables and data frames
runExample("03_reactivity") # a reactive expression
runExample("04_mpg")        # global variables
runExample("05_sliders")    # slider bars
runExample("06_tabsets")    # tabbed panels
runExample("07_widgets")    # help text and submit buttons
runExample("08_html")       # Shiny app built from HTML
runExample("09_upload")     # file upload wizard
runExample("10_download")   # file download wizard
runExample("11_timer")      # an automated timer

1 ui的基本布局

ui <- fluidPage( # 流动页面
  titlePanel("title Panel"), # 标题栏
  sidebarLayout( # 边栏布局
    sidebarPanel("sidebar"), # 边栏（一般是输入）
    mainPanel("main panler") # 主体部分（一般是输出）
  )
)

2 ui的内容

在每一个子区域中，用“,”分隔多个内容

3 ui的样式

align 参数决定位置

style 参数可以定义字体、字号、颜色

基本控件表

基本控件图

这个图也可以用shiny来画，且为动态的：

library(shiny)

# 基本控件的模板

ui <- fluidPage(
  titlePanel("Basic widgets"),
  
  # ui为三行布局，这是第一行
  fluidRow(
    
    column(3, # 这句的意思是这个控件占据三列的宽度，一下皆同。
           h3("Buttons"),
           actionButton("action", "Action"),
           br(),
           br(), 
           submitButton("Submit")),
    
    column(3,
           h3("Single checkbox"),
           checkboxInput("checkbox", "Choice A", value = TRUE)),
    
    column(3, 
           checkboxGroupInput("checkGroup", 
                              h3("Checkbox group"), 
                              choices = list("Choice 1" = 1, 
                                             "Choice 2" = 2, 
                                             "Choice 3" = 3),
                              selected = 1)),
    
    column(3, 
           dateInput("date", 
                     h3("Date input"), 
                     value = "2014-01-01"))   
  ),
  
  # 这是第二行
  fluidRow(
    
    column(3,
           dateRangeInput("dates", h3("Date range"))),
    
    column(3,
           fileInput("file", h3("File input"))),
    
    column(3, 
           h3("Help text"),
           helpText("Note: help text isn't a true widget, but it provides an easy way to add text to accompany other widgets.")),
    
    column(3, 
           numericInput("num", 
                        h3("Numeric input"), 
                        value = 1))   
  ),
  
  # 这是第三行
  fluidRow(
    
    column(3,
           radioButtons("radio", h3("Radio buttons"),
                        choices = list("Choice 1" = 1, "Choice 2" = 2,
                                       "Choice 3" = 3),selected = 1)),
    
    column(3,
           selectInput("select", h3("Select box"), 
                       choices = list("Choice 1" = 1, "Choice 2" = 2,
                                      "Choice 3" = 3), selected = 1)),
    
    column(3, 
           sliderInput("slider1", h3("Sliders"),
                       min = 0, max = 100, value = 50),
           sliderInput("slider2", "",
                       min = 0, max = 100, value = c(25, 75))
    ),
    
    column(3, 
           textInput("text", h3("Text input"), 
                     value = "Enter text..."))   
  )
  
)

# Define server logic ----
server <- function(input, output) {
  
}

# Run the app ----
shinyApp(ui = ui, server = server)

基本控件在ui和server中的实现

官方代码：Shiny Widgets Gallery

更多样的控件模板：Gallery

ui中的输出函数

server中的输出函数

这些函数，使用前最好用 help 查一查，他们有各自的独特设定。比如 renderImage() 默认在发送本地图片给客户端后便会将其删除，必须改一个参数才能反复发送。

代码执行

在shiny应用中，不同部分的代码的执行次数不同，规律如下:

• 最后的shinyApp函数在启动app时运行一次
• 每有一个新的用户访问你的shiny应用，就会运行一次server函数，保证每个用户有不同的响应式对象(reactivate object)
• 每次用户进行交互时，render*函数都会运行一次

因此，为了提高shiny app的运行速度，

• 调用包和脚本、读取数据，都应该放在app.R的开始，server函数之外，保证其只运行一次
• 对每一个访问者不同的代码，放在server函数内，render*函数外
• 只有涉及不同输入和输出的代码，才放在render*函数之内