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")
'경기도 인공지능 개발 과정 > R' 카테고리의 다른 글
R 멤버십 프로젝트 기획 (RFM 분석과 의사결정나무 이용) (0) | 2022.05.06 |
---|---|
R flexdashborad (0) | 2022.05.04 |
R 군집분석 & 연관분석 (0) | 2022.05.03 |
R R 마크다운(Rpubs) (0) | 2022.05.02 |
R 크롤링 - 2 (0) | 2022.04.27 |