str = strsplit(Xselect," ")[[1]][1]
help(str,package=.packages(all.available=TRUE), chmhelp = FALSE, htmlhelp = FALSE,pager=function(a,b,c,d) helpstr <<- gsub('_\b','',readLines(a)))

idx=grep('^Examples:',helpstr)
if (length(idx)>0) {
    cat(paste(helpstr[1:idx],collapse="\n"))
    cat(HTMLon())
    cat('<br><span contenteditable="false"><input type="button" value="Run Examples" onclick="rpad.calculateNext(this);" class="runButton"/></span><br>')
    cat('<pre dojoType="Rpad" rpadRun="none">')
    fixhtmlencodings = function (str) {  
        str = gsub("&","&amp;",str)  
        str = gsub("<","&lt;",str)  
        str = gsub(">","&gt;",str)  
        str
    }
    cat('require(',gsub(".*package:([a-zA-Z0-9\.]*) .*","\\1",helpstr[1]),')<br>')
    cat('#newgraph(width=6) # uncomment this line to adjust the plot size<br>')
    cat(fixhtmlencodings(paste(helpstr[(idx+1):NROW(helpstr)],collapse="\n")))
    cat("HTMLon(); showgraph() # the plot will be blank","if the examples don't plot anything")
    cat('</pre>')
} else
    cat(paste(helpstr,collapse="\n"))