# NOT RUN {
smlogin()
s <- surveylist()
# weblink collector
createcollector(s[[1]]$survey_id, 'survey link', type='weblink')
# email list collector
createcollector(s[[1]]$survey_id, 'Emails', type='email',
recipients = list('first@example.com', 'second@example.com'),
email_replyto='me@example.com', email_subject='Please complete a short survey!')
# }
Run the code above in your browser using DataLab