w <- gwindow("Help browser", visible=FALSE)
g <- ggroup(horizontal=FALSE, cont=w)
g1 <- ggroup(cont=g)
addSpring(g1)
glabel("Help on:", cont=g1)
e <- gedit("", cont=g1)
helpWidget <- ghelp(cont = 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