Retrieve how stakes are classified in evolution

Usage

retrieve_stake_evo(stake = NULL, type = "damage")

Arguments

stake: character, vector of stakes
type: character, type of stakes (damage or complement)

Value

character vector corresponding to the classification

Author

Frédéric Grelot, frederic.grelot.1994_cran@m4x.org

Examples


stake_dam = getOption("floodam.cba")[["stake_dam_admissible"]]
stake_com = getOption("floodam.cba")[["stake_com_admissible"]]
floodam.cba:::retrieve_stake_evo(stake_dam)
#> [1] "urban" "rural" "urban" "urban" "urban" "other" "other"
floodam.cba:::retrieve_stake_evo(stake_com, type = "com")
#>  [1] "urban" "urban" "rural" "rural" "rural" "urban" "urban" "urban" "urban"
#> [10] "other"
floodam.cba:::retrieve_stake_evo(stake_com) # Need to mention that input is stake_com
#>  [1] NA      NA      NA      NA      NA      NA      NA      NA      "urban"
#> [10] NA