R/crosswalk_lakes_by_state.R
In mwlaxeref: Cross-References Lake Identifiers Between Different Data Sets

Documented in comid_to_ia comid_to_in comid_to_mi comid_to_mn comid_to_mo comid_to_nd comid_to_sd comid_to_wi ia_to_comid ia_to_lagos ia_to_mglp ia_to_nhd ia_to_nhdhr in_to_comid in_to_lagos in_to_mglp in_to_nhd in_to_nhdhr lagos_to_ia lagos_to_in lagos_to_mi lagos_to_mn lagos_to_mo lagos_to_nd lagos_to_sd lagos_to_wi mglp_to_ia mglp_to_in mglp_to_mi mglp_to_mn mglp_to_mo mglp_to_nd mglp_to_sd mglp_to_wi mi_to_comid mi_to_lagos mi_to_mglp mi_to_nhd mi_to_nhdhr mn_to_comid mn_to_lagos mn_to_mglp mn_to_nhd mn_to_nhdhr mo_to_comid mo_to_lagos mo_to_mglp mo_to_nhd mo_to_nhdhr nd_to_comid nd_to_lagos nd_to_mglp nd_to_nhd nd_to_nhdhr nhdhr_to_ia nhdhr_to_in nhdhr_to_mi nhdhr_to_mn nhdhr_to_mo nhdhr_to_nd nhdhr_to_sd nhdhr_to_wi nhd_to_ia nhd_to_in nhd_to_mi nhd_to_mn nhd_to_mo nhd_to_nd nhd_to_sd nhd_to_wi sd_to_comid sd_to_lagos sd_to_mglp sd_to_nhd sd_to_nhdhr wi_to_comid wi_to_lagos wi_to_mglp wi_to_nhd wi_to_nhdhr

#' Crosswalk lake identifiers to/from specific states
#'
#' State specific functions to be used as handy shortcuts.
#' (i.e. you can call a state's function directly rather than specifying
#' \code{local_to_*} or \code{*_to_local} with the state as an argument.
#' One of these functions exists for all combinations of both states and lake
#' ID columns found in \code{lake_id_xref}. For a full list of these functions,
#' see ?all_state_crosswalks
#'
#' @inheritParams crosswalk_lake_id
#'
#' @name state_crosswalks
#'
#' @return A data.frame the same as \code{data}, but with an additional
#' lake identification column from lake_id_xref
#'
#' @examples
#' wi_to_nhdhr(wis_lakes, from_colname = "lake.id")
NULL

#' @rdname state_crosswalks
#' @export
nhdhr_to_wi <- function(data,
                        from_colname = "nhdhr.id",
                        agency = NULL) {
  out <-
    crosswalk_lake_id(
      data,
      from = "nhdhr",
      to = "local",
      from_colname = from_colname,
      states = "wi",
      agency = agency
    )
  return(out)
}

#' @rdname state_crosswalks
#' @export
lagos_to_mi <- function(data,
                        from_colname = "lagos.id",
                        agency = NULL,
                        id_field = NULL) {
  out <-
    crosswalk_lake_id(
      data,
      from = "lagos",
      to = "local",
      from_colname = from_colname,
      states = "mi",
      agency = agency,
      id_field = id_field
    )
  return(out)
}

#' @rdname state_crosswalks
#' @export
mn_to_mglp <- function(data, from_colname, agency = NULL) {
  out <-
    crosswalk_lake_id(
      data,
      from = "local",
      to = "mglp",
      from_colname = from_colname,
      states = "mn",
      agency = agency
    )
  return(out)
}


#' A full list of state crosswalk functions
#'
#' This help file is simply to serve as a full list of all state shortcut
#' crosswalk functions. For functionality and examples, see
#' \code{\link{state_crosswalks}}.
#'
#' @inheritParams crosswalk_lake_id
#'
#' @name all_state_crosswalks
#' @return A data.frame the same as \code{data}, but with an additional
#' lake identification column from lake_id_xref
NULL

#' @rdname all_state_crosswalks
#' @export
comid_to_ia <- function(data,
                        from_colname = "nhd.comid",
                        agency = NULL,
                        id_field = NULL) {
  out <-
    crosswalk_lake_id(
      data,
      from = "comid",
      to = "local",
      from_colname = from_colname,
      states = "ia",
      agency = agency,
      id_field = id_field
    )
  return(out)
}

#' @rdname all_state_crosswalks
#' @export
comid_to_in <- function(data,
                        from_colname = "nhd.comid",
                        agency = NULL) {
  out <-
    crosswalk_lake_id(
      data,
      from = "comid",
      to = "local",
      from_colname = from_colname,
      states = "in",
      agency = agency
    )
  return(out)
}

#' @rdname all_state_crosswalks
#' @export
comid_to_mi <- function(data,
                        from_colname = "nhd.comid",
                        agency = NULL,
                        id_field = NULL) {
  out <-
    crosswalk_lake_id(
      data,
      from = "comid",
      to = "local",
      from_colname = from_colname,
      states = "mi",
      agency = agency,
      id_field = id_field
    )
  return(out)
}

#' @rdname all_state_crosswalks
#' @export
comid_to_mn <- function(data,
                        from_colname = "nhd.comid",
                        agency = NULL) {
  out <-
    crosswalk_lake_id(
      data,
      from = "comid",
      to = "local",
      from_colname = from_colname,
      states = "mn",
      agency = agency
    )
  return(out)
}

#' @rdname all_state_crosswalks
#' @export
comid_to_mo <- function(data,
                        from_colname = "nhd.comid",
                        agency = NULL) {
  out <-
    crosswalk_lake_id(
      data,
      from = "comid",
      to = "local",
      from_colname = from_colname,
      states = "mo",
      agency = agency
    )
  return(out)
}

#' @rdname all_state_crosswalks
#' @export
comid_to_nd <- function(data,
                        from_colname = "nhd.comid",
                        agency = NULL) {
  out <-
    crosswalk_lake_id(
      data,
      from = "comid",
      to = "local",
      from_colname = from_colname,
      states = "nd",
      agency = agency
    )
  return(out)
}

#' @rdname all_state_crosswalks
#' @export
comid_to_sd <- function(data,
                        from_colname = "nhd.comid",
                        agency = NULL) {
  out <-
    crosswalk_lake_id(
      data,
      from = "comid",
      to = "local",
      from_colname = from_colname,
      states = "sd",
      agency = agency
    )
  return(out)
}

#' @rdname all_state_crosswalks
#' @export
comid_to_wi <- function(data,
                        from_colname = "nhd.comid",
                        agency = NULL) {
  out <-
    crosswalk_lake_id(
      data,
      from = "comid",
      to = "local",
      from_colname = from_colname,
      states = "wi",
      agency = agency
    )
  return(out)
}

#' @rdname all_state_crosswalks
#' @export
ia_to_comid <- function(data, from_colname, agency = NULL, id_field = NULL) {
  out <-
    crosswalk_lake_id(
      data,
      from = "local",
      to = "comid",
      from_colname = from_colname,
      states = "ia",
      agency = agency,
      id_field = id_field
    )
  return(out)
}

#' @rdname all_state_crosswalks
#' @export
ia_to_lagos <- function(data, from_colname, agency = NULL, id_field = NULL) {
  out <-
    crosswalk_lake_id(
      data,
      from = "local",
      to = "lagos",
      from_colname = from_colname,
      states = "ia",
      agency = agency,
      id_field = id_field
    )
  return(out)
}

#' @rdname all_state_crosswalks
#' @export
ia_to_mglp <- function(data, from_colname, agency = NULL, id_field = NULL) {
  out <-
    crosswalk_lake_id(
      data,
      from = "local",
      to = "mglp",
      from_colname = from_colname,
      states = "ia",
      agency = agency,
      id_field = id_field
    )
  return(out)
}

#' @rdname all_state_crosswalks
#' @export
ia_to_nhd <- function(data, from_colname, agency = NULL, id_field = NULL) {
  out <-
    crosswalk_lake_id(
      data,
      from = "local",
      to = "nhd",
      from_colname = from_colname,
      states = "ia",
      agency = agency,
      id_field = id_field
    )
  return(out)
}

#' @rdname all_state_crosswalks
#' @export
ia_to_nhdhr <- function(data, from_colname, agency = NULL, id_field = NULL) {
  out <-
    crosswalk_lake_id(
      data,
      from = "local",
      to = "nhdhr",
      from_colname = from_colname,
      states = "ia",
      agency = agency,
      id_field = id_field
    )
  return(out)
}

#' @rdname all_state_crosswalks
#' @export
in_to_comid <- function(data, from_colname, agency = NULL, id_field = NULL) {
  out <-
    crosswalk_lake_id(
      data,
      from = "local",
      to = "comid",
      from_colname = from_colname,
      states = "in",
      agency = agency,
      id_field = id_field
    )
  return(out)
}

#' @rdname all_state_crosswalks
#' @export
in_to_lagos <- function(data, from_colname, agency = NULL) {
  out <-
    crosswalk_lake_id(
      data,
      from = "local",
      to = "lagos",
      from_colname = from_colname,
      states = "in",
      agency = agency
    )
  return(out)
}

#' @rdname all_state_crosswalks
#' @export
in_to_mglp <- function(data, from_colname, agency = NULL) {
  out <-
    crosswalk_lake_id(
      data,
      from = "local",
      to = "mglp",
      from_colname = from_colname,
      states = "in",
      agency = agency
    )
  return(out)
}

#' @rdname all_state_crosswalks
#' @export
in_to_nhd <- function(data, from_colname, agency = NULL) {
  out <-
    crosswalk_lake_id(
      data,
      from = "local",
      to = "nhd",
      from_colname = from_colname,
      states = "in",
      agency = agency
    )
  return(out)
}

#' @rdname all_state_crosswalks
#' @export
in_to_nhdhr <- function(data, from_colname, agency = NULL) {
  out <-
    crosswalk_lake_id(
      data,
      from = "local",
      to = "nhdhr",
      from_colname = from_colname,
      states = "in",
      agency = agency
    )
  return(out)
}

#' @rdname all_state_crosswalks
#' @export
lagos_to_ia <- function(data,
                        from_colname = "lagos.id",
                        agency = NULL,
                        id_field = NULL) {
  out <-
    crosswalk_lake_id(
      data,
      from = "lagos",
      to = "local",
      from_colname = from_colname,
      states = "ia",
      agency = agency,
      id_field = id_field
    )
  return(out)
}

#' @rdname all_state_crosswalks
#' @export
lagos_to_in <- function(data,
                        from_colname = "lagos.id",
                        agency = NULL) {
  out <-
    crosswalk_lake_id(
      data,
      from = "lagos",
      to = "local",
      from_colname = from_colname,
      states = "in",
      agency = agency
    )
  return(out)
}

#' @rdname all_state_crosswalks
#' @export
lagos_to_mn <- function(data,
                        from_colname = "lagos.id",
                        agency = NULL) {
  out <-
    crosswalk_lake_id(
      data,
      from = "lagos",
      to = "local",
      from_colname = from_colname,
      states = "mn",
      agency = agency
    )
  return(out)
}

#' @rdname all_state_crosswalks
#' @export
lagos_to_mo <- function(data,
                        from_colname = "lagos.id",
                        agency = NULL) {
  out <-
    crosswalk_lake_id(
      data,
      from = "lagos",
      to = "local",
      from_colname = from_colname,
      states = "mo",
      agency = agency
    )
  return(out)
}

#' @rdname all_state_crosswalks
#' @export
lagos_to_nd <- function(data,
                        from_colname = "lagos.id",
                        agency = NULL) {
  out <-
    crosswalk_lake_id(
      data,
      from = "lagos",
      to = "local",
      from_colname = from_colname,
      states = "nd",
      agency = agency
    )
  return(out)
}

#' @rdname all_state_crosswalks
#' @export
lagos_to_sd <- function(data,
                        from_colname = "lagos.id",
                        agency = NULL) {
  out <-
    crosswalk_lake_id(
      data,
      from = "lagos",
      to = "local",
      from_colname = from_colname,
      states = "sd",
      agency = agency
    )
  return(out)
}

#' @rdname all_state_crosswalks
#' @export
lagos_to_wi <- function(data,
                        from_colname = "lagos.id",
                        agency = NULL) {
  out <-
    crosswalk_lake_id(
      data,
      from = "lagos",
      to = "local",
      from_colname = from_colname,
      states = "wi",
      agency = agency
    )
  return(out)
}

#' @rdname all_state_crosswalks
#' @export
mglp_to_ia <- function(data,
                       from_colname = "mglp.id",
                       agency = NULL,
                       id_field = NULL) {
  out <-
    crosswalk_lake_id(
      data,
      from = "mglp",
      to = "local",
      from_colname = from_colname,
      states = "ia",
      agency = agency,
      id_field = id_field
    )
  return(out)
}

#' @rdname all_state_crosswalks
#' @export
mglp_to_in <- function(data,
                       from_colname = "mglp.id",
                       agency = NULL) {
  out <-
    crosswalk_lake_id(
      data,
      from = "mglp",
      to = "local",
      from_colname = from_colname,
      states = "in",
      agency = agency
    )
  return(out)
}

#' @rdname all_state_crosswalks
#' @export
mglp_to_mi <- function(data,
                       from_colname = "mglp.id",
                       agency = NULL,
                       id_field = NULL) {
  out <-
    crosswalk_lake_id(
      data,
      from = "mglp",
      to = "local",
      from_colname = from_colname,
      states = "mi",
      agency = agency,
      id_field = id_field
    )
  return(out)
}

#' @rdname all_state_crosswalks
#' @export
mglp_to_mn <- function(data,
                       from_colname = "mglp.id",
                       agency = NULL) {
  out <-
    crosswalk_lake_id(
      data,
      from = "mglp",
      to = "local",
      from_colname = from_colname,
      states = "mn",
      agency = agency
    )
  return(out)
}

#' @rdname all_state_crosswalks
#' @export
mglp_to_mo <- function(data,
                       from_colname = "mglp.id",
                       agency = NULL) {
  out <-
    crosswalk_lake_id(
      data,
      from = "mglp",
      to = "local",
      from_colname = from_colname,
      states = "mo",
      agency = agency
    )
  return(out)
}

#' @rdname all_state_crosswalks
#' @export
mglp_to_nd <- function(data,
                       from_colname = "mglp.id",
                       agency = NULL) {
  out <-
    crosswalk_lake_id(
      data,
      from = "mglp",
      to = "local",
      from_colname = from_colname,
      states = "nd",
      agency = agency
    )
  return(out)
}

#' @rdname all_state_crosswalks
#' @export
mglp_to_sd <- function(data,
                       from_colname = "mglp.id",
                       agency = NULL) {
  out <-
    crosswalk_lake_id(
      data,
      from = "mglp",
      to = "local",
      from_colname = from_colname,
      states = "sd",
      agency = agency
    )
  return(out)
}

#' @rdname all_state_crosswalks
#' @export
mglp_to_wi <- function(data,
                       from_colname = "mglp.id",
                       agency = NULL) {
  out <-
    crosswalk_lake_id(
      data,
      from = "mglp",
      to = "local",
      from_colname = from_colname,
      states = "wi",
      agency = agency
    )
  return(out)
}

#' @rdname all_state_crosswalks
#' @export
mi_to_comid <- function(data, from_colname, agency = NULL, id_field = NULL) {
  out <-
    crosswalk_lake_id(
      data,
      from = "local",
      to = "comid",
      from_colname = from_colname,
      states = "mi",
      agency = agency,
      id_field = id_field
    )
  return(out)
}

#' @rdname all_state_crosswalks
#' @export
mi_to_lagos <- function(data, from_colname, agency = NULL, id_field = NULL) {
  out <-
    crosswalk_lake_id(
      data,
      from = "local",
      to = "lagos",
      from_colname = from_colname,
      states = "mi",
      agency = agency,
      id_field = id_field
    )
  return(out)
}

#' @rdname all_state_crosswalks
#' @export
mi_to_mglp <- function(data, from_colname, agency = NULL, id_field = NULL) {
  out <-
    crosswalk_lake_id(
      data,
      from = "local",
      to = "mglp",
      from_colname = from_colname,
      states = "mi",
      agency = agency,
      id_field = id_field
    )
  return(out)
}

#' @rdname all_state_crosswalks
#' @export
mi_to_nhd <- function(data, from_colname, agency = NULL, id_field = NULL) {
  out <-
    crosswalk_lake_id(
      data,
      from = "local",
      to = "nhd",
      from_colname = from_colname,
      states = "mi",
      agency = agency,
      id_field = id_field
    )
  return(out)
}

#' @rdname all_state_crosswalks
#' @export
mi_to_nhdhr <- function(data, from_colname, agency = NULL, id_field = NULL) {
  out <-
    crosswalk_lake_id(
      data,
      from = "local",
      to = "nhdhr",
      from_colname = from_colname,
      states = "mi",
      agency = agency,
      id_field = id_field
    )
  return(out)
}

#' @rdname all_state_crosswalks
#' @export
mn_to_comid <- function(data, from_colname, agency = NULL) {
  out <-
    crosswalk_lake_id(
      data,
      from = "local",
      to = "comid",
      from_colname = from_colname,
      states = "mn",
      agency = agency
    )
  return(out)
}

#' @rdname all_state_crosswalks
#' @export
mn_to_lagos <- function(data, from_colname, agency = NULL) {
  out <-
    crosswalk_lake_id(
      data,
      from = "local",
      to = "lagos",
      from_colname = from_colname,
      states = "mn",
      agency = agency
    )
  return(out)
}

#' @rdname all_state_crosswalks
#' @export
mn_to_nhd <- function(data, from_colname, agency = NULL) {
  out <-
    crosswalk_lake_id(
      data,
      from = "local",
      to = "nhd",
      from_colname = from_colname,
      states = "mn",
      agency = agency
    )
  return(out)
}

#' @rdname all_state_crosswalks
#' @export
mn_to_nhdhr <- function(data, from_colname, agency = NULL) {
  out <-
    crosswalk_lake_id(
      data,
      from = "local",
      to = "nhdhr",
      from_colname = from_colname,
      states = "mn",
      agency = agency
    )
  return(out)
}

#' @rdname all_state_crosswalks
#' @export
mo_to_comid <- function(data, from_colname, agency = NULL) {
  out <-
    crosswalk_lake_id(
      data,
      from = "local",
      to = "comid",
      from_colname = from_colname,
      states = "mo",
      agency = agency
    )
  return(out)
}

#' @rdname all_state_crosswalks
#' @export
mo_to_lagos <- function(data, from_colname, agency = NULL) {
  out <-
    crosswalk_lake_id(
      data,
      from = "local",
      to = "lagos",
      from_colname = from_colname,
      states = "mo",
      agency = agency
    )
  return(out)
}

#' @rdname all_state_crosswalks
#' @export
mo_to_mglp <- function(data, from_colname, agency = NULL) {
  out <-
    crosswalk_lake_id(
      data,
      from = "local",
      to = "mglp",
      from_colname = from_colname,
      states = "mo",
      agency = agency
    )
  return(out)
}

#' @rdname all_state_crosswalks
#' @export
mo_to_nhd <- function(data, from_colname, agency = NULL) {
  out <-
    crosswalk_lake_id(
      data,
      from = "local",
      to = "nhd",
      from_colname = from_colname,
      states = "mo",
      agency = agency
    )
  return(out)
}

#' @rdname all_state_crosswalks
#' @export
mo_to_nhdhr <- function(data, from_colname, agency = NULL) {
  out <-
    crosswalk_lake_id(
      data,
      from = "local",
      to = "nhdhr",
      from_colname = from_colname,
      states = "mo",
      agency = agency
    )
  return(out)
}

#' @rdname all_state_crosswalks
#' @export
nd_to_comid <- function(data, from_colname, agency = NULL) {
  out <-
    crosswalk_lake_id(
      data,
      from = "local",
      to = "comid",
      from_colname = from_colname,
      states = "nd",
      agency = agency
    )
  return(out)
}

#' @rdname all_state_crosswalks
#' @export
nd_to_lagos <- function(data, from_colname, agency = NULL) {
  out <-
    crosswalk_lake_id(
      data,
      from = "local",
      to = "lagos",
      from_colname = from_colname,
      states = "nd",
      agency = agency
    )
  return(out)
}

#' @rdname all_state_crosswalks
#' @export
nd_to_mglp <- function(data, from_colname, agency = NULL) {
  out <-
    crosswalk_lake_id(
      data,
      from = "local",
      to = "mglp",
      from_colname = from_colname,
      states = "nd",
      agency = agency
    )
  return(out)
}

#' @rdname all_state_crosswalks
#' @export
nd_to_nhd <- function(data, from_colname, agency = NULL) {
  out <-
    crosswalk_lake_id(
      data,
      from = "local",
      to = "nhd",
      from_colname = from_colname,
      states = "nd",
      agency = agency
    )
  return(out)
}

#' @rdname all_state_crosswalks
#' @export
nd_to_nhdhr <- function(data, from_colname, agency = NULL) {
  out <-
    crosswalk_lake_id(
      data,
      from = "local",
      to = "nhdhr",
      from_colname = from_colname,
      states = "nd",
      agency = agency
    )
  return(out)
}

#' @rdname all_state_crosswalks
#' @export
nhd_to_ia <- function(data,
                      from_colname = "nhd.id",
                      states = NULL,
                      agency = NULL,
                      id_field = NULL) {
  out <-
    crosswalk_lake_id(
      data,
      from = "nhd",
      to = "local",
      from_colname = from_colname,
      states = "ia",
      agency = agency,
      id_field = id_field
    )
  return(out)
}

#' @rdname all_state_crosswalks
#' @export
nhd_to_in <- function(data,
                      from_colname = "nhd.id",
                      states = NULL,
                      agency = NULL) {
  out <-
    crosswalk_lake_id(
      data,
      from = "nhd",
      to = "local",
      from_colname = from_colname,
      states = "in",
      agency = agency
    )
  return(out)
}

#' @rdname all_state_crosswalks
#' @export
nhd_to_mi <- function(data,
                      from_colname = "nhd.id",
                      states = NULL,
                      agency = NULL,
                      id_field = NULL) {
  out <-
    crosswalk_lake_id(
      data,
      from = "nhd",
      to = "local",
      from_colname = from_colname,
      states = "mi",
      agency = agency,
      id_field = id_field
    )
  return(out)
}

#' @rdname all_state_crosswalks
#' @export
nhd_to_mn <- function(data,
                      from_colname = "nhd.id",
                      states = NULL,
                      agency = NULL) {
  out <-
    crosswalk_lake_id(
      data,
      from = "nhd",
      to = "local",
      from_colname = from_colname,
      states = "mn",
      agency = agency
    )
  return(out)
}

#' @rdname all_state_crosswalks
#' @export
nhd_to_mo <- function(data,
                      from_colname = "nhd.id",
                      states = NULL,
                      agency = NULL) {
  out <-
    crosswalk_lake_id(
      data,
      from = "nhd",
      to = "local",
      from_colname = from_colname,
      states = "mo",
      agency = agency
    )
  return(out)
}

#' @rdname all_state_crosswalks
#' @export
nhd_to_nd <- function(data,
                      from_colname = "nhd.id",
                      states = NULL,
                      agency = NULL) {
  out <-
    crosswalk_lake_id(
      data,
      from = "nhd",
      to = "local",
      from_colname = from_colname,
      states = "nd",
      agency = agency
    )
  return(out)
}

#' @rdname all_state_crosswalks
#' @export
nhd_to_sd <- function(data,
                      from_colname = "nhd.id",
                      states = NULL,
                      agency = NULL) {
  out <-
    crosswalk_lake_id(
      data,
      from = "nhd",
      to = "local",
      from_colname = from_colname,
      states = "sd",
      agency = agency
    )
  return(out)
}

#' @rdname all_state_crosswalks
#' @export
nhd_to_wi <- function(data,
                      from_colname = "nhd.id",
                      states = NULL,
                      agency = NULL) {
  out <-
    crosswalk_lake_id(
      data,
      from = "nhd",
      to = "local",
      from_colname = from_colname,
      states = "wi",
      agency = agency
    )
  return(out)
}

#' @rdname all_state_crosswalks
#' @export
nhdhr_to_ia <- function(data,
                        from_colname = "nhdhr.id",
                        agency = NULL,
                        id_field = NULL) {
  out <-
    crosswalk_lake_id(
      data,
      from = "nhdhr",
      to = "local",
      from_colname = from_colname,
      states = "ia",
      agency = agency,
      id_field = id_field
    )
  return(out)
}

#' @rdname all_state_crosswalks
#' @export
nhdhr_to_in <- function(data,
                        from_colname = "nhdhr.id",
                        agency = NULL) {
  out <-
    crosswalk_lake_id(
      data,
      from = "nhdhr",
      to = "local",
      from_colname = from_colname,
      states = "in",
      agency = agency
    )
  return(out)
}

#' @rdname all_state_crosswalks
#' @export
nhdhr_to_mi <- function(data,
                        from_colname = "nhdhr.id",
                        agency = NULL,
                        id_field = NULL) {
  out <-
    crosswalk_lake_id(
      data,
      from = "nhdhr",
      to = "local",
      from_colname = from_colname,
      states = "mi",
      agency = agency,
      id_field = id_field
    )
  return(out)
}

#' @rdname all_state_crosswalks
#' @export
nhdhr_to_mn <- function(data,
                        from_colname = "nhdhr.id",
                        agency = NULL) {
  out <-
    crosswalk_lake_id(
      data,
      from = "nhdhr",
      to = "local",
      from_colname = from_colname,
      states = "mn",
      agency = agency
    )
  return(out)
}

#' @rdname all_state_crosswalks
#' @export
nhdhr_to_mo <- function(data,
                        from_colname = "nhdhr.id",
                        agency = NULL) {
  out <-
    crosswalk_lake_id(
      data,
      from = "nhdhr",
      to = "local",
      from_colname = from_colname,
      states = "mo",
      agency = agency
    )
  return(out)
}

#' @rdname all_state_crosswalks
#' @export
nhdhr_to_nd <- function(data,
                        from_colname = "nhdhr.id",
                        agency = NULL) {
  out <-
    crosswalk_lake_id(
      data,
      from = "nhdhr",
      to = "local",
      from_colname = from_colname,
      states = "nd",
      agency = agency
    )
  return(out)
}

#' @rdname all_state_crosswalks
#' @export
nhdhr_to_sd <- function(data,
                        from_colname = "nhdhr.id",
                        agency = NULL) {
  out <-
    crosswalk_lake_id(
      data,
      from = "nhdhr",
      to = "local",
      from_colname = from_colname,
      states = "sd",
      agency = agency
    )
  return(out)
}

#' @rdname all_state_crosswalks
#' @export
sd_to_comid <- function(data, from_colname, agency = NULL) {
  out <-
    crosswalk_lake_id(
      data,
      from = "local",
      to = "comid",
      from_colname = from_colname,
      states = "sd",
      agency = agency
    )
  return(out)
}

#' @rdname all_state_crosswalks
#' @export
sd_to_lagos <- function(data, from_colname, agency = NULL) {
  out <-
    crosswalk_lake_id(
      data,
      from = "local",
      to = "lagos",
      from_colname = from_colname,
      states = "sd",
      agency = agency
    )
  return(out)
}

#' @rdname all_state_crosswalks
#' @export
sd_to_mglp <- function(data, from_colname, agency = NULL) {
  out <-
    crosswalk_lake_id(
      data,
      from = "local",
      to = "mglp",
      from_colname = from_colname,
      states = "sd",
      agency = agency
    )
  return(out)
}

#' @rdname all_state_crosswalks
#' @export
sd_to_nhd <- function(data, from_colname, agency = NULL) {
  out <-
    crosswalk_lake_id(
      data,
      from = "local",
      to = "nhd",
      from_colname = from_colname,
      states = "sd",
      agency = agency
    )
  return(out)
}

#' @rdname all_state_crosswalks
#' @export
sd_to_nhdhr <- function(data, from_colname, agency = NULL) {
  out <-
    crosswalk_lake_id(
      data,
      from = "local",
      to = "nhdhr",
      from_colname = from_colname,
      states = "sd",
      agency = agency
    )
  return(out)
}

#' @rdname all_state_crosswalks
#' @export
wi_to_comid <- function(data, from_colname, agency = NULL) {
  out <-
    crosswalk_lake_id(
      data,
      from = "local",
      to = "comid",
      from_colname = from_colname,
      states = "wi",
      agency = agency
    )
  return(out)
}

#' @rdname all_state_crosswalks
#' @export
wi_to_lagos <- function(data, from_colname, agency = NULL) {
  out <-
    crosswalk_lake_id(
      data,
      from = "local",
      to = "lagos",
      from_colname = from_colname,
      states = "wi",
      agency = agency
    )
  return(out)
}

#' @rdname all_state_crosswalks
#' @export
wi_to_mglp <- function(data, from_colname, agency = NULL) {
  out <-
    crosswalk_lake_id(
      data,
      from = "local",
      to = "mglp",
      from_colname = from_colname,
      states = "wi",
      agency = agency
    )
  return(out)
}

#' @rdname all_state_crosswalks
#' @export
wi_to_nhd <- function(data, from_colname, agency = NULL) {
  out <-
    crosswalk_lake_id(
      data,
      from = "local",
      to = "nhd",
      from_colname = from_colname,
      states = "wi",
      agency = agency
    )
  return(out)
}

#' @rdname all_state_crosswalks
#' @export
wi_to_nhdhr <- function(data, from_colname, agency = NULL) {
  out <-
    crosswalk_lake_id(
      data,
      from = "local",
      to = "nhdhr",
      from_colname = from_colname,
      states = "wi",
      agency = agency
    )
  return(out)
}
Any scripts or data that you put into this service are public.
mwlaxeref documentation built on May 29, 2024, 9 a.m.
rdrr.io home R language documentation Run R code online
CRAN packages Bioconductor packages R-Forge packages GitHub packages
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
mwlaxeref
Cross-References Lake Identifiers Between Different Data Sets

R/crosswalk_lakes_by_state.R
In mwlaxeref: Cross-References Lake Identifiers Between Different Data Sets

Try the mwlaxeref package in your browser

R Package Documentation

Browse R Packages

We want your feedback!

mwlaxeref Cross-References Lake Identifiers Between Different Data Sets

R/crosswalk_lakes_by_state.R In mwlaxeref: Cross-References Lake Identifiers Between Different Data Sets

Try the mwlaxeref package in your browser

R Package Documentation

Browse R Packages

We want your feedback!

mwlaxeref
Cross-References Lake Identifiers Between Different Data Sets

R/crosswalk_lakes_by_state.R
In mwlaxeref: Cross-References Lake Identifiers Between Different Data Sets
