roundTripTest,BrowserViz-method | R Documentation |
Send data to the browser, ensure that it is returned accurately.
## S4 method for signature 'BrowserViz'
roundTripTest(obj, ...)
obj |
An object of class BrowserViz |
... |
other arguments |
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)
data.returned <- fromJSON(json.returned)
stopifnot(identical(data, data.returned))
closeWebSocket(bvApp)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.