webBrowserAvailableForTesting: Is there a web browser available for testing?

In paul-shannon/BrowserViz: BrowserViz: interactive R/browser graphics using websockets and JSON

Is there a web browser available for testing?

Description

This package's unit tests require a web browser to connect to. our heuristic, though not bullet proof, is that one of three conditions must be met Supply the name of a function to call, identified by its key

Usage

webBrowserAvailableForTesting()

Value

Logical TRUE or FALSE

Examples

library(BrowserViz)
browserVizBrowserFile <- system.file(package="BrowserViz", "browserCode", "dist", "bvDemoApp.html")
if(BrowserViz::webBrowserAvailableForTesting()){
  bvApp <- BrowserViz(browserFile=browserVizBrowserFile, quiet=TRUE)
  data <- list(lowercase=letters, uppercase=LETTERS)
  json.returned <- roundTripTest(bvApp, data)
  html <- sprintf("<h3>round trip of json-encoded data, %d chars</h3>",
                  nchar(json.returned))
  displayHTMLInDiv(bvApp, html, "bvDemoDiv")
  closeWebSocket(bvApp)
  }

paul-shannon/BrowserViz documentation built on Nov. 17, 2024, 1:42 p.m.