Nothing
## ---- include = FALSE---------------------------------------------------------
knitr::opts_chunk$set(
collapse = TRUE,
comment = "#>"
)
## ----setup, include = FALSE---------------------------------------------------
library(mwlaxeref)
## ----example_data-------------------------------------------------------------
head(wis_lakes, n = 3)
## ----basic_use----------------------------------------------------------------
nhdhr_ids <- local_to_nhdhr(wis_lakes, from_colname = "lake.id", states = "wi")
head(nhdhr_ids, n = 3)
## ----lagos--------------------------------------------------------------------
nhdhr_ids <- nhdhr_ids[, "nhdhr.id"]
lagos_ids <- nhdhr_to_lagos(nhdhr_ids)
head(lagos_ids, n = 3)
## ----id_fields----------------------------------------------------------------
head(lake_id_xref, n = 3)
## ----wi_to_mglp---------------------------------------------------------------
lagos_id <- wi_to_lagos(wis_lakes, from_colname = "lake.id")
head(lagos_id, n = 3)
## ----mi_dups------------------------------------------------------------------
mi_nhdhr <- data.frame(nhdhr.id = "123397651")
nhdhr_to_mi(mi_nhdhr)
## ----mi_new_key---------------------------------------------------------------
nhdhr_to_mi(mi_nhdhr, id_field = "NEW_KEY")
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.