knitr::opts_chunk$set( collapse = TRUE, comment = "#>" )
library(FacebookMessageTimes)
data <- load_facebook_message_data("../data-raw/messages_censored1.json") tobin_times <- FacebookMessageTimes::get_person_message_times(data, "Tobin South") date_times <- get_datetime(tobin_times)
plot_over_time(date_times)
plot_time_of_day(date_times)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.