fishing_area <- data.frame(
SUBDIV = c("22", "23", "24", "25", "26", "27", "28", "281", "282", "29", "29N",
"29S", "30", "31", "32"),
FishingArea = c("27.3.c.22", "27.3.b.23", "27.3.d.24", "27.3.d.25", "27.3.d.26",
"27.3.d.27", "27.3.d.28", "27.3.d.28", "27.3.d.28", "27.3.d.29",
"27.3.d.29", "27.3.d.29", "27.3.d.30", "27.3.d.31", "27.3.d.32"),
stringsAsFactors = FALSE)
#
fleet_key <- readxl::read_xlsx("data-raw/fleet_key.xlsx")
#
usethis::use_data(fishing_area,fleet_key, overwrite = TRUE)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.