tests/testthat/test-pseudoviz_meta.R

In jpmarindiaz/pseudoviz: What the Package Does (One Line, Title Case)

test_that("Pseudoviz meta data", {
  # ids <- availablePseudoviz()
  # 
  # 
  # x <- "Cat-Num"
  # whichPseudoviz(x)
  # x <- c("Categoría"="Cat","Valor" = "Num")
  # whichPseudoviz(x)
  # 
  # x <- sampleData("Cat-Num")
  # whichPseudoviz(x)
  # 
  # 
  # 
  # whichPseudoviz(ctypes)
  # 
  # printPseudoviz("bar_hor")
  # printPseudoviz(c("bar_hor","treemap"))
  
})