ARUtools (version 0.7.2)

clip_wave: Clip multiple wave files and format names

Description

Process multiple wave files by copying them with a new filename and clipping to a given length.

Usage

clip_wave(
  waves,
  dir_out,
  dir_in = NULL,
  col_path_in = path,
  col_subdir_out = subdir_out,
  col_filename_out = filename_out,
  col_clip_length = clip_length,
  col_start_time = start_time,
  overwrite = FALSE,
  create_dir = TRUE,
  diff_limit = 30
)

Value

TRUE if successful and clipped wave files created

Arguments

waves

Data frame. Details of file locations.

dir_out

Character. Output directory.

dir_in

Character. Directory wave files are read from. Default is NULL meaning the current working directory.

col_path_in

Column. Unquoted column containing the current file paths. Default path. Note: file paths must be either relative to dir_in or absolute.

col_subdir_out

Column. Unquoted column containing the subdirectories in which to put output files. Default subdir_out.

col_filename_out

Column. Unquoted column containing the output filenames. Default filename_out.

col_clip_length

Column. Unquoted column containing the length of the new clip. Default length.

col_start_time

Column. Unquoted column containing the start time of the new clip. Default start_time.

overwrite

Logical. Overwrite pre-existing files when clipping and moving. Default FALSE.

create_dir

Logical. Whether to create directory structure for newly formatted and clipped wave files.

diff_limit

Numeric. How much longer in seconds clip lengths can be compared to file lengths before triggering an error. Default 30.

Examples

if (FALSE) { # dir.exists("test1")
w <- data.frame(
  path = temp_wavs(n = 4),
  subdir_out = c("test1/a", "test2/a", "test3/c", "test4/d"),
  subsub_dir_out = rep("zz", 4),
  filename_out = c("wave1_clean.wav", "wave2_clean.wav", "wave3_clean.wav", "wave4_clean.wav"),
  clip_length = c(1, 1, 1, 2),
  start_time = c(1.2, 0.5, 1, 0)
)

clip_wave(w, dir_out = "clean", col_subdir_out = c(subdir_out, subsub_dir_out))

unlink("clean", recursive = TRUE) # Remove this new 'clean' directory
}