#' Make character vector pretty
pretty_rownames = function(rnames){
rnames = gsub('^`', '', rnames)
rnames = gsub('`$', '', rnames)
rnames = gsub('`', ':', rnames)
rnames
}
year_diff = function(date1, date2){
day_diff(date1, date2) / 365.25
}
day_diff = function(date1, date2){
as.numeric(difftime(as.Date(date1), as.Date(date2), units = 'days'))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.