Nothing
#' @importFrom dplyr case_when
level_ranker <- function(score, ace_score) {
perc <- score / ace_score * 100
case_when(
perc >= 100 ~ "S",
perc >= 90 ~ "A",
perc >= 80 ~ "B",
perc >= 70 ~ "C",
perc >= 69 ~ "D",
perc >= 59 ~ "E",
TRUE ~ "F"
)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.