Skip to contents

Retrieve marine biotoxin data from IOC-UNESCO Toxins Database

Source: R/hab_api_functions.R
get_toxin_list.Rd

This function collects data from the IOC-UNESCO Toxins Database and returns information about toxins.

Usage

get_toxin_list(return_count = FALSE)

Arguments

return_count

Logical. If TRUE, the function returns the count of toxins available in the database. If FALSE (default), it returns detailed toxin data.

Value

If return_count = TRUE, the function returns a numeric value representing the number of toxins in the database. Otherwise, it returns a tibble of toxins with detailed information.

See also

https://toxins.hais.ioc-unesco.org/ for IOC-UNESCO Toxins Database.

Examples

# \donttest{
# Retrieve the full list of toxins
try(toxin_list <- get_toxin_list())
if (exists("toxin_list")) head(toxin_list)
#> # A tibble: 6 × 55
#>      id toxin_group recommended_name synonyms recommended_acronym acronyms
#>   <int> <chr>       <chr>            <list>   <chr>               <list>  
#> 1   624 Azaspiracid Azaspiracid-68   <NULL>   AZA-68              <NULL>  
#> 2   623 Azaspiracid Azaspiracid-67   <NULL>   AZA-67              <NULL>  
#> 3   622 Azaspiracid Azaspiracid-66   <NULL>   AZA-66              <NULL>  
#> 4   621 Azaspiracid Azaspiracid-65   <NULL>   AZA-65              <NULL>  
#> 5   620 Azaspiracid Azaspiracid-61   <NULL>   AZA-61              <NULL>  
#> 6   619 Azaspiracid Azaspiracid-60   <NULL>   AZA-60              <NULL>  
#> # ℹ 49 more variables: cas_number <chr>, alternative_cas_numbers <list>,
#> #   formula <chr>, exact_mono_isotopic_mass <dbl>, molfile <chr>,
#> #   alternative_molfiles <lgl>, smiles <chr>, alternative_smiles <list>,
#> #   inchi_key <chr>, alternative_inchi_keys <list>, inchi <chr>,
#> #   alternative_inchies <lgl>, spectra_available <lgl>, certified <lgl>,
#> #   non_certified_reference_material <lgl>, chemical_analysis_research <lgl>,
#> #   chemical_analysis_standardized <lgl>, chemical_analysis_validated <lgl>, …

# Retrieve only the count of toxins
try(toxin_count <- get_toxin_list(return_count = TRUE))
if (exists("toxin_count")) print(toxin_count)
#> [1] 536
# }