tests/testthat/test-fct_vessel_map.R

test_that("returns leaflet map", {
  
    vdata <- distances[1, ]
    
    expect_s3_class(vessel_map(vdata),  "leaflet")
    
    expect_s3_class(vessel_map(vdata),  "htmlwidget")
    
})
novica/boats documentation built on Jan. 19, 2021, 12:38 a.m.