중지 - 지연 - 트리거

R로 Shiny 웹 애플리케이션 만들기

Ramnath Vaidyanathan

VP of Product Research

동작 고립 (1/3)

사용자가 인사 유형을 선택하고 이름을 입력하면 개인화된 인사가 표시되는 앱

동작 고립 (2/3)

사용자가 인사 유형을 선택하고 이름을 입력하면 개인화된 인사가 표시되는 앱

동작 고립 (3/3)

server <- function(input, output, session){
  output$greeting <- renderText({
    paste(

      isolate(

        input$greeting_type

      )

      , input$name, sep = " ,")
  })
}

동작 지연 (1/3)

사용자가 이름을 입력하면 개인화된 인사가 표시되는 앱

동작 지연 (3/3)

server <- function(input, output, session){
  rv_greeting <- eventReactive(input$show_greeting, {
    paste("Hello", input$name)
  })
  output$greeting <- renderText({
    rv_greeting()
  })
}

동작 트리거 (1/2)

사용자가 이름을 입력하고 버튼을 클릭하면 모달 대화상자에 개인화된 인사가 표시되는 앱

동작 트리거 (2/2)

server <- function(input, output, session){
  observeEvent(input$show_greeting, {
    showModal(modalDialog(paste("Hello", input$name)))
  })
}

연습해 봅시다!

R로 Shiny 웹 애플리케이션 만들기