mirror of
https://github.com/rstudio/shiny.git
synced 2026-04-07 03:00:20 -04:00
Handle tag inputs and escape HTML text
This commit is contained in:
@@ -66,7 +66,7 @@ showNotification <- function(html, duration = 5, closeButton = TRUE,
|
||||
|
||||
session$sendNotification("show",
|
||||
list(
|
||||
html = as.character(html),
|
||||
html = as.character(htmltools::as.tags(html)),
|
||||
duration = if (!is.null(duration)) duration * 1000,
|
||||
closeButton = closeButton,
|
||||
id = id
|
||||
|
||||
Reference in New Issue
Block a user