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)