Rで解析：Shinyの導入と覚書

#dependenciesをTRUEに設定しshinyと同時に依存ライブラリを導入
install.packages("shiny", dependencies = TRUE)

#導入されるライブラリ
package ‘globals’ successfully unpacked and MD5 sums checked
package ‘listenv’ successfully unpacked and MD5 sums checked
package ‘parallelly’ successfully unpacked and MD5 sums checked
package ‘xts’ successfully unpacked and MD5 sums checked
package ‘systemfonts’ successfully unpacked and MD5 sums checked
package ‘textshaping’ successfully unpacked and MD5 sums checked
package ‘sysfonts’ successfully unpacked and MD5 sums checked
package ‘showtextdb’ successfully unpacked and MD5 sums checked
package ‘reactlog’ successfully unpacked and MD5 sums checked
package ‘future’ successfully unpacked and MD5 sums checked
package ‘dygraphs’ successfully unpacked and MD5 sums checked
package ‘ragg’ successfully unpacked and MD5 sums checked
package ‘showtext’ successfully unpacked and MD5 sums checked
package ‘shiny’ successfully unpacked and MD5 sums checked

library("shiny")

shinyUI(fluidPage(
  #sidebarPanelコマンドで入力widgetの表示領域を設定
  sidebarPanel(
  #日付を選択:weekstart:日曜が0、土曜が6
  dateInput(inputId = "dateInput", label = "dateInput",
            startview = "month", weekstart = 0),
  #ファイルを選択:multiple:複数ファイルを選択:TRUE
  fileInput(inputId = "fileInput", label = "fileInput",
            multiple = TRUE),
  #複数選択のチェックボックス
  checkboxGroupInput(inputId = "checkboxGroupInput",
                     label = "checkboxGroupInput",
                     inline = TRUE,
                     choiceNames = c("karada", "いいもの"),
                     choiceValues = c(3, 1)),
  #単一選択のチェックボックス:初期チェックの設定:value:TRUE/FALSE
  checkboxInput(inputId = "checkboxInput",
                label = "からだにいいもの",
                value = FALSE),
  #ラジオボタン:複数項目から選択
  radioButtons(inputId = "radioButtons",
               label = "radioButtons",
               inline = TRUE,
               choiceNames = c("karada", "いいもの"),
               choiceValues = c(3, 1)),
  #スライダーで値を取得
  sliderInput(inputId = "sliderInput",
              label = "sliderInput",
              min = 0, max = 200, value = 100),
  #リストから選択
  selectInput(inputId = "selectInput",
              label = "selectInput",
              choice = list("karada" = 1,
                            "いいもの" = 100),
              multiple = TRUE),
  #テキスト入力
  textInput(inputId = "textInput",
            label = "textInput", value = "初期値"),
  #表示グリッド幅を指定
  width = 3),
  
  #mainPanelコマンドで出力の表示領域を設定
  mainPanel(
    #dateInputを出力
    titlePanel("dateInputを出力"),
    textOutput(outputId = "dateOutput"),
    #fileInputを出力
    titlePanel("fileInputを出力"),
    textOutput(outputId = "fileOutput"),
    #checkboxGroupInputを出力
    titlePanel("checkboxGroupInputを出力"),
    textOutput(outputId = "checkboxGroupOutput"),
    #checkboxInputを出力
    titlePanel("checkboxInputを出力"),
    textOutput(outputId = "checkboxOutput"),
    #radioButtonsを出力
    titlePanel("radioButtonsを出力"),
    textOutput(outputId = "radioButtonsOutput"),
    #sliderInputを出力
    titlePanel("sliderInputを出力"),
    textOutput(outputId = "sliderOutput"),
    #selectInputを出力
    titlePanel("selectInputを出力"),
    textOutput(outputId = "selectOutput"), 
    #textInputを出力
    titlePanel("textOutputを出力"),
    textOutput(outputId = "textOutput"), 
    #表示グリッド幅を指定
    width = 9
  )
  ))

shinyServer(function(input, output) {
    #dateInput:日付はas.characterコマンドを使用すると出力が可能です
    output$dateOutput <- renderText({as.character(input$dateInput)})
    #fileOutput:$datapath:ファイルパスを取得,$name:ファイル名を取得
    #ファイルパスはtempファイルに移動後のパス
    output$fileOutput <- renderText({input$fileInput$datapath})
    #checkboxGroupInput
    output$checkboxGroupOutput <- renderText({input$checkboxGroupInput})
    #checkboxOutput
    output$checkboxOutput <- renderText({input$checkboxInput})
    #radioButtonsOutput
    output$radioButtonsOutput <- renderText({input$radioButtons})
    #sliderOutput
    output$sliderOutput <- renderText({input$sliderInput})
    #sliderOutput
    output$selectOutput <- renderText({input$selectInput})
    #textOutput
    output$textOutput <- renderText({input$textInput})
})