Map TRS path to JECFA

Usage

compose_maptojecfa(x)

Arguments

x: (chr) TRS path

Value

(tibble) JECFA ID and file

Examples

# only record 10 and 11 has TRS
jecfa_sample <- c(1, 10, 11) |>
  purrr::map(\(id) compose_jecfa_list(id) |> get_result()) |>
  create_df() |>
  process_df() |>
  add_metadata()

 # id 2 and 3 of the provided db (record 10, and 11) has TRS and
 # are reported in the resulting tibble
 jecfa_sample |>
  compose_urls() |>
  remove_null_urls() |>
  compose_filepaths(tempdir()) |>
  compose_maptojecfa()
#> Warning: Condition not satisfied, skipping...
#> # A tibble: 2 × 2
#>   ref_id file       
#>    <int> <chr>      
#> 1      2 TRS_868.pdf
#> 2      3 NMRS_38.pdf