sweetalert javascript in r with @rstudio htmltools

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.

xxxxxxxxxx
 
<!DOCTYPE html>
<html>
<head>
<meta charset="utf-8"/>
<link href="https://timelyportfolio.github.io/sweetalert/lib/sweet-alert.css" rel="stylesheet" />
<script src="https://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>
    

Modified http://timelyportfolio.github.io/sweetalert/lib/sweet-alert.min.js to a secure url

https://timelyportfolio.github.io/sweetalert/lib/sweet-alert.min.js