## 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('[email protected]', '[email protected]'),
# email_replyto='[email protected]', email_subject='Please complete a short survey!')
# ## End(Not run)
Run the code above in your browser using DataLab