[Data Mining with R] Shiny Apps / Text Output

Shiny App에서 Text를 출력하는 방법 중 하나는 다음과 같다:

[ui.R]

library(shiny);

shinyUI(fluidPage(
  titlePanel("Text Output"),
  
  sidebarLayout(
    sidebarPanel(      
      selectInput("var1",
                  label = "Choose first variable",
                  choices = c("mpg", "cyl", "disp", "hp", "drat", "wt", "qsec", "vs", "am", "gear", "carb"),
                  selected = "mpg"
      ),
      selectInput("var2",
                  label = "Choose second variable",
                  choices = c("mpg", "cyl", "disp", "hp", "drat", "wt", "qsec", "vs", "am", "gear", "carb"),
                  selected = "mpg"
      )
    ),
    
    mainPanel(
      textOutput("text")
    )
  )
))

[server.R]

library(shiny);

shinyServer(
  function(input, output){
    
    output$text = renderText({
      myText = paste("You selected: ", input$var1);
      myText = paste(myText, " , ");
      myText = paste(myText, input$var2);
    })
  }
)

[Results]

다음의 예에서 선택된 변수에 따라 문자가 실시간으로 출력되는 것을 확인할 수 있다.