Non-official R interface for wikiaves API, that retrieve sounds from its repository (no images supported yet). The goal of wikiaves R package is to aid analysis and data-driven projects.
Attention This package is on a VERY EARLY development stage. Expect things to change a lot! And any help is wellcome =).
Installation
You can install the development version from GitHub with:
The released version of wikiaves from CRAN will be available soon.
Example
This is a basic example which shows you how to fetch metadata from registers in wikiaves:
library(wikiaves)
library(dplyr)
# fetching metadata in a tidy tibble
birds_metadata <- wa_metadata(c("Querula purpurata", "Cotin"))
#> IDs found from terms:
#> id = 11387 (from term 'Querula purpurata')
#> id = 11371 (from term 'Cotin')
#> id = 11369 (from term 'Cotin')
#> id = 11368 (from term 'Cotin')
#> id = 11382 (from term 'Cotin')
#> id = 1501 (from term 'Cotin')
#> id = 1508 (from term 'Cotin')
#> id = 1980 (from term 'Cotin')
#> id = 11370 (from term 'Cotin')
#> id = 11385 (from term 'Cotin')
#> id = 11381 (from term 'Cotin')
#> id = 11384 (from term 'Cotin')
#> id = 11367 (from term 'Cotin')
#> id = 11437 (from term 'Cotin')
#> id = 11388 (from term 'Cotin')
#> id = 11386 (from term 'Cotin')
#> Id 11371 has 2 registers.
#> Id 11369 has 3 registers.
#> Id 11368 has 1 registers.
#> Id 11382 has 2 registers.
#> Id 1501 has 0 registers.
#> Id 1508 has 0 registers.
#> Id 1980 has 0 registers.
#> Id 11370 has 2 registers.
#> Id 11385 has 14 registers.
#> Id 11381 has 16 registers.
#> Id 11384 has 12 registers.
#> Id 11367 has 2 registers.
#> Id 11437 has 2 registers.
#> Id 11388 has 4 registers.
#> Id 11386 has 0 registers.
#> 130 registers fetched from 16 distinct IDs.Metadata in a tidy tibble.
glimpse(birds_metadata)
#> Observations: 130
#> Variables: 35
#> $ term <chr> "Querula purpurata", "Querula purpurata", "Querul…
#> $ id <chr> "11387", "11387", "11387", "11387", "11387", "113…
#> $ wid <chr> "anambe-una", "anambe-una", "anambe-una", "anambe…
#> $ label <chr> "Querula purpurata", "Querula purpurata", "Querul…
#> $ nome <chr> "anambé-una", "anambé-una", "anambé-una", "anambé…
#> $ sp <int> 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1…
#> $ tax <chr> "Espécie", "Espécie", "Espécie", "Espécie", "Espé…
#> $ class <chr> "sp", "sp", "sp", "sp", "sp", "sp", "sp", "sp", "…
#> $ ds <chr> "1", "1", "1", "1", "1", "1", "1", "1", "1", "1",…
#> $ titulo <chr> "Sons de anambé-una (<i>Querula purpurata</i>)", …
#> $ link <chr> "registros.php?tm=s&t=s&s=11387&o=mp&p=1", "regis…
#> $ total <chr> "66", "66", "66", "66", "66", "66", "66", "66", "…
#> $ id1 <int> 63502, 581487, 177088, 115628, 2137891, 1697896, …
#> $ tipo <chr> "S", "S", "S", "S", "S", "S", "S", "S", "S", "S",…
#> $ id_usuario <chr> "", "", "", "", "", "", "", "", "", "", "", "", "…
#> $ sp.id <chr> "11387", "11387", "11387", "11387", "11387", "113…
#> $ sp.nome <chr> "Querula purpurata", "Querula purpurata", "Querul…
#> $ sp.nvt <chr> "anambé-una", "anambé-una", "anambé-una", "anambé…
#> $ sp.idwiki <chr> "anambe-una", "anambe-una", "anambe-una", "anambe…
#> $ autor <chr> "Thiago V. V. Costa", "Eduardo Patrial", "Bruno R…
#> $ por <chr> "Por", "Por", "Por", "Por", "Por", "Por", "Por", …
#> $ perfil <chr> "tvvc", "Patrial", "brunoornitologia", "kurazooka…
#> $ data <chr> "14/04/2009", "12/02/2012", "12/02/2010", "03/03/…
#> $ is_questionada <lgl> FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, …
#> $ local <chr> "Eirunepé/AM", "Nova Canaã do Norte/MT", "Santa B…
#> $ idMunicipio <int> 1301407, 5106216, 1506351, 1600279, 1717503, 1507…
#> $ coms <int> 1, 1, 2, 1, 1, 0, 2, 1, 0, 0, 1, 1, 0, 1, 1, 0, 1…
#> $ likes <int> 17, 10, 3, 3, 2, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1,…
#> $ vis <int> 591, 115, 45, 19, 8, 2, 12, 1, 18, 28, 34, 2, 5, …
#> $ grande <chr> "F", "F", "F", "F", "F", "F", "F", "F", "F", "F",…
#> $ enviado <chr> "0 minutos", "0 minutos", "0 minutos", "0 minutos…
#> $ link1 <chr> "https://s3.amazonaws.com/media.wikiaves.com.br/r…
#> $ dura <chr> "15s", "28s", "1m18s", "21s", "40s", "22s", "18s"…
#> $ mp3_name <chr> "Querula-purpurata-63502.mp3", "Querula-purpurata…
#> $ mp3_link <chr> "https://s3.amazonaws.com/media.wikiaves.com.br/r…Acknowledgement
This package is part of a larger project called “Automatic acoustic detectors of night bird species in their natural biome”, oriented by Professor Doctor Linilson Padovese and co-oriented by Professor Doctor Paulo Hubert. This project aims to build machine learning systems in the context of bird identification.
Contributor Code of Conduct
Please note that the ‘wikiaves’ project is released with a Contributor Code of Conduct. By contributing to this project, you agree to abide by its terms.
