tests/testthat/test-write.R

context("test-write")

test_that("write KML works", {
  outfile <- tempfile(fileext = ".kml")
  expect_true(!file.exists(outfile))
  expect_that(write_track_kml(walrus818[1:100, ], kml_file = outfile), 
              is_a("character")) %>% expect_length(1L)
  expect_true(file.exists(outfile))
  unlink(outfile)
  expect_true(!file.exists(outfile))
  })

Try the trip package in your browser

Any scripts or data that you put into this service are public.

trip documentation built on Dec. 28, 2022, 1:22 a.m.