## Not run:
# smlogin()
# s <- surveylist()
# r <- respondentlist(s[[1]])
#
# # get all responses (up to 100)
# a <- getresponses(lapply(r[[1]], function(x) `[`, 'respondent_id'), s[[1]])
# as.data.frame(a)
# ## End(Not run)
Run the code above in your browser using DataLab