R/ios_log_all.R

Defines functions ios_log_all

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)

}
neugelb/neugelbtools documentation built on July 7, 2020, 1:17 a.m.