#' @title get_public
#' @description Return dataframe of public advisory data.
#' \describe{
#' \item{Status}{Classification of storm, e.g., Tropical Storm, Hurricane,
#' etc.}
#' \item{Name}{Name of storm}
#' \item{Adv}{Advisory Number}
#' \item{Date}{Date of advisory issuance}
#' \item{StormKey}{Unique ID of the cyclone}
#' \item{Contents}{Text content of product}
#' }
#' @param links URL to storm's archive page.
#' @seealso \code{\link{get_storms}}, \code{\link{public}}
#' @export
get_public <- function(links) {
get_product(links = links, products = "public")
}
#' @title public
#' @description Parse Public Advisory products
#' @details Given a direct link to a public advisory product, parse and return
#' dataframe of values.
#' @param contents Link to a storm's specific public advisory product.
#' @return Dataframe
#' @seealso \code{\link{get_public}}
#' @keywords internal
public <- function(contents) {
status <- scrape_header(
contents = contents,
# The "SPECIAL" pattern has to be left here; moving it under
# `scrape_header` will break posest and update products.
ptn_product_title = "(?:\n?SPECIAL\\s+)?(?:INTERMEDIATE )?(?:ADVISORY)?"
)
issue_date <- scrape_date(contents)
key <- scrape_key(contents)
tibble::tibble(
Status = status[1],
Name = status[2],
Adv = status[3],
Date = issue_date,
StormKey = key,
Contents = contents
)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.