# Create a SecretsProvider object
secretsProvider <- SecretsProvider(secret_file_path = tempfile(),
input_func = function(prompt) { "mock_input"})
# Set a secret
secretsProvider$set_secret("Data_source_API_key")
# Get a secret
api_key <- secretsProvider$get_secret("Data_source_API_key")
# Remove a secret
secretsProvider$remove_secret("Data_source_API_key")
Run the code above in your browser using DataLab