Skip to contents

Get animal project data

Source: R/get_animal_projects.R
get_animal_projects.Rd

Get data for animal projects, with options to filter results.

Usage

get_animal_projects(connection, animal_project_code = NULL, citation = FALSE)

Arguments

connection

[Deprecated] A connection to the ETN database. This argument is no longer used. You will be prompted for credentials instead.

animal_project_code

Character (vector). One or more animal project codes. Case-insensitive.

citation

Logical. If TRUE, adds extra columns with citation information for each project from MarineInfo using the imis_dataset_id:

  • citation: Formatted citation with DOI if available.

  • doi: DOI for the dataset if available.

  • contact_name: Contact person, usually the first author. If no contact person is provided, the first author with status creator.

  • contact_email: Email address of the contact person.

  • contact_affiliation: Institute of the contact person.

Value

A tibble with animal project data, sorted by project_code.

See also

Other access functions: get_acoustic_deployments(), get_acoustic_detections(), get_acoustic_projects(), get_acoustic_receivers(), get_animals(), get_cpod_projects(), get_package(), get_tags()

Examples

# Get all animal projects
get_animal_projects()
#> # A tibble: 359 × 11
#>    project_id project_code   project_type telemetry_type project_name start_date
#>         <int> <chr>          <chr>        <chr>          <chr>        <date>    
#>  1        793 2004_Gudena    animal       Acoustic       Silver eel … 2004-01-01
#>  2         16 2010_phd_reub… animal       Acoustic       2010_phd_re… 2010-08-01
#>  3        841 2010_phd_reub… animal       Acoustic       2010_phd_re… 2010-08-01
#>  4        760 2011_Loire     animal       Acoustic       2011_Loire   2011-11-11
#>  5        754 2011_Warnow    animal       Acoustic       Silver eel … 2011-06-01
#>  6         20 2011_rivierpr… animal       Acoustic       2011 Rivier… 2011-01-01
#>  7         15 2012_leopoldk… animal       Acoustic       2012 Leopol… 2012-01-01
#>  8        757 2013_Foyle     animal       Acoustic       2013_Foyle   2013-07-01
#>  9         18 2013_albertka… animal       Acoustic       2013 Albert… 2013-10-10
#> 10        801 2014_Frome     animal       NA             2014_Frome   2014-10-01
#> # ℹ 349 more rows
#> # ℹ 5 more variables: end_date <date>, latitude <dbl>, longitude <dbl>,
#> #   moratorium <lgl>, imis_dataset_id <int>

# Get a specific animal project with citation
get_animal_projects(animal_project_code = "2014_demer", citation = TRUE)
#> # A tibble: 1 × 16
#>   project_id project_code project_type telemetry_type project_name start_date
#>        <int> <chr>        <chr>        <chr>          <chr>        <date>    
#> 1         21 2014_demer   animal       Acoustic       2014 Demer   2014-04-10
#> # ℹ 10 more variables: end_date <date>, latitude <dbl>, longitude <dbl>,
#> #   moratorium <lgl>, imis_dataset_id <int>, citation <chr>, doi <chr>,
#> #   contact_name <chr>, contact_email <chr>, contact_affiliation <chr>