简介shiny

什么是shiny：

Shiny 是一个开源的 R 包，它为使用 R 构建 Web 应用提供了一个优雅有力的 Web 框架.

shiny的特点

不需要R用户了解前端，后端知识
不需要R用户了解网页开发语言的知识，比如javascript
为R用户量身打造，帮助R用户高效的开发web程序

学习本课程的背景知识

有一定R语言基础

学习完本课程，同学们会有什么收获

学完本课程，同学会了解shiny的工作原理，并且能够自己开发一个shiny 程序

案例展示

https://liam.shinyapps.io/dashboard/

image.png

个链接查看我制作的一个shiny案例。 这个案例是一个推荐系统，可以帮助店铺找到某一个商品相似的商品，以及可能对这个商品感兴趣的人。 另外还对商品以及店铺进行了数据分析，并展示

shiny app 的基本部分

从这里开始，我们会开始学习shiny的基本原理，我们会学习到

shiny 原程序的组成部分，分为UI和Server
shiny程序内有哪些元素 ：小部件，render函数，input，output
input 和output之间的关系

2.1 案例1
我们现来查看一个例子，然后分析其工作原理：

library(shiny)
runExample("01_hello")

image.png

example1

这个例子使用的是自带的faithful数据集合，通过改变slider滑块的值调整直方图的bin。

shiny程序包含两个部分：UI部分和server部分，简单来说，

UI 部分就是我们需要设定web页面要怎么展示
Server 部分就是后台的计算是如何进行

我们来看一下上面这个程序的源代码：

首先是UI部分：

ui <- fluidPage( 
  
  # App title ----
  titlePanel("Hello Shiny!"),
  
  # 这里指定的是什么布局方式
  sidebarLayout(
    
    # Sidebar panel  
    sidebarPanel(
      
      # 这里是定义一个slider 作为输入
      sliderInput(inputId = "bins",
                  label = "Number of bins:",
                  min = 1,
                  max = 50,
                  value = 30)
      
    ),
    
    # 主页面，这里主页面是一个绘图
    mainPanel(
      
      # Output: Histogram ----
      plotOutput(outputId = "distPlot")
      
    )
  )
)

sidebarLayout边栏布局，是页面布局，这里使用的的是默认的页面布局，此布局为输入提供了侧栏，sidebarPanel，为输出提供了大的主区域，mainPanel

sliderInput 是一个部件，用于提供输入

plotOutput(outputId = “distPlot”) 是输出，输出一个图

然后是Server部分

定义我们UI部分展示的结果是如何计算的

server <- function(input, output) {
  

  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")
    
  })
  
}

生成app

shinyApp(ui, server)

总结

shiny 程序分为两个部分 ，UI和Server

UI ,UI定义了页面的布局
UI里面包含的元素有，页面布局，部件，输出
Server ，Server定义了页面背后的计算
Server，中来来自页面的输入通过input进行表示，输出页面通过output表示