bioacoustica.getAnnotationFile: Downloads an annotated section of a recording

In BioAcoustica/bioacousticaR: Provides access to the BioAcoustica platform through R

Description

This fucntion wil download and trim a recording to match an annotated section of recording on BioAcoustica.

Usage

bioacoustica.getAnnotationFile(annotation_id, c, data=bioacoustica::bioacoustica.getAnnotations(c))

Arguments

annotation_id	The annotation ID of the annotation on BioAcoustica.
c	An authenticated CURL handle.
data	Annotation data. Previosuly downloaded annotation downloads can be passed to the function to prevent multiple calls to BioAcoustica which may cause access to be tmeporarily suspended. If not provided the annotation data will be downloaded from BioAcoustica.

Value

The filename to a downloaded sound recording.

Author(s)

Ed Baker

Examples

##---- Should be DIRECTLY executable !! ----
##-- ==>  Define data, use random,
##--	or do  help(data=index)  for the standard data sets.

## The function is currently defined as
function(annotation_id, c) {
  a <- bioacoustica::bioacoustica.getAnnotations(c);
  file <- as.character(subset(a, 
                              a$id==annotation_id,
                              select="file")[1,1]);
  parts <- strsplit(file, "/");
  filename <- parts[[1]][7];
  #TODO: CHange to CURL
  download.file(file, destfile=filename);
  long <- tuneR::readWave(filename);
  f <- [e-mail];
  wave <- seewave::cutw(long, f=f, from=subset(a, id==annotation_id,
                          select="start")[1,1], 
                          to=subset(a, id==annotation_id,select="end")[1,1],
                          method="Wave");
  file.remove(filename);
  nf <- paste0(filename,".",annotation_id,".wav");
  seewave::savewav(wave, f=f, file=nf);
  return(nf)
}

BioAcoustica/bioacousticaR documentation built on May 5, 2019, 3:46 p.m.