Displaying 20 results from an estimated 34 matches for "printdeferredwarnings".
2023 Apr 26
1
Warnings created during R_eval or R_tryEval not shown before R ending or R error.
...is required for warnings() to work because it creates
the last.warning variable for warnings() to access. When driving an
embedded R, R_ReplDLLdo1() will call it for you between expressions it
processes, but there doesn't seem to be a way to call it yourself.
Interestingly, there is .Internal(printDeferredWarnings()) which
eventually calls PrintWarnings(), but it's not exported as an API, only
used in a few places like try().
Would it help to run with options(warn = 1)? I think that a different
code path is taken in this case, which should emit warnings even
without a working REPL. warnings() would stil...
2009 Jan 07
1
Compiling R for Solaris 10 Intel
...refix <- "Error : " msg <- paste(prefix, conditionMessage(e), "\n", sep = "") .Internal(seterrmessage(msg[1])) if (!silent && identical(getOption("show.error.messages"), TRUE)) { cat(msg, file = stderr()) .Internal(printDeferredWarnings()) } invisible(structure(msg, class = "try-error"))})
7: try({ fun(...) NULL})
8: runHook(".onLoad", package, env, package.lib, package)
9: loadNamespace(package, c(which.lib.loc, lib.loc), keep.source = keep.source)
10: doTryCatch(return(expr), name, parentenv, h...
2012 May 15
1
KEGGSOAP installation error
...t;) }
else prefix <- "Error : " msg <- paste0(prefix, conditionMessage(e),
"\n") .Internal(seterrmessage(msg[1L])) if (!silent &&
identical(getOption("show.error.messages"), TRUE)) { cat(msg,
file = stderr()) .Internal(printDeferredWarnings()) }
invisible(structure(msg, class = "try-error", condition = e))})
16: try({ ns <- loadNamespace(package, c(which.lib.loc, lib.loc))
dataPath <- file.path(which.lib.loc, package, "data") env <-
attachNamespace(ns, pos = pos, dataPath = dataPath,...
2007 Dec 10
1
Building R on Sun Solaris 10 (SPARC) using Sun Studio 12
...: " msg <- paste(prefix,
> conditionMessage(e), "\n", sep = "")
> .Internal(seterrmessage(msg[1])) if (!silent &&
> identical(getOption("show.error.messages"), TRUE)) {
> cat(msg, file = stderr()) .Internal(printDeferredWarnings())
> } invisible(structure(msg, class = "try-error"))})
> 7: try({ fun(...) NULL})
> 8: runHook(".onLoad", package, env, package.lib, package)
> 9: loadNamespace(package, c(which.lib.loc, lib.loc), keep.source =
> keep.source)
> 10: doTryCatch(...
2018 Sep 19
5
segfault issue with parallel::mclapply and download.file() on Mac OS X
...Catch(expr, error = function(e) {
.Internal(seterrmessage(msg[1L])) call <- conditionCall(e) if
(!silent && isTRUE(getOption("show.error.messages"))) { if
(!is.null(call)) { cat(msg, file = outFile) if
(identical(call[[1L]], quote(doTryCatch)))
.Internal(printDeferredWarnings()) call <- sys.call(-4L) }
dcall <- deparse(call)[1L] invisible(structure(msg, class =
"try-error", condition = e)) prefix <- paste("Error in", dcall, ":
")}) LONG <- 75L sm <- strsplit(conditionMessage(e),
&quo...
2013 Jun 07
1
cannot load pbdMPI package after compilation
...t;) } else prefix
<- "Error : " msg <- paste0(prefix, conditionMessage(e), "\n")
.Internal(seterrmessage(msg[1L])) if (!silent &&
identical(getOption("show.error.messages"), TRUE)) {
cat(msg, file = stderr()) .Internal(printDeferredWarnings())
} invisible(structure(msg, class = "try-error", condition = e))})
13: try({ ns <- loadNamespace(package, c(which.lib.loc, lib.loc))
env <- attachNamespace(ns, pos = pos, deps)})
14: library(pkg_name, lib.loc = lib, character.only = TRUE,
logical.return = TRUE)
15: wit...
2013 Mar 06
1
Printing warning messages around R_tryEval
...en if it was generate by some earlier command. I would need a way
to print new warnings, only.
2. Use options(warn=1) where applicable. However, in some cases, collecting
warnings until some procedure is complete, and printing them then, would be
preferrable.
3. I see there is an internal call printDeferredWarnings(), which seems to be
almost exactly what I want. However, using an .Internal() does not look like a
terribly stable solution, either. Also, having direct access to a similar
function from the C-API would be very comfortable.
Thanks!
Thomas
-------------- next part --------------
A non-text atta...
2010 Nov 09
1
R-2.12.0 problem on Solaris 10
...efix <- "Error : " msg <- paste(prefix, conditionMessage(e), "\n", sep = "") .Internal(seterrmessage(msg[1L])) if (!silent && identical(getOption("show.error.messages"), TRUE)) { cat(msg, file = stderr()) .Internal(printDeferredWarnings()) } invisible(structure(msg, class = "try-error"))})
29: try(.install_package_indices(".", instdir))
30: do_install_source(pkg_name, instdir, pkg, desc)
31: do_install(pkg)
32: tools:::.install_packages()
aborting ...
Segmentation Fault - core dumped
The downloaded packa...
2011 Jan 27
0
Problems installing gputools
..., sep = "") }
else prefix <- "Error : " msg <- paste(prefix, conditionMessage(e),
"\n", sep = "") .Internal(seterrmessage(msg[1L])) if (!silent &&
identical(getOption("show.error.messages"), TRUE)) { cat(msg, file =
stderr()) .Internal(printDeferredWarnings()) } invisible(structure(msg,
class = "try-error"))})
8: try({ ns <- loadNamespace(package, c(which.lib.loc, lib.loc),
keep.source = keep.source) dataPath <- file.path(which.lib.loc, package,
"data") env <- attachNamespace(ns, pos = pos, dataPath = dataPath, deps)})
9:...
2010 Feb 08
2
Error on start R in server
...efix <- "Error : " msg <- paste(prefix,
conditionMessage(e), "\n", sep = "") .Internal(seterrmessage(msg[1L]))
if (!silent && identical(getOption("show.error.messages"), TRUE)) {
cat(msg, file = stderr()) .Internal(printDeferredWarnings()) }
invisible(structure(msg, class = "try-error"))})
10: try({ ns <- loadNamespace(package, c(which.lib.loc, lib.loc),
keep.source = keep.source) dataPath <- file.path(which.lib.loc, package,
"data") env <- attachNamespace(ns, pos = pos, dataPath = dataP...
2008 Mar 12
1
gracefully handing a library load error
...prefix <- "Error : " msg <-
paste(prefix, conditionMessage(e), "\n", sep = "")
.Internal(seterrmessage(msg[1])) if (!silent && identical(getOption("
show.error.messages"), TRUE)) { cat(msg, file =
stderr()) .Internal(printDeferredWarnings()) }
invisible(structure(msg, class = "try-error"))})
7: try(firstlib(which.lib.loc, package))
8: library(cairoDevice)
aborting ...
Segmentation fault (core dumped)
I'm fine with the idea that Cairo somehow needs the X server to do its
business. I would like to not have the prog...
2012 Feb 06
1
Segfault on ".C" registration via R_CMethodDef according to 'Writing R Extensions'.
...efix <- "Error : " msg <- paste(prefix, conditionMessage(e), "\n", sep = "") .Internal(seterrmessage(msg[1L])) if (!silent && identical(getOption("show.error.messages"), TRUE)) { cat(msg, file = stderr()) .Internal(printDeferredWarnings()) } invisible(structure(msg, class = "try-error", condition = e))})
8: try({ ns <- loadNamespace(package, c(which.lib.loc, lib.loc)) dataPath <- file.path(which.lib.loc, package, "data") env <- attachNamespace(ns, pos = pos, dataPath = dataPath,...
2018 Oct 04
0
segfault issue with parallel::mclapply and download.file() on Mac OS X
...on(e) {
> .Internal(seterrmessage(msg[1L])) call <- conditionCall(e) if
> (!silent && isTRUE(getOption("show.error.messages"))) { if
> (!is.null(call)) { cat(msg, file = outFile) if
> (identical(call[[1L]], quote(doTryCatch)))
> .Internal(printDeferredWarnings()) call <- sys.call(-4L) }
> dcall <- deparse(call)[1L] invisible(structure(msg, class =
> "try-error", condition = e)) prefix <- paste("Error in", dcall, ":
> ")}) LONG <- 75L sm <- strsplit(condition...
2009 Dec 30
1
seg-fault... but on what
...else prefix <- "Error : " msg <- paste(prefix,
conditionMessage(e), "\n", sep = "") .Internal(seterrmessage(msg[1L]))
if (!silent && identical(getOption("show.error.messages"), TRUE))
{ cat(msg, file = stderr())
.Internal(printDeferredWarnings()) } invisible(structure(msg, class =
"try-error"))})
16: try(dbGetQuery(con, sql))
17: eval.with.vis(expr, envir, enclos)
18: eval.with.vis(ei, envir)
19: source("~/SoothSayer/EODData/DBScripts/loadEODQuotes.r")
Possible actions:
1: abort (with core dump, if enabled)
2:...
2018 Sep 20
0
segfault issue with parallel::mclapply and download.file() on Mac OS X
...ion(e) {
> .Internal(seterrmessage(msg[1L])) call <- conditionCall(e) if
> (!silent && isTRUE(getOption("show.error.messages"))) { if
> (!is.null(call)) { cat(msg, file = outFile) if
> (identical(call[[1L]], quote(doTryCatch)))
> .Internal(printDeferredWarnings()) call <- sys.call(-4L) }
> dcall <- deparse(call)[1L] invisible(structure(msg, class =
> "try-error", condition = e)) prefix <- paste("Error in", dcall, ":
> ")}) LONG <- 75L sm <- strsplit(conditionM...
2010 Oct 10
1
segfault caused by `icfit` in `interval` package
...prefix <- "Error :
" msg <- paste(prefix, conditionMessage(e), "\n", sep = "")
.Internal(seterrmessage(msg[1L])) if (!silent &&
identical(getOption("show.error.messages"), TRUE)) { cat(msg,
file = stderr()) .Internal(printDeferredWarnings()) }
invisible(structure(msg, class = "try-error"))})
9: try(do.call(initfit, args = list(L = L, R = R, Lin = Lin, Rin = Rin,
A = A)))
10: icfit.default(L = left, R = right)
11: icfit(L = left, R = right)
Possible actions:
1: abort (with core dump, if enabled)
2: normal R exit
3: exi...
2010 Mar 25
1
*** caught segfault *** address 0x18, cause 'memory not mapped'
...} else prefix <- "Error : "
msg <- paste(prefix, conditionMessage(e), "\n", sep = "")
.Internal(seterrmessage(msg[1])) if (!silent &&
identical(getOption("show.error.messages"), TRUE)) {
cat(msg, file = stderr()) .Internal(printDeferredWarnings())
} invisible(structure(msg, class = "try-error"))})
6: try(nlm(f = fprof_deriv, x = x, p = parHInt, b = parFIX, hessian =
T, iterlim = 2000, check.analyticals = F, stepmax = 10), silent =
T)
7: fMLEPFP(datanpboot, FALSE)
8: fboot.jack.mleP(data, B)
9: fsimbiasIGLDP(N[i], parH...
2012 Dec 11
1
Debian packaging and openblas related crash when profiling in R
...;\n ") }
else prefix <- "Error : " msg <- paste0(prefix,
conditionMessage(e), "\n") .Internal(seterrmessage(msg[1L])) if
(!silent && identical(getOption("show.error.messages"), TRUE))
{ cat(msg, file = stderr())
.Internal(printDeferredWarnings()) } invisible(structure(msg,
class = "try-error", condition = e))})
6: try(am.inv(a = g11), silent = TRUE)
7: amsweep(thetareal, c(FALSE, o[ss, ]))
8: emfred(x, thetaold, indx$o, indx$m, indx$ivector, indx$icap,
indx$AMr1, indx$AMr2, AM1stln = AM1stln, returntype = "theta&q...
2008 Jun 11
3
Rmpi segfault after install on Ubuntu Hardy Heron
...} else prefix <- "Error : "
msg <- paste(prefix, conditionMessage(e), "\n", sep = "")
.Internal(seterrmessage(msg[1])) if (!silent &&
identical(getOption("show.error.messages"), TRUE)) {
cat(msg, file = stderr()) .Internal(printDeferredWarnings())
} invisible(structure(msg, class = "try-error"))})
8: try(firstlib(which.lib.loc, package))
9: library("Rmpi")
Possible actions:
1: abort (with core dump, if enabled)
2: normal R exit
3: exit R without saving workspace
4: exit R saving workspace
Selection:
--
Mark W....
2009 Aug 13
1
segfault when unloading a shared library
...} else prefix <- "Error : "
msg <- paste(prefix, conditionMessage(e), "\n", sep = "")
.Internal(seterrmessage(msg[1L])) if (!silent &&
identical(getOption("show.error.messages"), TRUE)) {
cat(msg, file = stderr()) .Internal(printDeferredWarnings())
} invisible(structure(msg, class = "try-error"))})
8: try(.Last.lib(libpath))
9: detach(package:mniMincIO)
Possible actions:
1: abort (with core dump, if enabled)
2: normal R exit
3: exit R without saving workspace
4: exit R saving workspace
Selection: 1
aborting ...
Segmentation...