if (FALSE) {
# Set a temporary password for demonstration
temp_password <- paste0(sample(letters, 10, replace = TRUE), collapse = "")
# Set the password
sd_set_password(temp_password)
# After restarting R, verify the password was set
cat("Password is :", Sys.getenv('SURVEYDOWN_PASSWORD'))
}
Run the code above in your browser using DataLab