#' @export
normalise_excess <- function(df, check){
if(check){
df <- df %>%
mutate(Excess = round(Excess / Scheduled, 2)) %>%
data.table()
}
return(df)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.