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

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)