R/load.selection.tables.R

In callsync: Recording Synchronisation, Call Detection and Assignment, Audio Analysis

#' @title load.selection.tables
#'
#' @description Loads multiple Raven selection tables into one dataframe.
#'  Also adds a column with file-selection
#'
#' @param path_selection_tables the path to the folder containing selection
#' tables. Folder should not contain any other files.
#' @param recursive if `TRUE` lists files recursively before loading, default
#' is `FALSE`.
#'
#' @return Returns data frame with all selection tables.
#'
#' @export
#' @importFrom stringr "str_remove"
#' @importFrom stringr "str_detect"
#' @importFrom dplyr "bind_rows"
#' @importFrom utils "read.csv"

load.selection.tables = function(path_selection_tables, recursive = FALSE){

  files = path_selection_tables |>
    list.files('*txt', full.names = TRUE, recursive = recursive)
  selection_tables = files |> lapply(load.selection.table)
  names(selection_tables) = files |> basename() |>
    stringr::str_remove('.Table.1.selections.txt') |>
    stringr::str_remove('.Table.2.selections.txt') |>
    stringr::str_remove('.Table.3.selections.txt') |>
    stringr::str_remove('_predict_output.log.annotation.result.txt')
  dat = selection_tables |> dplyr::bind_rows(.id = 'file') |> as.data.frame()
  dat = dat[stringr::str_detect(dat$View, 'Spectrogram'),]

  dat$fs = paste(dat$file, dat$Selection, sep = '-')

  return(dat)

}