# 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('first@example.com', '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('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