Nothing
      test_that("plotHist gives a ggplot object with correct data to plot", {
    file <- system.file("extdata", "ex1.bam", package="Rsamtools")
    win <- getWinFromBamFile(file)
    g <- plotHist(win, group_by = "Type")
    expect_is(g,"ggplot")
    expect_equal(names(g$data),c("Type","PosProp","Coverage","ReadCountProp"))
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.