Make Apple Health data available for analysis in R as an RDA file.

apple-health-to-rda.r

# This can take quite a long time to run

library(xml2)
library(tidyverse)

read_xml("apple_health_export/export.xml") -> x

x %>% xml_find_all(".//Record") %>%
  xml_attrs %>%
  bind_rows %>%
  mutate(
    type = factor(type),
    value = as.double(value),
    unit = factor(unit),
    creationDate = as.POSIXct(creationDate),
    startDate = as.POSIXct(startDate),
    endDate = as.POSIXct(endDate)
  ) -> health_data

save(file="health_data.rda", list=c("health_data"))