R/rmUnix_Sgpm.R

In arnejohannesholmin/sonR: Library for reading, processing and converting sonar data to the TSD format

#*********************************************
#*********************************************
#' Remove the files with basenames UNIX_time.tsd and sgPM.tsd. Used in UNIX_time() and read.event().
#'
#' @param x  A vector of file names.
#' @export
#' @rdname rmUNIX_SgPM
#'
rmUnix_Sgpm <- function(x){
	x[!tolower(basename(x)) %in% c("unix_time.tsd","sgpm.tsd")]
}