[英]Use one if() instead of multiple observeEvent() to display message in a shiny app
我在下面有一个闪亮的应用程序,其中我使用了三个基于操作按钮激活的观察者。 我想知道如何用包含所有 3 个条件的 if() 替换这些观察者。
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)
您可以在获得事件后调用辅助函数来执行您想要的操作
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
)
}
}
}
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.