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))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.