Stop – zpoždění – spouštěč

Tvorba webových aplikací se Shiny v R

Ramnath Vaidyanathan

VP of Product Research

Izolování akcí (1/3)

Aplikace, kde uživatel vybere typ pozdravu a zadá jméno a obdrží personalizovaný pozdrav.

Tvorba webových aplikací se Shiny v R

Izolování akcí (2/3)

Aplikace, kde uživatel vybere typ pozdravu a zadá jméno a obdrží personalizovaný pozdrav.

Tvorba webových aplikací se Shiny v R

Izolování akcí (3/3)

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

      isolate(

        input$greeting_type

      )

      , input$name, sep = " ,")
  })
}
Tvorba webových aplikací se Shiny v R

Zpoždění akcí (1/3)

Aplikace, kde uživatel zadá jméno a obdrží personalizovaný pozdrav.

Tvorba webových aplikací se Shiny v R

Aplikace, kde uživatel zadá jméno a obdrží personalizovaný pozdrav.

Tvorba webových aplikací se Shiny v R

Zpoždění akcí (3/3)

server <- function(input, output, session){
  rv_greeting <- eventReactive(input$show_greeting, {
    paste("Hello", input$name)
  })
  output$greeting <- renderText({
    rv_greeting()
  })
}
Tvorba webových aplikací se Shiny v R

Spouštění akcí (1/2)

Aplikace, kde uživatel zadá jméno, klikne na tlačítko a obdrží personalizovaný pozdrav v modálním dialogu

Tvorba webových aplikací se Shiny v R

Spouštění akcí (2/2)

server <- function(input, output, session){
  observeEvent(input$show_greeting, {
    showModal(modalDialog(paste("Hello", input$name)))
  })
}
Tvorba webových aplikací se Shiny v R

Pojďme si procvičit!

Tvorba webových aplikací se Shiny v R

Preparing Video For Download...