## format names correctly
name_val <- function(first, middle, last) {
if (is.na(middle)) {
return(paste(capitalize(tolower(first)),
capitalize(tolower(last))))
} else {
return(paste(capitalize(tolower(first)),
capitalize(tolower(middle)),
capitalize(tolower(last))))
}
}
## read in academician info data
read_scholars <- function(file_name) {
readr::read_csv(file = file_name,
col_types = cols(
First = col_character(),
Middle = col_character(),
Last = col_character(),
ID = col_character()
))
}
## if empty, replace with NA, otherwise return parameter unchanged
eval_metric <- function(metric) {
ifelse(length(metric) == 0, NA, metric)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.