## Not run:
# smlogin()
# s <- surveylist()
# r <- respondentlist(s[[1]])
#
# # get one response
# getresponses(r[[1]], s[[1]])
#
# # get all responses (up to 100)
# g <- getresponses(r, s[[1]])
# as.data.frame(g) # convert to data.frame
# ## End(Not run)
Run the code above in your browser using DataLab