crosswalk {eunis.habitats}

Convert habitat codes

Description

Convert (crosswalk) habitat codes from, and to, the following habitat classification systems:

• EUNIS habitat classification: "EUNIS_2012", "EUNIS_M_2019", "EUNIS_M_2022" and "EUNIS_T_2021". See eunis_habitats for these habitat codes, names and descriptions.

• European Red List of Habitats: "RL".

• Habitats Directive Annex I: "Annex_I".

Note that not all pairwise combinations are available. The possibilities are those originally provided in EUNIS raw data.

Usage

crosswalk(code, from, to, unnest = FALSE)

Arguments

code

A character vector of habitat codes. These values should be existing codes in the classification system indicated in the from parameter.

from

The source classification system. Should be one of: "EUNIS_2012", "EUNIS_M_2019", "EUNIS_M_2022", "EUNIS_T_2021", "RL" or "Annex_I".

to

The target classification system. Also, one of the options indicated in from parameter description.

unnest

Whether to unnest the "to" column in the output. Note that if you do unnest then the number of rows in the output will be (potentially) greater than the number of habitat codes provided in the parameter code, meaning that the one-to-many crosswalks will be on one row each.

Value

A tibble of two variables with the from and to codes, respectively. The actual column names will vary according to the specific crosswalk queried, see Examples.

Examples

# From EUNIS 2012 to EUNIS Marine 2022
crosswalk(
  code = c("A3.4", "A3.5"),
  from = "EUNIS_2012",
  to = "EUNIS_M_2022",
  unnest = TRUE
)

# From EUNIS Marine 2019 to EUNIS 2012
crosswalk(
code = c("MH152", "MH2331"),
from = "EUNIS_M_2019",
to = "EUNIS_2012",
unnest = TRUE
)

# From EUNIS Marine 2022 to Red List
crosswalk(
code = c("MH152", "MH2331", "MA146", "MD55"),
from = "EUNIS_M_2022",
to = "RL",
unnest = TRUE
)

# From EUNIS Marine 2019 to Annex I
crosswalk(
code = c("M", "MA1", "MA11", "MA12"),
from = "EUNIS_M_2019",
to = "Annex_I", unnest = TRUE
)

# From Annex I to EUNIS Marine 2019
crosswalk(
code = c("8330", "1160"),
from = "Annex_I",
to = "EUNIS_M_2019", unnest = TRUE
)

# From EUNIS Terrestrial 2021 to Annex I
crosswalk(
code = c("U51", "U72", "Q25"),
from = "EUNIS_T_2021",
to = "Annex_I", unnest = TRUE
)

# From Annex I to EUNIS Terrestrial 2021
crosswalk(
  code = c("91E0", "92A0", "9030"),
  from = "Annex_I",
  to = "EUNIS_T_2021", unnest = TRUE
  )