Added test for margin sizing

AdeelK93 · Mar 19, 2017 · 73fca2b · 73fca2b
1 parent 0deca0e
commit 73fca2b
Show file tree

Hide file tree

Showing 6 changed files with 94 additions and 42 deletions.
diff --git a/README.md b/README.md
@@ -87,10 +87,11 @@ shiny::runApp(system.file("examples/03shiny", package = "collapsibleTree"))
 ``` r
 library(collapsibleTree)
 date()
-#> [1] "Sun Mar 19 18:08:24 2017"
+#> [1] "Sun Mar 19 18:37:10 2017"
 
 testthat::test_dir("tests/testthat")
 #> Error handling: ..........
+#> Margin sizing: ................
 #> Root labelling: ..........
 #> 
 #> DONE ======================================================================

diff --git a/docs/index.Rmd b/docs/index.Rmd
@@ -14,7 +14,7 @@ load(system.file("extdata/Geography.rda", package = "collapsibleTree"))
 ## Overview
 
 collapsibleTree is an R [htmlwidget](http://www.htmlwidgets.org/) that allows you to create interactive collapsible Reingold–Tilford tree diagrams using D3.js, adapted from Mike Bostock's [example](https://bl.ocks.org/mbostock/4339083). Turn your data frame into a hierarchical visualization without worrying about nested lists or JSON objects!
-  
+
 If you're using [Shiny](https://shiny.rstudio.com/), you can bind the most recently clicked node to a Shiny input, allowing for easier interaction with complex nested objects. The input will return a named list containing the most recently selected node, as well as all of its parents. See the [Shiny example](https://adeelk93.shinyapps.io/collapsibletree/) for more info.
 
 ## Installation
@@ -95,12 +95,12 @@ countryColors <- Geography %>%
 
 Geography %>%
   arrange(continent, type, country) %>%
-collapsibleTree(
-  hierarchy = c("continent", "type", "country"),
-  root = "Geography",
-  width = 800,
-  fill = c("white", continentColors, typeColors$colors, countryColors$colors)
-)
+  collapsibleTree(
+    hierarchy = c("continent", "type", "country"),
+    root = "Geography",
+    width = 800,
+    fill = c("white", continentColors, typeColors$colors, countryColors$colors)
+  )
 ```
 
 ## Basing Gradients on a Numeric Column

diff --git a/docs/index.html b/docs/index.html
diff --git a/inst/examples/01rmd/Example01.Rmd b/inst/examples/01rmd/Example01.Rmd
@@ -82,12 +82,12 @@ countryColors <- Geography %>%
 
 Geography %>%
   arrange(continent, type, country) %>%
-collapsibleTree(
-  hierarchy = c("continent", "type", "country"),
-  root = "Geography",
-  width = 800,
-  fill = c("white", continentColors, typeColors$colors, countryColors$colors)
-)
+  collapsibleTree(
+    hierarchy = c("continent", "type", "country"),
+    root = "Geography",
+    width = 800,
+    fill = c("white", continentColors, typeColors$colors, countryColors$colors)
+  )
 ```
 
 ## Basing Gradients on a Numeric Column

diff --git a/inst/examples/01rmd/Example01.html b/inst/examples/01rmd/Example01.html
diff --git a/tests/testthat/test-margin.R b/tests/testthat/test-margin.R
@@ -0,0 +1,51 @@
+library(collapsibleTree)
+library(tibble)
+load(system.file("extdata/Geography.rda", package = "collapsibleTree"))
+context("Margin sizing")
+
+geo <- collapsibleTree(
+  Geography,
+  hierarchy = c("continent", "type", "country")
+)
+geoSummary <- collapsibleTreeSummary(
+  Geography,
+  hierarchy = c("continent", "type", "country")
+)
+
+test_that("left margins are the correct size - data frame", {
+  expect_gt(geo$x$options$margin$left, 50)
+  expect_gt(geoSummary$x$options$margin$left, 50)
+  expect_lt(geo$x$options$margin$left, 100)
+  expect_lt(geoSummary$x$options$margin$left, 100)
+})
+
+test_that("right margins are the correct size - data frame", {
+  expect_gt(geo$x$options$margin$right, 250)
+  expect_gt(geoSummary$x$options$margin$right, 250)
+  expect_lt(geo$x$options$margin$right, 300)
+  expect_lt(geoSummary$x$options$margin$right, 300)
+})
+
+Geography <- as_tibble(Geography)
+geo <- collapsibleTree(
+  Geography,
+  hierarchy = c("continent", "type", "country")
+)
+geoSummary <- collapsibleTreeSummary(
+  Geography,
+  hierarchy = c("continent", "type", "country")
+)
+
+test_that("left margins are the correct size - tibble", {
+  expect_gt(geo$x$options$margin$left, 50)
+  expect_gt(geoSummary$x$options$margin$left, 50)
+  expect_lt(geo$x$options$margin$left, 100)
+  expect_lt(geoSummary$x$options$margin$left, 100)
+})
+
+test_that("right margins are the correct size - tibble", {
+  expect_gt(geo$x$options$margin$right, 250)
+  expect_gt(geoSummary$x$options$margin$right, 250)
+  expect_lt(geo$x$options$margin$right, 300)
+  expect_lt(geoSummary$x$options$margin$right, 300)
+})