# NOT RUN {
smlogin()
s <- surveylist()
r <- respondentlist(s[[1]]$survey_id)
# 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
# }
Run the code above in your browser using DataLab