R/get.mark.R

In yanxianUCSB/yxhelper: Yx's Personal R packages

#' Title
#'4 RTMonitor
#' @param filename
#' @param marks
#' @param split
#'
#' @return
#' @export
#'
#' @examples
get.mark <- function(filename, marks, split) {
  # VER 1.0
  # mark this.file
  filename.parts <- strsplit0(filename, split = split)
  mark.index <- which(marks %in% filename.parts)
  if (length(mark.index) == 0)
    return(NA)
  mark <- marks[[mark.index]]
  return(mark)
}