#' Extract date from media id.
#'
#' This function has two arguments.
#' @param df Dataframe to analyze.
#' @param media_id Field that contains media id. Field is parsed for date.
#' @keywords media, id, date
#' @export
#' @examples
#' extract_media_id_date(df, media_id)
#
extract_media_id_date <- function(df, media_id) {
library(dplyr)
library(rlang)
page <- enquo(media_id)
df <- df %>% mutate(media_id_date=as.Date(str_match(!!media_id, "[0-9]{8}"), "%Y%m%d"))
df
# Tests
# 1. Make sure column is not a factor.
# 2. Make sure media id is 8 chars between start and underscore
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.