Используйте один if () вместо нескольких наблюдающих событий () для отображения сообщения в блестящем приложении - PullRequest
Новая
       9

Используйте один if () вместо нескольких наблюдающих событий () для отображения сообщения в блестящем приложении

0 голосов
/ 16 января 2020

У меня есть блестящее приложение ниже, в котором я использую три наблюдателя, которые активируются на основе кнопок действий. Мне было интересно, как я мог бы заменить этих наблюдателей на if (), который включал бы все 3 условия внутри. 

library(shiny)
library(shinyWidgets)

ui <- fluidPage(
  tags$h2("Sweet Alert examples"),
  actionButton(
    inputId = "success",
    label = "Launch a success sweet alert",
    icon = icon("check")
  ),
  actionButton(
    inputId = "error",
    label = "Launch an error sweet alert",
    icon = icon("remove")
  ),
  actionButton(
    inputId = "sw_html",
    label = "Sweet alert with HTML",
    icon = icon("thumbs-up")
  )
)

server <- function(input, output, session) {

  observeEvent(input$success, {
    sendSweetAlert(
      session = session,
      title = "Success !!",
      text = "All in order",
      type = "success"
    )
  })

  observeEvent(input$error, {
    sendSweetAlert(
      session = session,
      title = "Error !!",
      text = "It's broken...",
      type = "error"
    )
  })

  observeEvent(input$sw_html, {
    sendSweetAlert(
      session = session,
      title = NULL,
      text = tags$span(
        tags$h3("With HTML tags",
                style = "color: steelblue;"),
        "In", tags$b("bold"), "and", tags$em("italic"),
        tags$br(),
        "and",
        tags$br(),
        "line",
        tags$br(),
        "breaks",
        tags$br(),
        "and an icon", icon("thumbs-up")
      ),
      html = TRUE
    )
  })

}

shinyApp(ui, server)

1 Ответ

1 голос
/ 16 января 2020

Вы можете просто вызвать вспомогательную функцию, чтобы сделать то, что вы хотите, после получения события 

server <- function(input, output, session) {

  observeEvent(input$success, {sendMessage("success")})
  observeEvent(input$error, {sendMessage("error")})
  observeEvent(input$sw_html, {sendMessage("sw_html")})

  sendMessage <- function(type) {
    if (type=="success") {
     sendSweetAlert(
        session = session,
        title = "Success !!",
        text = "All in order",
        type = "success"
      )
   } else if (type=="error") {
      sendSweetAlert(
        session = session,
        title = "Error !!",
        text = "It's broken...",
        type = "error"
      )
   } else if (type="sw_html") {
     sendSweetAlert(
        session = session,
        title = NULL,
        text = tags$span(
          tags$h3("With HTML tags",
                  style = "color: steelblue;"),
          "In", tags$b("bold"), "and", tags$em("italic"),
          tags$br(),
          "and",
          tags$br(),
          "line",
          tags$br(),
          "breaks",
          tags$br(),
          "and an icon", icon("thumbs-up")
        ),
        html = TRUE
      )
   }
  }
}
...