Add vignettes
diff --git a/R/add_footnote.R b/R/add_footnote.R
index dd1bd4b..a6524a5 100644
--- a/R/add_footnote.R
+++ b/R/add_footnote.R
@@ -11,7 +11,7 @@
#' @param label A vector of footnotes you want to add. You don't need to add
#' notations in your notes.
#' @param notation You can select the format of your footnote notation from
-#' "number", "alphabet" and "symbol".
+#' `number`, `alphabet` and `symbol`.
#' @param threeparttable Boolean value indicating if a
#' \href{https://www.ctan.org/pkg/threeparttable}{threeparttable} scheme should be used.
#'
diff --git a/R/add_header_above.R b/R/add_header_above.R
index 5c9531b..5a3c31a 100644
--- a/R/add_header_above.R
+++ b/R/add_header_above.R
@@ -53,7 +53,7 @@
out <- structure(as.character(kable_xml), format = "html",
class = "knitr_kable")
attr(out, "original_kable_meta") <- table_info
- return()
+ return(out)
}
standardize_header_input <- function(header) {
diff --git a/R/kable_styling.R b/R/kable_styling.R
index 44b4d0f..ad6189a 100644
--- a/R/kable_styling.R
+++ b/R/kable_styling.R
@@ -6,12 +6,12 @@
#'
#' @param kable_input Output of `knitr::kable()` with `format` specified
#' @param bootstrap_options A character vector for bootstrap table options.
-#' Please see package documentation site or visit the w3schools'
+#' Please see package vignette or visit the w3schools'
#' \href{https://www.w3schools.com/bootstrap/bootstrap_tables.asp}{Bootstrap Page}
#' for more information. Possible options include `basic`, `striped`,
#' `bordered`, `hover`, `condensed` and `responsive`.
#' @param latex_options A character vector for LaTeX table options. Please see
-#' package documentation site for more information. Possible options include
+#' package vignette for more information. Possible options include
#' `basic`, `striped`, `hold_position`, `scale_down`. `striped` will add
#' alternative row colors to the table. It will imports `LaTeX` package `xcolor`
#' if enabled. `hold_position` will "hold" the floating table to the exact
@@ -233,7 +233,7 @@
col_max_length <- apply(size_matrix, 1, max) + 4
col_ratio <- round(col_max_length / sum(col_max_length), 2)
col_align <- paste0("p{\\\\dimexpr", col_ratio,
- "\\\\linewidth-2\\\\tabcolsep}")
+ "\\\\columnwidth-2\\\\tabcolsep}")
col_align <- paste0("{", paste(col_align, collapse = ""), "}")
x <- sub(paste0(table_info$begin_tabular, "\\{[^\\\\n]*\\}"),
table_info$begin_tabular, x)