add Insect taxon to organise_clips function

[btosimongillings]

Fails when trying to move insect clips to the library

[btosimongillings]

modify add_ons:

addon <- data.frame(
stringsAsFactors = FALSE,
code = c("ZZ", "XHUMAN", "INSEC"),
english_name = c("Noise", "Human","Insect"),
taxa = c("Noise", "Human", 'Insects')
)

and add folder statement:

this_folder <- ifelse(taxon == 'Insects', file.path(path_library, "labels_call_level/insects", paste0(this_sp, '-', this_name)), this_folder)