R/get_counter.R

In metrumresearchgroup/qibble: Tidy Output for Open Grid Scheduler/Engine

#' @title FUNCTION_TITLE
#' @description FUNCTION_DESCRIPTION
#' @param x PARAM_DESCRIPTION
#' @return OUTPUT_DESCRIPTION
#' @details DETAILS
#' @examples 
#' \dontrun{
#' if(interactive()){
#'  #EXAMPLE1
#'  }
#' }
#' @rdname get_counter
#' @export 
get_counter <- function(x){
  as.numeric(gsub('^(.*?)COUNTER : | \\|(.*?)$','',grep('### QAPPLY ####\\"',strsplit(x,'\n')[[1]],value=TRUE)))
}