R/unix/help.R

In BRugs: Interface to the 'OpenBUGS' MCMC Software

help.BRugs <- function(browser = getOption("browser"))
{
    ## stolen from help.start()
    #   if(is.null(browser))
    #    stop("Invalid browser name, check options(\"browser\").")
    #    writeLines(strwrap(paste("If", browser, "is already running,",
    #                             "it is *not* restarted, and you must",
    #                             "switch to its window."),
    #                       exdent = 4))
    #    writeLines("Otherwise, be patient ...")
    #    browseURL(system.file("OpenBUGS", "docu", "BRugs Manual.html", package="BRugs"))
    #    invisible("")
    ## Andrew now omits the BRugs introduction, hence just pointing to help.WinBUGS these days:
    help.WinBUGS(browser = browser)
}

help.WinBUGS <- function(browser = getOption("browser"))
{
    # stolen from help.start()
    if(is.null(browser))
    stop("Invalid browser name, check options(\"browser\").")
    writeLines(strwrap(paste("If", browser, "is already running,",
                             "it is *not* restarted, and you must",
                             "switch to its window."),
                       exdent = 4))
    writeLines("Otherwise, be patient ...")
    browseURL(file.path(options()$OpenBUGSdoc, "Manuals", "Contents.html"))
    invisible("")
}