R/postTrait.R

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

bioacoustica.postTrait <- function(taxon_name, c, call_type="", trait="", value="", temp="", sex="", annotation_id="", inference_notes="", cascade=0){
  pars=list(
    "group_audience[und][]"=1,
    "group_content_access[und]"=2,
    "field_taxonomic_name[und]"=taxon_name,
    "field_bioacoustic_traits[und][0][field_call_type][und][0][value]"=call_type,
    "field_bioacoustic_traits[und][0][field_trait][und]"=trait,
    "field_bioacoustic_traits[und][0][field_value][und][0][value]"=value,
    "field_bioacoustic_traits[und][0][field_temperature][und][0][value]"=temp,
    "field_bioacoustic_traits[und][0][field_sex_trait][und][0][value]"=sex,
    "field_bioacoustic_traits[und][0][field_annotation_id][und][0][value]"=annotation_id,
    "field_inference_notes[und][0][value]"=inference_notes
  )
  if (cascade==1) {
    pars <-c(pars, "field_bioacoustic_traits[und][0][field_cascade_down][und]"=1)
  }
  DrupalR::drupalr.postForm("bio.acousti.ca", "/node/add/bioacoustic-traits", "bioacoustic-traits-node-form", pars=pars, c)
}