Fixed typo with secret

bufferapp · Feb 20, 2018 · bb447a8 · bb447a8
1 parent e7f3cba
commit bb447a8
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/write_to_redshift.R b/R/write_to_redshift.R
@@ -36,7 +36,7 @@ write_to_redshift <- function(df, table_name, bucket_name, option = "replace", k
     key_id <- readline(prompt = "Enter your AWS access key: ")
     secret_key <- readline(prompt = "Enter your AWS secret access key: ")
     Sys.setenv(AWS_ACCESS_KEY_ID = key_id)
-    Sys.setenv(AWS_SECRET_ACCESS_KEY = secret_keu)
+    Sys.setenv(AWS_SECRET_ACCESS_KEY = secret_key)
 
   }