Handle tag inputs and escape HTML text

This commit is contained in:
Winston Chang
2016-03-21 20:10:17 -05:00
parent ecb59e9c31
commit e28cada4dd

View File

@@ -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