R Shiny

library(shiny)

ui <- fluidPage( # 입출력 위젯 )

 

server <- function(input, output, session) { # 서버 코드 }

 

shinyApp(ui, server)

 

textInput( ) / numericInput() / dateInput() / fileInput()

첫 번째 인자 : 문자열(inputId).

두 번재 인자 : 레이블(label). 화면에 표시되는 입력 위젯의 제목

세 번째 이후 인자들은 각 함수의 목적에 따라 다름.

 

예) numericInput("sel", "값 입력", value=50, min=40, max=100)

 

# textInput()
library(shiny)

ui <- fluidPage(
  textInput("myText","텍스트를 입력하세요."),
  verbatimTextOutput("txt")
)

server <- function(input,output,session){
  output $ txt <- renderPrint({
    req(input $ myText)
    input $ myText
  })
}

shinyApp(ui, server)

 

library(shiny)
ui <- fluidPage(
  passwordInput("password", "패스워드")
)
server <- function(input, output, session){
}
shinyApp(ui, server)

library(shiny)

ui <- fluidPage(
  numericInput("obs","Observations:",10,min=1,max=100),
  verbatimTextOutput("value")
)

server <- function(input, output){
  output $ value <- renderText({input $ obs})
}

shinyApp(ui, server)

 

shiny::runGitHub(repo = "shiny-examples", username = "rstudio", subdir="005-sliders")