Nothing
context("'select' on CrunchDataset")
with_mock_crunch({
ds <- loadDataset("test ds")
test_that("Some facts about the fixture dataset", {
expect_identical(names(ds),
c("birthyr", "gender", "location", "mymrset", "textVar", "starttime", "catarray"))
})
test_that("Basic 'select' equivalence", {
expect_identical(select(ds, starttime, birthyr, gender),
ds[c("starttime", "birthyr", "gender")])
expect_identical(select(ds, starts_with("m")),
ds["mymrset"])
expect_identical(select(ds, mymrset:starttime),
ds[c("mymrset", "textVar", "starttime")])
})
test_that("Select then filter", {
both <- ds %>%
select(mymrset, starttime, gender) %>%
filter(gender == "Male")
expect_identical(both, ds[ds$gender == "Male", c("mymrset", "starttime", "gender")])
})
test_that("Renaming in select warning", {
expect_warning(try_rename <- ds %>%
select(new_name = mymrset, starttime, gender),
"Renaming variables is not supported by crplyr"
)
expect_equal(names(try_rename), c("mymrset", "starttime", "gender"))
})
test_that("select_ warning", {
expect_error(
suppressWarnings(select_(ds, .dots = "catfish")),
"The select_.* function is no longer supported. Please use select.* instead"
)
})
})
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.