R/audacity_to_df.R

In phonfieldwork: Linguistic Phonetic Fieldwork Tools

#' Audacity's labels to dataframe
#'
#' Audacity make it possible to annotate sound files with labels that can be
#' exported as a .tsv file with .txt extension. This function convert result to
#' dataframe.
#'
#' @author George Moroz <agricolamz@gmail.com>
#'
#' @param file_name file_name string with a filename or path to the .txt file
#' produced by Audacity
#' @return a dataframe with columns:  \code{content}, \code{time_start},
#' \code{time_end}, \code{source}.
#'
#' @examples
#' audacity_to_df(system.file("extdata",
#'   "test_audacity.txt",
#'   package = "phonfieldwork"
#' ))
#' @importFrom utils read.delim
#' @export

audacity_to_df <- function(file_name) {
  df <- utils::read.delim(file_name)
  names(df) <- c("time_start", "time_end", "content")
  df$time_start <- as.double(gsub(",", ".", df$time_start)) / 1000
  df$time_end <- as.double(gsub(",", ".", df$time_end)) / 1000
  df$source <- basename(file_name)
  return(df)
}