sample.r

# To generate CSV from : https://synthetichealth.github.io/synthea/

library(tidyverse)

(patients <- read_csv("csv/patients.csv"))

(patients_100 <- sample(patients$Id, 100))

(
  patients
  %>% filter(Id %in% patients_100)
  %>% write_csv("patients_100.csv")
  )

(observations <- read_csv("csv/observations.csv"))

(
  observations
  %>% filter(PATIENT %in% patients_100)
  %>% write_csv("measures_100.csv")
)

(procedures <- read_csv("csv/procedures.csv"))

(
  procedures
  %>% filter(PATIENT %in% patients_100)
  %>% write_csv("events_100.csv")
)

(careplans <- read_csv("csv/careplans.csv"))

(
  careplans
  %>% filter(PATIENT %in% patients_100)
  %>% write_csv("periods_100.csv")
)

(patients <- read_csv("csv/patients.csv"))

(patients_1000 <- sample(patients$Id, 1000))

(
  patients
  %>% filter(Id %in% patients_1000)
  %>% write_csv("patients_1000.csv")
)

(observations <- read_csv("csv/observations.csv"))

(
  observations
  %>% filter(PATIENT %in% patients_1000)
  %>% write_csv("measures_1000.csv")
)

(procedures <- read_csv("csv/procedures.csv"))

(
  procedures
  %>% filter(PATIENT %in% patients_1000)
  %>% write_csv("events_1000.csv")
)

(careplans <- read_csv("csv/careplans.csv"))

(
  careplans
  %>% filter(PATIENT %in% patients_1000)
  %>% write_csv("periods_1000.csv")
)