R/parse_camino_args.R

In muschellij2/rcamino: Port of the Camino Software

#' @title Parse arguments from Camino
#' @description Wrapper for finding the arguments for the Camino function
#' @param funcname Name of function to be called
#' @return Character vector
#' @export
#'
#' @examples
#' read_camino_helpfile("voxel2scanner")
parse_camino_args = function(funcname){
  vec = read_camino_helpfile(funcname)
  if (!is.null(vec)) {
    ind1 = grep(".SH SYNOPSIS", vec, fixed = TRUE)
    ind_ex = grep(".SH EXAMPLES", vec, fixed = TRUE)
    ind2 = grep(".SH DESCRIPTION", vec, fixed = TRUE)
    ind2 = min(ind_ex, ind2)
    vec = vec[seq(ind1 + 1, ind2 - 1)]
    vec = vec[ vec != "" ]
    vec = vec[ grep(paste0("^[.]B ", funcname, "$"),
                    vec, invert = TRUE)]
    vec = gsub("\\\\f[I|R|B]", "", vec)
    vec = gsub("\\\\-", "-", vec)
    return(vec)
  } else {
    return(NULL)
  }
}