keys_al <- keys[str_which(keys, "^AL.")]
if (is_empty(keys_al)) { src <- "There are no storms in the Atlantic basin." } else { src <- walk(keys_al, function(x) { knit_expand(file = "child_storm.Rmd", arguments = list(key = x)) }) }
r knit(text = unlist(src))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.