sweetalert javascript in r with @rstudio htmltools by timelyportfolio

Thanks to SweetAlert for Bootstrap forked from Tristan Edwards non-Bootstrap SweetAlert. Purpose is to demonstrate how to use @RStudio htmltools to get interactive javascript in your R workflow/environment.

index.html

<!DOCTYPE html>
<html>
<head>
<meta charset="utf-8"/>
<link href="//timelyportfolio.github.io/sweetalert/lib/sweet-alert.css" rel="stylesheet" />
<script src="//timelyportfolio.github.io/sweetalert/lib/sweet-alert.min.js"></script>

</head>
<body>
<script>
    document.addEventListener("DOMContentLoaded", function(event) { 
      swal("Good job! Brilliant!", "You're doing worthwhile things.", "success")
    });
    </script>
</body>
</html>

code.R

# give yourself some positive feedback in R
# as you toil away on some difficult, but worthwhile task
# uses javascript sweet-alert https://github.com/t4t5/sweetalert

library(htmltools)
library(pipeR)

tagList(
  tags$script(
    '
    document.addEventListener("DOMContentLoaded", function(event) { 
      swal("Good job! Brilliant!", "You\'re doing worthwhile things.", "success")
    });
    '
  )
) %>>%
  attachDependencies(
    htmlDependency(
      name="sweet-alert"
      ,version="0.2.1"
      ,src=c("href"=
               "http://timelyportfolio.github.io/sweetalert/lib"
      )
      ,script = "sweet-alert.min.js"
      ,style = "sweet-alert.css"
    )
  ) %>>%
  html_print