## 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('first@example.com'), list('second@example.com')),
# email_replyto='me@example.com', 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('first@example.com'), list('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