Nothing
context("various")
library("maptools")
library("spdplyr")
data(wrld_simpl)
wrld_simpl@proj4string@projargs <- "+proj=longlat +datum=WGS84"
DF <- wrld_simpl@data %>% transmute(NAME, a = 1)
test_that("multiplication works", {
testthat::skip("skipping join tests")
wrld_simpl %>% left_join(DF, by = "NAME")
wrld_simpl %>% inner_join(DF, by = "NAME")
wrld_simpl %>% right_join(DF, by = "NAME")
wrld_simpl %>% full_join(DF, by = "NAME")
wrld_simpl %>% semi_join(DF, by = "NAME")
wrld_simpl %>% anti_join(DF, by = "NAME")
wrld_simpl %>% distinct(REGION)
})
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.