Nothing
test_that("bearing to works", {
if (packageVersion("geosphere") >= "1.5.14") {
expect_equivalent(round(track_bearing_to(c(0, 0, 1, 0), c(0, 1, 1, 0),
0, 0), digits = 2L),
c(180.0, 180.0, -134.8, 180.0))
} else {
expect_equivalent(round(track_bearing_to(c(0, 0, 1, 0), c(0, 1, 1, 0),
0, 0), digits = 2L),
c(-180.0, -180.0, -134.8, -180.0))
}
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.