Skip to content

Instantly share code, notes, and snippets.

@njtierney

njtierney/visdat-messy-test

Created April 20, 2016 02:18
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save njtierney/24e0844306ebad8e46fc8717fd414a69 to your computer and use it in GitHub Desktop.
Save njtierney/24e0844306ebad8e46fc8717fd414a69 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
visdat-messy-test
context("Test names with spaces")
messy_names <- data_frame(`Sepal Width` = iris$Sepal.Width,
`Sepal Length` = iris$Sepal.Length,
`Petal Length` = iris$Petal.Length,
`Species Names` = iris$Species)
test_that("vis_dat works on dataframes with irregular variable names", {
expect_success(
vis_dat(messy_names)
)
expect_equal(guess_type(TRUE), "logical")
})
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment