weather_forecast <- function(zipcode) {
set_api_key(Sys.getenv('WUNDERGROUND_KEY'))
forecast3day(set_location(zip_code=zipcode))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.