• using R version 2.7.1 Patched (2008-07-07 r46046)
• using session charset: ASCII
• checking for file 'TeachingDemos/DESCRIPTION' ... OK
• this is package 'TeachingDemos' version '2.3'
• checking package name space information ... OK
• checking package dependencies ... OK
• checking if this is a source package ... OK
• checking whether package 'TeachingDemos' can be installed ... OK
• checking package directory ... OK
• checking for portable file names ... OK
• checking for sufficient/correct file permissions ... OK
• checking DESCRIPTION meta-information ... OK
• checking top-level files ... OK
• checking index information ... OK
• checking package subdirectories ... OK
• checking R files for non-ASCII characters ... OK
• checking R files for syntax errors ... OK
• checking whether the package can be loaded ... OK
• checking whether the package can be loaded with stated dependencies ... OK
• checking whether the name space can be loaded with stated dependencies ... OK
• checking for unstated dependencies in R code ... OK
• checking S3 generic/method consistency ... OK
• checking replacement functions ... OK
• checking foreign function calls ... OK
• checking R code for possible problems ... NOTE
  
  *** caught segfault ***
  address 0xe0000090, cause 'memory not mapped'
  
  Traceback:
  1: .External("dotTclObjv", objv, PACKAGE = "tcltk")
  2: structure(.External("dotTclObjv", objv, PACKAGE = "tcltk"), class = "tclObj")
  3: .Tcl.objv(.Tcl.args.objv(...))
  4: tcl("package", "require", package)
  5: doTryCatch(return(expr), name, parentenv, handler)
  6: tryCatchOne(expr, names, parentenv, handlers[[1]])
  7: tryCatchList(expr, classes, parentenv, handlers)
  8: tryCatch(expr, error = function(e) { call <- conditionCall(e) if (!is.null(call)) { if (identical(call[[1]], quote(doTryCatch))) call <- sys.call(-4) dcall <- deparse(call)[1] prefix <- paste("Error in", dcall, ": ") LONG <- 75 msg <- conditionMessage(e) sm <- strsplit(msg, "\n")[[1]] if (14 + nchar(dcall, 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"))})
  9: try(tcl("package", "require", package), silent = TRUE)
  10: tclRequire("tile", warn = warn)
  11: inherits(tclRequire("tile", warn = warn), "tclObj")
  12: tile.load(warn = FALSE)
  13: fun(...)
  14: doTryCatch(return(expr), name, parentenv, handler)
  15: tryCatchOne(expr, names, parentenv, handlers[[1]])
  16: tryCatchList(expr, classes, parentenv, handlers)
  17: tryCatch(expr, error = function(e) { call <- conditionCall(e) if (!is.null(call)) { if (identical(call[[1]], quote(doTryCatch))) call <- sys.call(-4) dcall <- deparse(call)[1] prefix <- paste("Error in", dcall, ": ") LONG <- 75 msg <- conditionMessage(e) sm <- strsplit(msg, "\n")[[1]] if (14 + nchar(dcall, 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"))})
  18: try({ fun(...) NULL})
  19: runHook(".onLoad", package, env, package.lib, package)
  20: loadNamespace(package, c(which.lib.loc, lib.loc), keep.source = keep.source)
  21: doTryCatch(return(expr), name, parentenv, handler)
  22: tryCatchOne(expr, names, parentenv, handlers[[1]])
  23: tryCatchList(expr, classes, parentenv, handlers)
  24: tryCatch(expr, error = function(e) { call <- conditionCall(e) if (!is.null(call)) { if (identical(call[[1]], quote(doTryCatch))) call <- sys.call(-4) dcall <- deparse(call)[1] prefix <- paste("Error in", dcall, ": ") LONG <- 75 msg <- conditionMessage(e) sm <- strsplit(msg, "\n")[[1]] if (14 + nchar(dcall, 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"))})
  25: 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)})
  26: library(package, lib.loc = lib.loc, character.only = TRUE, logical.return = TRUE, warn.conflicts = warn.conflicts, keep.source = keep.source, version = version)
  27: require(pkg, character.only = TRUE, quietly = TRUE)
  28: doTryCatch(return(expr), name, parentenv, handler)
  29: tryCatchOne(expr, names, parentenv, handlers[[1]])
  30: tryCatchList(expr, classes, parentenv, handlers)
  31: tryCatch(expr, error = function(e) { call <- conditionCall(e) if (!is.null(call)) { if (identical(call[[1]], quote(doTryCatch))) call <- sys.call(-4) dcall <- deparse(call)[1] prefix <- paste("Error in", dcall, ": ") LONG <- 75 msg <- conditionMessage(e) sm <- strsplit(msg, "\n")[[1]] if (14 + nchar(dcall, 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"))})
  32: try(require(pkg, character.only = TRUE, quietly = TRUE), silent = TRUE)
  33: withCallingHandlers(expr, message = function(c) invokeRestart("muffleMessage"))
  34: suppressMessages(try(require(pkg, character.only = TRUE, quietly = TRUE), silent = TRUE))
  35: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
  36: suppressWarnings(suppressMessages(try(require(pkg, character.only = TRUE, quietly = TRUE), silent = TRUE)))
  37: eval.with.vis(expr, pf, baseenv())
  38: evalVis(expr)
  39: switch(mode(expr), expression = lapply(expr, evalVis), call = , name = list(evalVis(expr)), stop("bad argument"))
  40: capture.output({ desc <- .readRDS(file.path(.find.package(package, NULL), "Meta", "package.rds")) pkgs1 <- sapply(desc$Suggests, "[[", "name") pkgs2 <- sapply(desc$Enhances, "[[", "name") for (pkg in unique(c(pkgs1, pkgs2, "tcltk"))) suppressWarnings(suppressMessages(try(require(pkg, character.only = TRUE, quietly = TRUE), silent = TRUE)))})
  41: tools:::.check_code_usage_in_package(package = "TeachingDemos")
  aborting ...
• checking Rd files ... OK
• checking Rd cross-references ... OK
• checking for missing documentation entries ... OK
• checking for code/documentation mismatches ... OK
• checking Rd \usage sections ... OK
• checking data for non-ASCII characters ... OK
• creating TeachingDemos-Ex.R ... OK
• checking examples ... OK
• creating TeachingDemos-manual.tex ... OK
• checking TeachingDemos-manual.tex using pdflatex ... OK
• elapsed time (check, wall clock): 1:07