powered by
responsecounts(collector, api_key = getOption('sm_api_key'), oauth_token = getOption('sm_oauth_token'), ...)
collectors
getOption('sm_api_key')
smlogin
getOption('sm_oauth_token')
POST
## Not run: # smlogin() # s <- surveylist() # lapply(collectors(s[[1]]$survey_id), function(x) responsecounts(x$collector_id)) # ## End(Not run)
Run the code above in your browser using DataLab