Example R Integration

processing.r

library(arrow)
library(dplyr)
library(dataconnect)

dc <- dataconnect::init(api_key)
datasets <- dc$list(study = "12345")

for (ds in datasets) {
  print(cat("Dataset: ", ds$name))
}

dataset_frame <- dc$list(study = "12345", dataset = "DS")$frame

result <- dataset_frame %>%
  filter(hr > 150) %>%
  select(patient_id, hr, bp_sys, bp_dias) %>%
  summarize(avg_sys = mean(bp_sys, na.rm = TRUE)) %>%
  collect() # Pull result into a regular data frame for use in R

# View the result
print(result)