tests/testthat/test-module_dendrogram.R

In chasemc/ghosts: Protein and small molecule analysis of bacteria by MALDI-TOF MS

context("test-module_dendrogram")
set.seed(42)

a <- ghosts::dendDotsUI("hi")
test_that("dendDotsUI", {
  expect_identical(class(a), "shiny.tag")
  expect_identical(a$name, "div")
  expect_identical(a$attribs$id, "hi-absPaneldendDots")
  expect_identical(a$attribs$class, "shiny-html-output")
  expect_known_hash(a, "ec9b50caa5")
})

# colordendLabelsUI -------------------------------------------------------

a <- ghosts::colordendLabelsUI("hi")
test_that("colordendLabelsUI", {
  expect_identical(class(a), "shiny.tag")
  expect_identical(a$name, "div")
  expect_identical(a$attribs$id, "hi-absPanelDendLabels")
  expect_identical(a$attribs$class, "shiny-html-output")
  expect_known_hash(a, "e8d66dac3e")
  
})


# addDotsActionUI ---------------------------------------------------------

a <- ghosts::addDotsActionUI("hi")
test_that("addDotsActionUI", {
  expect_identical(class(a),c("shiny.tag.list", "list"))
  expect_known_hash(a, "d659acae6c")
})


# plotHier ----------------------------------------------------------------

a <- ghosts::plotHier("hi")
test_that("plotHier", {
  expect_identical(class(a),c("shiny.tag.list", "list"))
  expect_known_hash(a, "bffad66f2f")
})


# downloadHier ------------------------------------------------------------

a <- ghosts::downloadHier("hi")
test_that("downloadHier", {
  expect_identical(class(a),"shiny.tag")
  expect_known_hash(a, "a181c75d70")
})

# downloadSvg -------------------------------------------------------------

a <- ghosts::downloadSvg("hi")
test_that("downloadSvg", {
  expect_identical(class(a),"shiny.tag")
  expect_known_hash(a, "38f14650a4")
})





# modDendLabels_WellPanel --------------------------------------------------
# 
# a <- ghosts::modDendLabels_WellPanel(function(x)x)
# test_that("modDendLabels_WellPanel", {
#   expect_identical(class(a),c("shiny.tag.list", "list" ))
#   expect_known_hash(a, "54a3b5f3a4")
# })


# modDendLines_WellPanel --------------------------------------------------

a <- ghosts::modDendLines_WellPanel(function(x)x)
test_that("modDendLines_WellPanel", {
  expect_identical(class(a),c("shiny.tag.list", "list" ))
  expect_known_hash(a, "26f4ebdf4a")
})


# modDendDotsMod_WellPanel ------------------------------------------------

a <- ghosts::modDendDotsMod_WellPanel(function(x)x)
test_that("modDendDotsMod_WellPanel", {
  expect_identical(class(a),c("shiny.tag.list", "list" ))
  expect_known_hash(a, "0e473e9144")
})


# colorPicker -------------------------------------------------------------


a <- ghosts::colorPicker(function() 1:3,
                           function(x)x)

test_that("colorPicker", {
  expect_known_hash(a, "5928c7abe0")
})