increase version; add news and add tests
diff --git a/DESCRIPTION b/DESCRIPTION
index 4a8a83d..2fcedcc 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -1,7 +1,7 @@
Package: kableExtra
Type: Package
Title: Construct Complex Table with 'kable' and Pipe Syntax
-Version: 1.0.0
+Version: 1.0.1
Authors@R: c(
person('Hao', 'Zhu', email = 'haozhu233@gmail.com', role = c('aut', 'cre'),
comment = c(ORCID = '0000-0002-3386-6076')),
diff --git a/inst/NEWS.md b/inst/NEWS.md
index 63cc6e9..9458755 100644
--- a/inst/NEWS.md
+++ b/inst/NEWS.md
@@ -1,3 +1,11 @@
+kableExtra 1.0.1
+--------------------------------------------------------------------------------
+
+# Bug Fixes
+* Fix issue where HTML results cannot be displayed inline (#330)
+
+* Fix extra texts with save_kable for HTML (#310)
+
kableExtra 1.0.0
--------------------------------------------------------------------------------
# Major Changes
diff --git a/tests/test-all.R b/tests/test-all.R
deleted file mode 100644
index 85b85fe..0000000
--- a/tests/test-all.R
+++ /dev/null
@@ -1,5 +0,0 @@
-# Modeled after the R6 testing structure: https://github.com/wch/R6/blob/master/tests/testthat.R
-library(testthat)
-library(kableExtra)
-
-# testthat::test_check("kableExtra")
diff --git a/tests/testthat.R b/tests/testthat.R
new file mode 100644
index 0000000..a037a2d
--- /dev/null
+++ b/tests/testthat.R
@@ -0,0 +1,4 @@
+library(testthat)
+library(kableExtra)
+
+test_check("kableExtra")
diff --git a/tests/testthat/test-indent-latex.R b/tests/testthat/test-indent-latex.R
new file mode 100644
index 0000000..84d9fec
--- /dev/null
+++ b/tests/testthat/test-indent-latex.R
@@ -0,0 +1,20 @@
+context("add_indent")
+
+test_that("add_indent can add to 1 row", {
+ observed <- kable(mtcars[1:4, 1:3], "latex") %>%
+ add_indent(1) %>%
+ as.character()
+ expected <- "\n\\begin{tabular}{l|r|r|r}\n\\hline\n & mpg & cyl & disp\\\\\n\\hline\n\\hspace{1em}Mazda RX4 & 21.0 & 6 & 160\\\\\n\\hline\nMazda RX4 Wag & 21.0 & 6 & 160\\\\\n\\hline\nDatsun 710 & 22.8 & 4 & 108\\\\\n\\hline\nHornet 4 Drive & 21.4 & 6 & 258\\\\\n\\hline\n\\end{tabular}"
+ expect_equal(observed, expected)
+})
+
+test_that("add_indent can be added multiple times.", {
+ observed <- kable(mtcars[1:4, 1:3], "latex") %>%
+ add_indent(1:3) %>%
+ add_indent(1) %>%
+ as.character()
+ expected <- "\n\\begin{tabular}{l|r|r|r}\n\\hline\n & mpg & cyl & disp\\\\\n\\hline\n\\hspace{1em}\\hspace{1em}Mazda RX4 & 21.0 & 6 & 160\\\\\n\\hline\n\\hspace{1em}Mazda RX4 Wag & 21.0 & 6 & 160\\\\\n\\hline\n\\hspace{1em}Datsun 710 & 22.8 & 4 & 108\\\\\n\\hline\nHornet 4 Drive & 21.4 & 6 & 258\\\\\n\\hline\n\\end{tabular}"
+ expect_equal(observed, expected)
+})
+
+
diff --git a/tests/testthat/test-styling.R b/tests/testthat/test-styling.R
index ff0f98c..e69de29 100644
--- a/tests/testthat/test-styling.R
+++ b/tests/testthat/test-styling.R
@@ -1,34 +0,0 @@
-library(testthat)
-library(knitr)
-
-dt <- mtcars[1:5, 1:8]
-
-
-# ---- styling -----------------------------------------------------------------
-testthat::context("styling")
-
-test_that("dry_run", {
- observed <- dt[1:3] %>%
- kable(format = "latex", booktabs = T, caption = "xxx") %>%
- kable_styling(latex_options = c("striped", "hold_position"), font_size = 6, position = "float_left")
- dput(observed)
-
- expected <- structure("\\rowcolors{2}{gray!6}{white}\n\\begin{wraptable}{l}{6.6cm}\n\n\\caption{\\label{tab:}xxx}\n\\centering\n\\fontsize{6}{8}\\selectfont\n\\begin{tabular}[t]{lrrr}\n\\hiderowcolors\n\\toprule\n & mpg & cyl & disp\\\\\n\\midrule\n\\showrowcolors\nMazda RX4 & 21.0 & 6 & 160\\\\\nMazda RX4 Wag & 21.0 & 6 & 160\\\\\nDatsun 710 & 22.8 & 4 & 108\\\\\nHornet 4 Drive & 21.4 & 6 & 258\\\\\nHornet Sportabout & 18.7 & 8 & 360\\\\\n\\bottomrule\n\\end{tabular}\n\\end{wraptable}\n\\rowcolors{2}{white}{white}", format = "latex", class = "knitr_kable", kable_meta = structure(list(
- tabular = "tabular", booktabs = TRUE, align = "lrrr", valign = "[t]",
- ncol = 4L, nrow = 6, colnames = c(" ", "mpg", "cyl", "disp"
- ), rownames = c("", "Mazda", "Mazda", "Datsun", "Hornet",
- "Hornet"), caption = "\\label{tab:}xxx", caption.short = NULL,
- contents = c(" & mpg & cyl & disp", "Mazda RX4 & 21.0 & 6 & 160",
- "Mazda RX4 Wag & 21.0 & 6 & 160", "Datsun 710 & 22.8 & 4 & 108",
- "Hornet 4 Drive & 21.4 & 6 & 258", "Hornet Sportabout & 18.7 & 8 & 360"
- ), centering = TRUE, table_env = TRUE, align_vector = c("l",
- "r", "r", "r"), align_vector_origin = c("l", "r", "r", "r"
- ), valign2 = "\\[t\\]", valign3 = "t", begin_tabular = "\\\\begin\\{tabular\\}\\[t\\]",
- end_tabular = "\\\\end\\{tabular\\}"), .Names = c("tabular",
- "booktabs", "align", "valign", "ncol", "nrow", "colnames", "rownames",
- "caption", "caption.short", "contents", "centering", "table_env",
- "align_vector", "align_vector_origin", "valign2", "valign3",
- "begin_tabular", "end_tabular")))
-
- expect_equal(observed, expected)
-})
diff --git a/tests/visual_tests/add_indent_and_group_rows_pdf.Rmd b/tests/visual_tests/add_indent_and_group_rows_pdf.Rmd
index 19b24e2..a0b4b9c 100644
--- a/tests/visual_tests/add_indent_and_group_rows_pdf.Rmd
+++ b/tests/visual_tests/add_indent_and_group_rows_pdf.Rmd
@@ -20,6 +20,13 @@
```
```{r}
+kable(rbind(dt, dt), format = "latex", booktabs = T) %>%
+ kable_styling() %>%
+ add_indent(c(3, 5)) %>%
+ add_indent(5:12)
+```
+
+```{r}
kable(dt, format = "latex", booktabs = T) %>%
kable_styling() %>%
group_rows(index = c(" ", "Group A" = 4, "Group B" = 5))