# NOT RUN {
w <- gwindow("Help browser", visible=FALSE)
g <- ggroup(horizontal=FALSE, container=w)
g1 <- ggroup(container=g)
addSpring(g1)
glabel("Help on:", container=g1)
e <- gedit("", container=g1)
helpWidget <- ghelp(container = g, expand=TRUE)
addHandlerChanged(e, handler=function(h,...) {
add(helpWidget, svalue(h$obj))
})
visible(w) <- TRUE
## add others
add(helpWidget,"base:::mean")
add(helpWidget, list(topic="mean", package="base"))
add(helpWidget, "boxplot")
# }
Run the code above in your browser using DataLab