tests/testthat/test-fct_vessel_card.R

test_that("function returns object", {
  
  vdata <- distances[1, ]
  
  expect_s3_class(vdata, "data.frame")
  
  expect_s3_class(vessel_card(vdata),  "shiny.tag")
  
})
novica/boats documentation built on Jan. 19, 2021, 12:38 a.m.