Defines functions extract_asf rhs lhs noblanks

Documented in extract_asf lhs noblanks rhs

# remove blanks
noblanks <- function(x){
  # avoids loss of class attributes stdBoolean/stdAtomic/stdComplex
  if (inherits(x, c("stdBoolean", "stdAtomic", "stdComplex"))) return(x)
  gsub("[[:space:]]", "", as.character(x))
# extract lhs from formula
lhs <- function(x) sub("([^<]+)<*->.+", "\\1", x)

# extract rhs from formula
rhs <- function(x){
  out <- rep("", length(x))
  twosided <- grepl("->", x, fixed = TRUE)
  out[twosided] <- sub(".+<*->(.+)", "\\1", x[twosided])

# Extract asf strings from csf strings
#   condstr   string in 'visible' syntax with 'csf' format
# Returns a list of character vectors, where each list element corresponds to a csf
# and the elements therein are the asf
extract_asf <- function(x){
  noPar <- !grepl("^\\(", x)
  if (any(noPar)){
    x[noPar] <- paste0("(", x[noPar], ")")
  hstrsplit(gsub("^\\(|\\)$", "", x), "\\)[\\*,]\\(", fixed = FALSE,
            split.attr = FALSE)

Try the cna package in your browser

Any scripts or data that you put into this service are public.

cna documentation built on Dec. 17, 2021, 5:10 p.m.