Displaying 20 results from an estimated 32 matches for "seterrmessage".
2008 Sep 10
1
help: error handling in try
...function, the ret is indeed a false value. Why are they different?
Many thanks
is.Date=
# adate: a scalar value
# fun: the date function object
# format: the designated date format to date function
function(adate,fun,format) {
ret=NA;
error.old=geterrmessage();
.Internal(seterrmessage('no error'));
try(fun(adate,format),silent=T);
error=geterrmessage();
if (error=='no error') {
ret=T;
} else {
ret=F;
}
.Internal(seterrmessage(error.old));
return(ret);
}
adate='12/2000'...
2009 Jan 07
1
Compiling R for Solaris 10 Intel
...e = "w") + nchar(sm[1], type = "w") > LONG) prefix <- paste(prefix, "\n ", sep = "") } 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"))})
7: try({ fun(...) NULL})
8: runHook("....
2012 May 15
1
KEGGSOAP installation error
...L + nchar(dcall, type = "b") + nchar(sm[1L], type =
"b") if (w > LONG) prefix <- paste0(prefix, "\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))})
16: try({ ns <- loadNamespace...
2007 Dec 10
1
Building R on Sun Solaris 10 (SPARC) using Sun Studio 12
...NGCALL <- 30 if
> (nchar(dcall) > LONGCALL) prefix <- paste(prefix, "\n\t",
> sep = "") } 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"))})
> 7: try({ fun(...) NUL...
2018 Sep 19
5
segfault issue with parallel::mclapply and download.file() on Mac OS X
...arentenv, handlers[[1L]])
6: prefix <- paste0(prefix, "\n ")tryCatchList(expr, classes,
parentenv, handlers)
} else prefix <- "Error : " 7: msg <- paste0(prefix,
conditionMessage(e), "\n")tryCatch(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(-4...
2013 Jun 07
1
cannot load pbdMPI package after compilation
...L + nchar(dcall,
type = "b") + nchar(sm[1L], type = "b") if (w >
LONG) prefix <- paste0(prefix, "\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))})
13: try({ ns <- loadNamespace...
2010 Nov 09
1
R-2.12.0 problem on Solaris 10
...+ nchar(sm[1L], type = "b") if (w > LONG) prefix <- paste(prefix, "\n ", 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"))})
29: try(.install_package_indices(".", in...
2011 Jan 27
0
Problems installing gputools
...w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],
type = "b") if (w > LONG) prefix <- paste(prefix, "\n ", 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 =...
2010 Feb 08
2
Error on start R in server
...+ nchar(sm[1L], type =
"b") if (w > LONG) prefix <- paste(prefix, "\n ", 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"))})
10: try({ ns <- loadNamespace(package, c(whi...
2008 Mar 12
1
gracefully handing a library load error
..., dcall, ": ")
LONGCALL <- 30 if (nchar(dcall) > LONGCALL) prefix <-
paste(prefix, "\n\t", sep = "") } 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"))})
7: try(firstlib(which.lib.loc, package))
8: library...
2012 Feb 06
1
Segfault on ".C" registration via R_CMethodDef according to 'Writing R Extensions'.
...+ nchar(sm[1L], type = "b") if (w > LONG) prefix <- paste(prefix, "\n ", 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", condition = e))})
8: try({ ns <- loadNamespace...
2018 Oct 04
0
segfault issue with parallel::mclapply and download.file() on Mac OS X
...t; 6: prefix <- paste0(prefix, "\n ")tryCatchList(expr, classes,
> parentenv, handlers)
> } else prefix <- "Error : " 7: msg <- paste0(prefix,
> conditionMessage(e), "\n")tryCatch(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()) ca...
2009 Dec 30
1
seg-fault... but on what
...= "w") + nchar(sm[1L], type =
"w") > LONG) prefix <- paste(prefix, "\n ", 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"))})
16: try(dbGetQuery(con, sql))
17: eval.with.vis(expr, envir,...
2018 Sep 20
0
segfault issue with parallel::mclapply and download.file() on Mac OS X
...> 6: prefix <- paste0(prefix, "\n ")tryCatchList(expr, classes,
> parentenv, handlers)
> } else prefix <- "Error : " 7: msg <- paste0(prefix,
> conditionMessage(e), "\n")tryCatch(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()) ca...
2010 Oct 10
1
segfault caused by `icfit` in `interval` package
..."b")
+ nchar(sm[1L], type = "b") if (w > LONG)
prefix <- paste(prefix, "\n ", 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"))})
9: try(do.call(initfit, args = list(L = L, R = R, Li...
2010 Mar 25
1
*** caught segfault *** address 0x18, cause 'memory not mapped'
...l, type = "w") +
nchar(sm[1], type = "w") > LONG) prefix <-
paste(prefix, "\n ", sep = "") } 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,...
2012 Dec 11
1
Debian packaging and openblas related crash when profiling in R
...- 14L +
nchar(dcall, type = "b") + nchar(sm[1L], type = "b")
if (w > LONG) prefix <- paste0(prefix, "\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...
2008 Jun 11
3
Rmpi segfault after install on Ubuntu Hardy Heron
...l, type = "w") +
nchar(sm[1], type = "w") > LONG) prefix <-
paste(prefix, "\n ", sep = "") } 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("R...
2009 Aug 13
1
segfault when unloading a shared library
..., type = "w") +
nchar(sm[1L], type = "w") > LONG) prefix <-
paste(prefix, "\n ", 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(.Last.lib(libpath))
9: detach(package:mniMincIO)
P...
2017 Apr 25
0
R_CMethodDef incompatibility (affects R_registerRoutines)
...w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],
type = "b") if (w > LONG) prefix <- paste0(prefix,
"\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))})
8: try({ attr(package, "LibPat...