ios_log_all <- function(path) {
require(tidyverse)
setwd(path)
files <- list.files(pattern = "*.json$")
device <- lapply(files,ios_logger_data)
device <- do.call('bind_rows',device)
tracking <- device %>%
ios_log_tidy()
return(tracking)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.