calpass_query {calpassapi} | R Documentation |
Query data from CalPASS API endpoints
Description
Query data from CalPASS API endpoints for a single interSegmentKey
Usage
calpass_query(
interSegmentKey,
token,
api_url = "https://mmap.calpassplus.org/api",
endpoint = c("transcript", "placement"),
verbose = FALSE
)
calpass_query_many(
interSegmentKey,
token,
api_url = "https://mmap.calpassplus.org/api",
endpoint = c("transcript", "placement"),
verbose = FALSE,
api_call_limit = 3200,
limit_per_n_sec = 3600,
wait = FALSE,
token_username,
token_password,
token_client_id,
token_scope
)
Arguments
interSegmentKey |
for |
token |
(optional) a token object created from calpass_get_token. If this is not specified, then |
api_url |
defaults to |
endpoint |
the api endpoint to use; defaults to |
verbose |
If |
api_call_limit |
the number of api calls allowed per |
limit_per_n_sec |
time frame where |
wait |
indicates whether the user is willing to wait |
token_username |
(optional, required if |
token_password |
(optional, required if |
token_client_id |
(optional, required if |
token_scope |
(optional, required if |
Value
a data frame with columns interSegmentKey
, status_code
(the http response code: 200 means student was found, 204 means student was not found, 429 means the api limit was reached and student was not processed, and anything else in the 400's correspond to http errors.)
Functions
-
calpass_query_many
: Query data from CalPASS API endpoints with a vector of interSegmentKey's. The number of rows returned corresponds to the number of unique interSegmentKey's.
Author(s)
Vinh Nguyen
References
Examples
## Not run:
## get access token
cp_token <- calpass_get_token(username='my_cp_api_uid', password='my_cp_api_pwd')
## single run
isk <- calpass_create_isk(first_name='Jane', last_name='Doe'
, gender='F', birthdate=20001231)
calpass_query(interSegmentKey=isk
, token=cp_token, endpoint='transcript')
calpass_query(interSegmentKey=isk
, token=cp_token, endpoint='placement')
## multiple
firstname <- c('Tom', 'Jane', 'Jo')
lastname <- c('Ng', 'Doe', 'Smith')
gender <- c('Male', 'Female', 'X')
birthdate <- c(20001231, 19990101, 19981111)
df <- data.frame(firstname, lastname
, gender, birthdate, stringsAsFactors=FALSE)
library(dplyr)
df %>%
mutate(isk=calpass_create_isk(first_name=firstname
, last_name=lastname
, gender=gender
, birthdate
))
dfResults <- calpass_query_many(interSegmentKey=df$isk
, token=cp_token
, endpoint='transcript'
)
## End(Not run)