R/read_luf3.R

In sigurdurthorjonsson/bionechi: Utilities for analysis of acoustic survey results

#' Read ListUserFile03
#'
#' Read LSSS-report ListUserFile03 giving 2D (water column) NASC by species.
#'
#' @param rep_file Path and filename of ListUserFile03.
#' @export

read_luf3 <- function(rep_file) {
  rep_file %>%
    readr::read_csv(show_col_types=FALSE) %>%
    dplyr::select_all(tolower) %>%
    dplyr::rename(lon = longitude, 
         lat = latitude) %>%
    tidyr::unite(date_time, date, time, sep = " ") %>%
    dplyr::mutate(date_time = lubridate::ymd_hms(date_time))
}