#' EmailNotificationOfNewData
#' @import fhi
#' @export EmailNotificationOfNewData
EmailNotificationOfNewData <- function(){
emailText <- paste0(
"New TB Report data has been received and the processing is finished.
<br><br>
<a href='http://smhb.fhi.no/s/reporttb'>http://smhb.fhi.no/s/reporttb</a>
")
if(Sys.getenv("COMPUTER")=="smhb"){
fhi::DashboardEmail("reporttb_results",
"New TB Report",
emailText)
}
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.