# NOT RUN {
current_key <- Sys.getenv("FRED_API_KEY")
fredr_set_key("abcdefghijklmnopqrstuvwxyz123456")
Sys.getenv("FRED_API_KEY")
fredr_set_key(current_key)
Sys.getenv("FRED_API_KEY")
# }
Run the code above in your browser using DataCamp Workspace