query.R

query.R

# Needs to be done once
install.packages("devtools")
library(devtools)
install_github( "bedatadriven/activityinfo-R", ref = "release")

library(activityinfo)
activityInfoLogin(userEmail = "api+training@bedatadriven.com",
                  password = "testing123")

schools <- queryTable("a2145507918", columns = 
             c(id = "_id",
               name = "Name",
               camp = "Camp.Name",
               governorate = "Governorate.Name",
               students = "Students"))

write.csv(schools, "schools.csv")

values <- getDatabaseValueTable(database.id=9907)

write.csv(values, "values.csv")