R：shinyでwebアプリをつくる

R(RStudio)のshinyパッケージでwebアプリっぽいものを作った時の備忘録_φ(･_･

環境

• Mac OS X 10.12.6
• RStudio 1.0.136

準備

• shinyパッケージをインストール

install.packages("shiny")
require(shiny)

# URL 'https://cran.rstudio.com/bin/macosx/mavericks/contrib/3.3/shiny_1.0.5.tgz' を試しています 
# Content type 'application/x-gzip' length 2780870 bytes (2.7 MB)
# ==================================================
# downloaded 2.7 MB

# The downloaded binary packages are in
# 	/var/folders/t9/xk2j5yln4_dfmh518_4xvyw80000gn/T//RtmpmH3p3h/downloaded_packages

その1：Hello Shiny!

Shiny - Gallery、Shiny from RStudio（lesson1）を参考にしました。

ここでやっていること

• Hello Shiny! 表示
• アプリ画面上で指定した階級ヒストグラム

lesson1.R

library(shiny)

# アプリケーションの UI 定義
ui <- shinyUI(fluidPage(
  
  # アプリケーションタイトル
  titlePanel("Hello Shiny!"),
  
  # サイドバー
  sidebarLayout(
   # 階級数(bin)のためのスライダー
    sidebarPanel(
      sliderInput("bins",
                  "Number of bins:",
                  min = 1,
                  max = 50,
                  value = 30)
    ),
    
    # 生成された分布のプロットを表示する
    mainPanel(
      plotOutput("distPlot")
    )
  )
))

# サーバロジックの定義。ヒストグラムを描く
server <- shinyServer(function(input, output) {
  
  # ヒストグラムを描くための式。
  # この式は renderPlot にラップされている。つまり、
  #  1) これは "reactive" であり、入力が変更されると自動的に再実行される
  #  2) この出力タイプは 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")
  })
})

# アプリを動かす
shinyApp(ui = ui, server = server)

出力結果

出来ました。

↓　暇なときに更新したいな‥（　＾ω＾）↓

その2：ダッシュボードを使ってみる

その3：選択された分析コードを実行する