Nothing
context("utils")
test_that("lat and lon columns found", {
testthat::skip_on_cran()
df <- data.frame(lats = 1:3, long = 1:3)
expect_true(googlePolylines:::find_lat_column(names(df)) == "lats")
expect_true(googlePolylines:::find_lon_column(names(df)) == "long")
df <- data.frame(myLat = 1:3, myLongitudes = 1:3)
expect_error(googlePolylines:::find_lat_column(names(df)),"Couldn't infer latitude column")
expect_error(googlePolylines:::find_lon_column(names(df)),"Couldn't infer longitude column")
df <- data.frame(shape_pt_lat = 1, shape_pt_lon = 2)
expect_equal( googlePolylines:::find_lat_column(names(df)), "shape_pt_lat" )
expect_equal( googlePolylines:::find_lon_column(names(df)), "shape_pt_lon" )
})
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.