shiny的介绍及使用

shiny cheatsheet：https://shiny.rstudio.com/articles/cheatsheet.html
shiny官网第一节：https://shiny.rstudio.com/tutorial/written-tutorial/lesson1/
shiny是一个用于开发交互APP的R包，通过它，我们可以将写的R代码包装成一个网页APP，用户可以通过与网页交互的方式进行无代码的操作，这样可以节省用户的时间，同时加速开发端与用户端交流的速度。
示例：

library(shiny)
runExample("01_hello")

shiny app的所有代码被写入了一个脚本中，这个脚本主要由三部分组成1、定义用户界面的对象（网页的门面） 2、服务端运行的函数（网页内在运行的逻辑）3、shinyapp() （用于启动ui和server）。
在使用时，需要保证该脚本(app.R)在某个路径(如newdir/)下，通过运行runAPP("newdir)启动应用
在之前的旧版中，ui与server必须分开写入两个脚本(ui.R,server.R),放入一个文件夹内，而在新版中，写在两个脚本和一个脚本中均可，写在一个脚本中可以方便用户启动代码或与别人交流代码。

UI的结构

library(shiny)

# Define UI for app that draws a histogram ----
ui <- fluidPage(

  # App title ----
  titlePanel("Hello Shiny!"),

  # Sidebar layout with input and output definitions ----
  sidebarLayout(

    # Sidebar panel for inputs ----
    sidebarPanel(

      # Input: Slider for the number of bins ----
      sliderInput(inputId = "bins",
                  label = "Number of bins:",
                  min = 1,
                  max = 50,
                  value = 30)

    ),

    # Main panel for displaying outputs ----
    mainPanel(

      # Output: Histogram ----
      plotOutput(outputId = "distPlot")

    )
  )
)

注：可以发现：page>layout>panel>action module
任何一部分都可以独立成一个结构

server的结构

# Define server logic required to draw a histogram ----
server <- function(input, output) {

  # Histogram of the Old Faithful Geyser Data ----
  # with requested number of bins
  # This expression that generates a histogram is wrapped in a call
  # to renderPlot to indicate that:
  #
  # 1. It is "reactive" and therefore should be automatically
  #    re-executed when inputs (input$bins) change
  # 2. Its output type is a plot
  output$distPlot <- renderPlot({

    x    <- faithful$waiting
    bins <- seq(min(x), max(x), length.out = input$bins + 1)

    hist(x, breaks = bins, col = "#75AADB", border = "white",
         xlab = "Waiting time to next eruption (in mins)",
         main = "Histogram of waiting times")

    })

}

注意：我们可以发现，
1、server中的input，都是在ui中起输入功能的module的名字，而output，都是对应ui中起output功能的module的名字，因此，server的本质就是将ui中输入的内容，通过一系列函数变换，转化为我们想要的输出格式
2、为了保证app与用户的交互功能，我们需要在用户更新输入数据时及时响应改变，因此对于变化的内容一般都要用到render*(对于图表)和reactive（对于数据）函数。

?reactive
Wraps a normal expression to create a reactive expression. Conceptually, a reactive expression is a expression whose result will change over time.#将普通的表达式转化成随时间更新的表达式
`reactivePlot` has been replaced by `[renderPlot()](http://114.212.200.51:3838/help/library/shiny/help/renderPlot)`.

`reactiveTable` has been replaced by `[renderTable()](http://114.212.200.51:3838/help/library/shiny/help/renderTable)`.

`reactivePrint` has been replaced by `[renderPrint()](http://114.212.200.51:3838/help/library/shiny/help/renderPrint)`.

`reactiveUI` has been replaced by `[renderUI()](http://114.212.200.51:3838/help/library/shiny/help/renderUI)`.

`reactiveText` has been replaced by `[renderText()](http://114.212.200.51:3838/help/library/shiny/help/renderText)`.

?renderPlot
Renders a reactive plot that is suitable for assigning to an output slot.

我们把上述shiny的特性称为reactivity

image.png

用户可以利用reactivity这类特性做更加灵活的交互展示

image.png

一个shiny-app的基本结构

image.png

输入的action module汇总

actionButton
actionLink
checkboxGroupInput
checkboxInput
dateInput
dateRangeInput
fileInput #如果你想用这个模块，务必读一下它的说明文档，它读进来的是一个list对象！！
numericInput
passwordInput
radioButtons
selectInput
sliderInput
submitButton
textInput

输出的函数汇总（左边是server中的render（等同于reactive+output），右边是ui中的*output函数）

image.png

shiny中的panel和layout，用于调整action module的排列方式

image.png

注意！！！一个容易出错的地方！！！多次在这边出问题！

iris_input<-reactive({
      input$test
    })
output$text2=renderText({iris_input})
#上述为错误案例，正确的为
iris_input<-reactive({
      input$test
    })
output$text2=renderText({iris_input()})
#解释，reavtive或render*是将普通表达式变成reactive表达式，以一个function的形式返回，因此要加括号!

小技巧1:actionbutton+isolate可以避免reactive频繁刷新

output$mattab<-renderTable({
    
    input$start
    isolate(mat()[1:6,1:6])
    
    },rownames = T)
#解释：isolate可以屏蔽mat()反应式改变引起的reactive，而如果input$start改变，则会重新运行 isolate(mat()[1:6,1:6])！

小技巧2：shiny的reactive中存在两个可以帮助你跳出reactive的函数--observeEvent和observe() (注：isolate()是阻止reactive，不是跳出reactive)

observeEvent(input$create.proj,{get_shiny_local(input$proj.name)})
#前一个参数如果发生改变，那么会执行第二个参数的内容，第二个参数可以是reactive表达式，也可以是普通表达式！
#这种情况适用于，我们希望做一些保存或者部分结果不想展示出来的时候

小技巧3：由于actionbutton在使用的时候是由null变化为0，因此如果我们使用{input$actionbutton ;isoloat(expr)}，会在shiny启动的时候有报错的小bug（因为此时isolate中的expr都没有赋值，所以会报错），类似下图

image.png

解决这一问题我们可以通过设置actionbutton的取值来解决，如：

if(input$start==0){NULL}else{
      chromatogram(seq(), width = 200, height = 2, showcalls = "both")
    }

修改后

小技巧4：shiny上传文件是有最大限制的，一般最大为5M，如果超过了会报错，解决办法是在app.r中加入options（shiny.maxRequestSize = 30 * 1024 ^ 2）,可以将上传限度调整到30M，依次类推。
参考链接：http://www.dovov.com/shinyx.html

小技巧5：在使用fileinput actionmodule的时候，需要提供接受的文件类型，可以参考下面链接进行填写：https://developer.mozilla.org/zh-CN/docs/Web/HTTP/Basics_of_HTTP/MIME_types/Common_types

小技巧6：影响shinyapp与用户交流体验的一大原因是文件的上传和下载，尤其是大文件的上传和下载，因此，这两个过程尽量采取压缩文件的方式进行。如600M的csv文件经过压缩后仅为14M