## 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!')
# ## End(Not run)
Run the code above in your browser using DataLab