R/show_d3.R

In cddesja/D3plot: Create R Plots Using D3.js

show_d3 <- function(tmpfile, arguments){
    if(any(names(arguments) == "browser")){
        browser <- eval(arguments$browser)
    } else {
        browser <- FALSE
    }
    htmlFile <- tempfile(fileext=".html")
    cat(tmpfile, file = htmlFile)
    
    viewer <- getOption("viewer")
    if(is.null(viewer) | browser == TRUE) {
        utils::browseURL(htmlFile)
        } else {
            viewer(htmlFile)
            }
}