tkWidgets 1.17.0
J. Zhang
| Snapshot Date: 2007-12-11 00:09:07 -0800 (Tue, 11 Dec 2007) | | URL: https://hedgehog.fhcrc.org/bioconductor/trunk/madman/Rpacks/tkWidgets | | Last Changed Rev: 27716 / Revision: 29143 | | Last Changed Date: 2007-10-02 18:16:39 -0700 (Tue, 02 Oct 2007) |
| lamb1 | Linux (SUSE 10.1) / x86_64 | OK | [ ERROR ] | |
| wilson2 | Linux (openSUSE 10.3) / x86_64 | OK | ERROR | |
| wellington | Linux (openSUSE 10.3) / i686 | OK | ERROR | |
| liverpool | Windows Server 2003 R2 (32-bit) / x64 | OK | ERROR | OK |
| lemming | Windows Server 2003 (32-bit) / x64 | OK | ERROR | OK |
* checking for working latex ... OK
* using log directory '/home/biocbuild/bbs-2.2-bioc/meat/tkWidgets.Rcheck'
* using R version 2.7.0 Under development (unstable) (2007-11-18 r43497)
* checking for file 'tkWidgets/DESCRIPTION' ... OK
* this is package 'tkWidgets' version '1.17.0'
* checking package name space information ... OK
* checking package dependencies ... OK
* checking if this is a source package ... OK
* checking whether package 'tkWidgets' 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 ... OK
* 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
* creating tkWidgets-Ex.R ... OK
* checking examples ... ERROR
Running examples in 'tkWidgets-Ex.R' failed.
The error most likely occurred in:
> ### * WName
>
> flush(stderr()); flush(stdout())
>
> ### Name: WName
> ### Title: Accessors for Primitive Widget Objects
> ### Aliases: WName WValue WValue<- WtoText WfromText WcanEdit WbuttonText
> ### WbuttonFun WwList WwList<- "WwList<-" WLValue WLValue<- WRButtons
> ### WpreFun WpostFun WEnd "WValue<-"
> ### Keywords: manip
>
> ### ** Examples
>
> # Create the list of lists
> pW1 <- list(Name="AAA", Value="bbb",
+ toText = function(x) paste(x,collapse = ","),
+ fromText = NULL, canEdit = TRUE,
+ buttonFun = ls, buttonText = "Browse")
>
> widget1 <- list(wList = list(a = pW1),
+ preFun = function() "Hi",
+ postFun = function() "Bye")
>
> # Call the functions
> WName(pW1)
[1] "AAA"
> WValue(pW1)
[1] "bbb"
> WValue(pW1) <- "lll"
> WtoText(pW1)
function (x)
paste(x, collapse = ",")
> WfromText(pW1)
NULL
> WcanEdit(pW1)
[1] TRUE
> WbuttonText(pW1)
[1] "Browse"
> WbuttonFun(pW1)
function (name, pos = -1, envir = as.environment(pos), all.names = FALSE,
pattern)
{
if (!missing(name)) {
nameValue <- try(name)
if (identical(class(nameValue), "try-error")) {
name <- substitute(name)
if (!is.character(name))
name <- deparse(name)
pos <- name
}
else pos <- nameValue
}
all.names <- .Internal(ls(envir, all.names))
if (!missing(pattern)) {
if ((ll <- length(grep("[", pattern, fixed = TRUE))) >
0 && ll != length(grep("]", pattern, fixed = TRUE))) {
if (pattern == "[") {
pattern <- "\\["
warning("replaced regular expression pattern '[' by '\\\\['")
}
else if (length(grep("[^\\\\]\\[<-", pattern) > 0)) {
pattern <- sub("\\[<-", "\\\\\\[<-", pattern)
warning("replaced '[<-' by '\\\\[<-' in regular expression pattern")
}
}
grep(pattern, all.names, value = TRUE)
}
else all.names
}
<environment: namespace:base>
> WwList(widget1)
$a
$a$Name
[1] "AAA"
$a$Value
[1] "bbb"
$a$toText
function (x)
paste(x, collapse = ",")
$a$fromText
NULL
$a$canEdit
[1] TRUE
$a$buttonFun
function (name, pos = -1, envir = as.environment(pos), all.names = FALSE,
pattern)
{
if (!missing(name)) {
nameValue <- try(name)
if (identical(class(nameValue), "try-error")) {
name <- substitute(name)
if (!is.character(name))
name <- deparse(name)
pos <- name
}
else pos <- nameValue
}
all.names <- .Internal(ls(envir, all.names))
if (!missing(pattern)) {
if ((ll <- length(grep("[", pattern, fixed = TRUE))) >
0 && ll != length(grep("]", pattern, fixed = TRUE))) {
if (pattern == "[") {
pattern <- "\\["
warning("replaced regular expression pattern '[' by '\\\\['")
}
else if (length(grep("[^\\\\]\\[<-", pattern) > 0)) {
pattern <- sub("\\[<-", "\\\\\\[<-", pattern)
warning("replaced '[<-' by '\\\\[<-' in regular expression pattern")
}
}
grep(pattern, all.names, value = TRUE)
}
else all.names
}
<environment: namespace:base>
$a$buttonText
[1] "Browse"
> WwList(widget1) <- list(Name = "New list", Value = "New value")
> WLValue(widget1, 1)
Error in x$Value : $ operator is invalid for atomic vectors
Calls: WLValue -> WValue
Execution halted