R海拾遗-shiny_先康康

# 安装包
install.packages("shiny")

library(shiny)
# 演示官方的例子
runExample("01_hello")

library(shiny)

# ui脚本编写
ui<-fluidPage(#创建一个自动调整用户浏览器窗口
  # app标题
  titlePanel("Hello Shiny!"),
  # 定义左边交互式的拉条
  sidebarLayout(
    position = "right",#指定位置
    #侧边面板
    sidebarPanel(
      sliderInput("bins",
                  "Number of bins:",#箱子的标题
                  min = 1,#bar最小值
                  max = 50,#bar最大值
                  value = 30)
    ),
    # 主面板
    mainPanel(
      plotOutput("distPlot")
    )
  )
)

library(shiny)

# 定义服务器脚本
server<-function(input, output) {
  output$distPlot <- renderPlot({
    x    <- faithful[, 2]  #定义x的值，这里使用的是faithful数据
    bins <- seq(min(x), max(x), length.out = input$bins + 1)# 定义bins，seq为生成序列
    # 绘制函数
    hist(x, breaks = bins, col = 'darkgray', border = 'white')
  })
}

shinyApp(ui = ui, server = server)

#工作目录必须在这里，负责报错，或者写全路径
runApp("shiny_1")