R/utils.R

Defines functions strc is_link

Documented in is_link

#' Check if text is a relative link or URL
#'
#' @param text A character string
#'
#' @return TRUE or FALSE
#' @export
#'
#' @examples
#' is_link("www.google.com")
#' is_link("figs/plot.png")
is_link <- function(text) {

  img_link <- sprintf('^(%s)$',paste0('.',remedy_opts$get('token_img_link'),collapse='|'))
  
  grepl(sprintf('(%s)|(%s)|(%s)',remedy_opts$get('token_url'),remedy_opts$get('token_rel_link'),img_link),text)
}

strc <- function(p = '\\s',txt){
  
  if(!nzchar(txt))
    return(0)
  
  ret <- as.numeric(gregexpr(p,txt)[[1]])
  
  if(-1%in%ret)
    return(-1)
  
  return(length(ret))
  
}
ThinkR-open/remedy documentation built on Aug. 26, 2020, 5:45 p.m.