Get commodity balance sheet item codes from item names

Add a new column to an existing tibble with the corresponding code for each commodity balance sheet item name. The codes are assumed to be from those defined by FAOSTAT.

Usage

add_item_cbs_code(
  table,
  name_column = "item_cbs_name",
  code_column = "item_cbs_code"
)

Arguments

table

The table that will be modified with a new column.

name_column

The name of the column in table containing the names.

code_column

The name of the output column containing the codes.

Value

A tibble with all the contents of table and an extra column named code_column, which contains the codes. If there is no code match, an NA is included.

Examples

table <- tibble::tibble(
  item_cbs_name = c("Cottonseed", "Eggs", "Dummy Item")
)
add_item_cbs_code(table)
#> # A tibble: 3 × 2
#>   item_cbs_name item_cbs_code
#>   <chr>                 <dbl>
#> 1 Cottonseed             2559
#> 2 Eggs                   2744
#> 3 Dummy Item               NA

table |>
  dplyr::rename(my_item_cbs_name = item_cbs_name) |>
  add_item_cbs_code(name_column = "my_item_cbs_name")
#> # A tibble: 3 × 2
#>   my_item_cbs_name item_cbs_code
#>   <chr>                    <dbl>
#> 1 Cottonseed                2559
#> 2 Eggs                      2744
#> 3 Dummy Item                  NA

add_item_cbs_code(table, code_column = "my_custom_code")
#> # A tibble: 3 × 2
#>   item_cbs_name my_custom_code
#>   <chr>                  <dbl>
#> 1 Cottonseed              2559
#> 2 Eggs                    2744
#> 3 Dummy Item                NA