R/initAnimal_single.R

In JannisGottwald/N40RTS: What the Package Does (One Line, Title Case)

#' Init Animal Tracking
#'
#' @description Creates directories and a R list with all the needed rts information for one animal
#'
#'
#' @author Marvin Ludwig & Jannis Gottwald
#'
#'
#' @param projList list, generatet by initProject function
#' @param animalID string, label of the tagged individual
#' @param freq num, tag frequency (khz)
#' @param start string, start of tracking YYYY-MM-DD
#' @param end string, end of tracking YYYY-MM-DD
#' 
#'
#' @export
#'
#'




initAnimal_single = function(projList,
                      animalID,
                      freq,
                      start,
                      end
){

  # create project sturture
  dir.create(paste0(projList$path$ids, animalID), showWarnings = FALSE)
  dir.create(paste0(projList$path$ids, animalID, "/filtered_awk"), showWarnings = FALSE)
  dir.create(paste0(projList$path$ids, animalID, "/filtered"), showWarnings = FALSE)
  dir.create(paste0(projList$path$ids, animalID, "/gps_timematch"), showWarnings = FALSE)
  dir.create(paste0(projList$path$ids, animalID, "/predictions"), showWarnings = FALSE)
  dir.create(paste0(projList$path$ids, animalID, "/plots"), showWarnings = FALSE)
  dir.create(paste0(projList$path$ids, animalID, "/models"), showWarnings = FALSE)
  

  # save meta data
  meta = list(animalID = animalID,
                    freq = freq,
                    start = start,
                    end = end)
  # get paths
  path = list(raw = projList$path$csv,
              root = paste0(projList$path$ids, animalID),
              filtered_awk=paste0(projList$path$ids, animalID, "/filtered_awk"),
              filtered=paste0(projList$path$ids, animalID, "/filtered"),
              gps_matched=paste0(projList$path$ids, animalID, "/gps_timematch"),
              plots=paste0(projList$path$ids, animalID, "/plots"),
              predictions=paste0(projList$path$ids, animalID, "/predictions"),
              models=paste0(projList$path$ids, animalID, "/models")
              )

  animal = list(meta = meta,
                path = path)

  return(animal)

}