knitr::opts_chunk$set(echo = TRUE)
library(ggplot2) library(HURDAT) library(knitr) library(purrr) library(rrricanes) library(rrricanesdata) library(stringr) library(tibble)
gis <- flatten(gis_latest(verbose = FALSE))
# Keys of existing storms keys <- str_extract(names(gis), "(^[[:alpha:]]{2}[[:digit:]]{6})") |> toupper() |> unique() |> .[complete.cases(.)]
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.