tests/testthat/test-path_leaflet.R

In GISSB: Network Analysis on the Norwegian Road Network

testthat::test_that("Testing path_leaflet", {

  vegnett <- vegnett_sampledata

  vegnett_list <- vegnett_to_R(vegnett = vegnett_sampledata,
                               year = 2021,
                               fromnodeID = "FROMNODEID",
                               tonodeID = "TONODEID",
                               FT_minutes = "FT_MINUTES",
                               TF_minutes = "TF_MINUTES",
                               meters = "SHAPE_LENGTH")

  graph <- vegnett_list[[1]]

  path <- shortest_path_igraph(from_node_ID = 54,
                               to_node_ID = 61,
                               graph_object = graph,
                               unit = "minutes",
                               path = T)
  map <- path_leaflet(path,
                      graph_object = graph)

  testthat::expect_type(map, "list")

})