## Not run:
# smlogin()
#
# # create survey by copying existing survey
# s <- surveylist()
# createsurvey(survey = s[[1]]$survey_id, title = 'Copied survey',
# collector_name='Emails',
# recipients = list(list('[email protected]'), list('[email protected]')),
# email_replyto='[email protected]', email_subject='Please complete a short survey!')
#
# # create survey from template
# tmps <- templates()
# createsurvey(template = tmps[[1]]$template_id, title = 'Copied survey',
# collector_name='Emails',
# recipients = list(list('[email protected]'), list('[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