testing/local_test.R

In eruud/test.oxycon.r:

# Load necessary packages
library(pilr.api.r)
library(uuid)
library(dplyr)
library(jsonlite)
library(base64enc)

# Set options for server, project, access code
options(pilr_server_default = "http://cloud.pilrhealth.com")
options(pilr_project_default = "oxycontest1")
options(pilr_default_access_code = "fa993679-e008-49b9-97e0-6fcc61d0255d")
participant = "oxycon1"

# Retrieve data (can append more datasets to the list if workunit requires them)
data <-
  list(calrq = read_pilr(
    data_set = "pilrhealth:calrq:calrq_data",
    schema = "1",
    query_params = list(participant = participant)
  ))