Nothing
json2dfr <- function(json) {
pws <- with(pws $current_observation,
c(with(display_location, c(lon=longitude, lat=latitude)),
y=temp_f))
## if y=='relative_humidity' substr(y, 1, nchar(y)-1)
pws <- as.numeric(pws)
if(length(pws)==3) return(pws)
else return(c(lon=NA, lat=NA, y=NA))
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.