#' @export
fct_recode_df <- function(d,col,codes){
left_join(d[col],codes, by=col) %>% .$to
}
#' @export
fct_to_chr <- function(d){
d %>% mutate_if(is.factor, as.character)
}
date_to_chr <- function(d){
d %>% mutate_if(is.Date, as.character)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.