Rで解析：Shinyのテキスト系UIの紹介

Shinyの基本的なテキスト系UIの紹介です。Shinyの導入は以下の記事を参考ください。

＜おすすめのRに関する書籍です＞

Rによる統計データ解析 | 小池 祐太, 村田 昇, 吉田 朋広

Amazonで小池 祐太, 村田 昇, 吉田 朋広のRによる統計データ解析。アマゾンならポイント還元本が多数。小池 祐太, 村田 昇, 吉田 朋広作品ほか、お急ぎ便対象商品は当日お届けも可能。またRによる統計データ解析もアマゾン配送商品なら通常配送無料。

www.amazon.co.jp

テキスト系UIと表示UI

テキスト系UIにはテキストボックスの「textInput」、複数行のテキストボックス「textAreaInput」、パスワードテキストボックス「passwordInput」があります。

表示UIにはテキスト表示の「textOutput」、Rコンソール内容を表示する「verbatimTextOutput」があります。表示UIへのデータ受け渡しにはテキスト受け渡しの「renderText」、コンソール内容受け渡しの「renderPrint」コマンドをsever.Rもしくはapp.Rの「function」コマンドへ記述します。

以下の実行コマンドはRStudioのRStudio Desktop 2021.09.2+382、windows 11のR version 4.1.2で確認しています。

library("shiny")

ui <- fluidPage(

        #テキストボックス
        textInput(inputId = "TextBox", "からだにいいもの"),
        #複数行のテキストボックス, 表示行数:rowsオプション
        textAreaInput(inputId = "TextArea", "複数行のテキスト入力", rows = 3),
        #パスワードテキストボックス
        passwordInput(inputId = "TextPass", "パスワードテキストボックス"),

        #テキストボックス表示
        textOutput("OutTextBox"),
        #複数行のテキストボックス表示
        textOutput("OutTextArea"),
        #パスワードテキストボックス表示
        textOutput("OutTextPass"),
        #コンソール内容を表示
        verbatimTextOutput("RCode")
)

server <- function(input, output) {
    #テキストのアウトプット
    output$OutTextBox <- renderText({
        paste0("テキストボックス：[", input$TextBox, "]")
    })
    #複数行のテキストボックスのアウトプット
    output$OutTextArea <- renderText({
        paste0("複数行のテキストボックス：[", input$TextArea, "]")
    })
    #パスワードテキストボックスのアウトプット
    output$OutTextPass <- renderText({
        paste0("パスワードテキストボックス：[", input$TextPass, "]")
    })
    #コンソール内容を表示
    output$RCode <- renderPrint({
        summary(5:15)
    })

}

#シャイニーアプリの実行
shinyApp(ui = ui, server = server)

実行結果

少しでも、あなたの解析が楽になりますように！！

＜おすすめのRに関する書籍です＞

Ｒによる統計データ解析

ビッグデータ時代に不可欠の一冊！統計ソフトウェアＲを用いて、データサイエンスの基礎である統計学とそれを用いた具体的な統計解析手法・その運用の習得を目指す、統計データ解析テキストの決定版。 著者: 小池祐太, 村田昇, 吉田朋広

www.amazon.co.jp