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))



timtrice/Hurricanes documentation built on Oct. 10, 2023, 8:15 p.m.