Add landscape.R; Improve scale_down
diff --git a/R/kable_styling.R b/R/kable_styling.R
index 4ede987..05a95cc 100644
--- a/R/kable_styling.R
+++ b/R/kable_styling.R
@@ -222,7 +222,7 @@
     return(x)
   }
   x <- sub(table_info$begin_tabular,
-           paste0("\\\\resizebox\\{\\\\textwidth\\}\\{\\!\\}\\{",
+           paste0("\\\\resizebox\\{\\\\linewidth\\}\\{\\!\\}\\{",
                   table_info$begin_tabular),
            x)
   sub(table_info$end_tabular, paste0(table_info$end_tabular, "\\}"), x)