search for: str2lang

...343") > msg <- tryCatch(foo.7.3.343(x), error=function(e) e$message) > clm <- sub('"$', '', sub(".* of class \"", '', msg)) > if(is.language(x) || is.function(x)) > clm > else { > cl <- str2lang(clm) > if(is.symbol(cl)) as.character(cl) else eval(cl) > } > } > > ## str2lang() needs R >= 3.6.0: > if(getRversion() < "3.6.0") ## substitute for str2lang(), good enough here: > str2lang <- function(s) parse(text = s, keep.source=FALSE)[...

...function(x) UseMethod("foo.7.3.343") msg <- tryCatch(foo.7.3.343(x), error=function(e) e$message) clm <- sub('"$', '', sub(".* of class \"", '', msg)) if(is.language(x) || is.function(x)) clm else { cl <- str2lang(clm) if(is.symbol(cl)) as.character(cl) else eval(cl) } } ## str2lang() needs R >= 3.6.0: if(getRversion() < "3.6.0") ## substitute for str2lang(), good enough here: str2lang <- function(s) parse(text = s, keep.source=FALSE)[[1]] Now you can look at such thin...

...>> msg <- tryCatch(foo.7.3.343(x), error=function(e) e$message) >> clm <- sub('"$', '', sub(".* of class \"", '', msg)) >> if(is.language(x) || is.function(x)) >> clm >> else { >> cl <- str2lang(clm) >> if(is.symbol(cl)) as.character(cl) else eval(cl) >> } >> } >> >> ## str2lang() needs R >= 3.6.0: >> if(getRversion() < "3.6.0") ## substitute for str2lang(), good enough here: >> str2lang <- function(s...

...=NA_real_, i=0) > instead of NA_complex_? > My opinions: > (1) No. The imaginary part of the result of parsing the strings "<b>i", > "<a>+<b>i", and "<a>-<b>i" can be nonzero. > Consider, e.g., Im(eval(str2lang("0+1i"))) and Im(as.complex("0+1i")). > If NA_character_ means "a string with unknown content", then we should > not assume that the string is parsed as a real number. > (2) Yes. I'd very much like to preserve the identity of c(Im(NA), Im(x))...

>>>>> Pages, Herve >>>>> on Thu, 14 Nov 2019 19:13:47 +0000 writes: > On 11/14/19 05:47, Hadley Wickham wrote: >> On Sun, Nov 10, 2019 at 2:37 AM Martin Maechler >> <maechler at stat.math.ethz.ch> wrote: >>> >>>>>>>> Gabriel Becker >>>>>>>> on Sat, 2 Nov 2019

...to complex(r=NA_real_, i=0) instead of NA_complex_? My opinions: (1) No. The imaginary part of the result of parsing the strings "<b>i", "<a>+<b>i", and "<a>-<b>i" can be nonzero. Consider, e.g., Im(eval(str2lang("0+1i"))) and Im(as.complex("0+1i")). If NA_character_ means "a string with unknown content", then we should not assume that the string is parsed as a real number. (2) Yes. I'd very much like to preserve the identity of c(Im(NA), Im(x))...

...rowQuery), error=function(e) FALSE)) { select <- grep('^cellLine[:digit:]*', colnames(rowData(longTable)), value=TRUE) rowQueryString <- paste0(paste0(select, ' %in% ', .variableToCodeString(rowQuery)), collapse=' | ') rowQuery <- str2lang(rowQueryString) } else { rowQuery <- substitute(rowQuery) } rowDataSubset <- rowData(longTable)[eval(rowQuery), ] } else { rowDataSubset <- rowData(longTable) } if (!missing(columnQuery)) { if (tryCatch(is.character(columnQue...

...t than that given by the others, it is syntactically equivalent and yields identical results when used. However, Duncan's Reduce() solution seems to me "obviously" better. In fact, I think recurseCall just recapitulates the logic of Reduce(). 4. And, again, I realize that versions of str2lang(paste(somename, collapse = ' + ')) work just fine, but I was explicitly interested in eliciting the bushel basket of elegant (imo) approaches that have been offered. Again, my thanks to all. Bert "An educated person is one who can entertain new ideas, entertain others, and en...

Dear,?? The script'formula("x")' loops infinitely. More specifically, it throws thefollowing error:? ? Error: evaluationnested too deeply: infinite recursion / options(expressions=)?? ? As a side effect,this makes an IDE like RStudio to crash. On the other hand,the script 'formula("y")'?works as expected : if ?y? does notexist in the global environment,

Another solution. reformulate + substitute + as.formula: substitute(~ (.)^2, list(. = reformulate(somenames)[[2]])) |> as.formula() On Sat, Mar 29, 2025 at 5:31?PM Bert Gunter <bgunter.4567 at gmail.com> wrote: > > Note: I am almost certain that this has been asked and answered here > before, so my apologies for the redundant query. > > I also know that there are several

...(). Contributed by Achim Zeileis. * The default colours for image() and filled.contour() are now based on hcl.colors(). * The palette-generating functions rainbow(), gray.colors(), etc. get a new rev argument to facilitate reversing the order of colors. * New str2lang() and str2expression() as streamlined versions of parse(text=., keep.source=FALSE) allow to abstract typical call constructions, e.g., in formula manipulations. (Somewhat experimental) * Add update_PACKAGES() for incrementally updating a package repository index, inste...

...(). Contributed by Achim Zeileis. * The default colours for image() and filled.contour() are now based on hcl.colors(). * The palette-generating functions rainbow(), gray.colors(), etc. get a new rev argument to facilitate reversing the order of colors. * New str2lang() and str2expression() as streamlined versions of parse(text=., keep.source=FALSE) allow to abstract typical call constructions, e.g., in formula manipulations. (Somewhat experimental) * Add update_PACKAGES() for incrementally updating a package repository index, inste...

...(). Contributed by Achim Zeileis. * The default colours for image() and filled.contour() are now based on hcl.colors(). * The palette-generating functions rainbow(), gray.colors(), etc. get a new rev argument to facilitate reversing the order of colors. * New str2lang() and str2expression() as streamlined versions of parse(text=., keep.source=FALSE) allow to abstract typical call constructions, e.g., in formula manipulations. (Somewhat experimental) * Add update_PACKAGES() for incrementally updating a package repository index, inste...