if (nzchar(Sys.getenv("NOAA_TOKEN"))) {
# Set your NOAA token
noaa_token <- Sys.getenv("NOAA_TOKEN")
# Example request: Daily summaries from Central Park, NY (GHCND:USW00094728)
data <- get_climate_data(
noaa_token = noaa_token,
datasetid = "GHCND",
stationid = "USW00094728",
startdate = "2020-01-01",
enddate = "2020-01-31"
)
head(data)
}
Run the code above in your browser using DataLab