tests/testing.r

In tdschenk/pilr.liitah.r: Accessing and validating data from the Liitah mobile app

## Load packages
library(pilr.liitah.r)

## Set default server, project, access_code
options(pilr_server_default = "http://liitah.pilrhealth.com")
options(pilr_project_default = "liitah_testing_2")
options(pilr_default_access_code = "429913fe-472f-4140-919e-40241d76ed99")
data <- read_pilr(data_set = "pilrhealth:mobile:app_log", schema = 1, query_params = list(participant = "109"))

## Full summary - all 600 participants
full <- full_summary(c(601,602,603,604,605,606,607,608,609,610,611,612,613,614,615,616,617,618))
full <- full_summary(c(601,602,603,604,605,606,607,608,609,610,611,612,613,614,
                       615,616,617,618, filterStart = '2015-05-05T01:00:01Z',
                       filterEnd = '2015-05-06T23:59:59Z'))

## Trigger/Arrival difference - every arrival instance
arrival_inst <- arrival_diff_inst(601)
arrival_inst2 <- arrival_diff_inst(c(601,609,610))
arrival_inst3 <- arrival_diff_inst(601, filterStart = '2015-05-05T01:00:01Z',
                                   filterEnd = '2015-05-06T23:59:59Z')

## Trigger/Arrival difference - average per venue
arrival_avg <- arrival_diff_avg(601)
arrival_avg2 <- arrival_diff_avg(c(601,609,610))
arrival_avg3 <- arrival_diff_avg(601, filterStart = '2015-05-05T01:00:01Z',
                                 filterEnd = '2015-05-06T23:59:59Z')

## For each at_venue arrival, return what category was previously polled
arrivals <- arrival_summary(601)
arrivals2 <- arrival_summary(c(601,609,610))
arrivals3 <- arrival_summary(601, filterStart = '2015-05-05T01:00:01Z',
                             filterEnd = '2015-05-06T23:59:59Z')


## UMICH STUDY
## 992 & 993 throwing error
options(pilr_server_default = "http://liitah.pilrhealth.com")
options(pilr_project_default = "umich_study")
options(pilr_default_access_code = "6292f2f3-9a2b-434c-87e1-e4831b2e8843")

df <- full_summary(c(101,102,103,104,105,106,107,108,109,2001,2002,2003,2004,2005,2006,2007,2008,3001,3002,3003,3005,3006))

df1 <- full_summary(c(101,102,103,104,105,106,107,108,109))
df2 <- full_summary(c(2001,2002,2003,2004,2005,2006,2007,2008))
df3 <- full_summary(c(3001,3002,3003,3005,3006))
grid.table(df[,1:6], cols = c("pt", "Total Venues", "Total Polls", "Total Triggers", "Polls At Venue", "Hot Polls"))
grid.table(df[,7:11], cols = c("Warm Polls", "Cold Polls", "Last Venue Added", "Last Manual Arrival", "Total Manual Arrivals"))
grid.table(df[,12], cols = c("Last Poll"))
grid.table(df[,13:18], cols = c("First Poll", "Hot Arrivals", "Warm Arrivals", "Cold Arrivals", "Average Trigger Diff", "No Triggers"))
df2 <- full_summary(c(990,991,995))