added kable_styling(latex_options = hold_position) to hold table positions

Author: ttimbers

classification1.Rmd

@@ -4,6 +4,7 @@
 library(formatR)
 library(plotly)
 library(knitr)
+library(kableExtra)
 
 knitr::opts_chunk$set(echo = TRUE, 
                       fig.align = "center")
@@ -502,7 +503,10 @@ math_table <- math_table %>%
 ```
 
 ```{r 05-multiknn-mathtable, echo = FALSE}
-knitr::kable(math_table, booktabs = TRUE, caption = "Evaluating the distances from the new observation to each of its 5 nearest neighbors", escape = FALSE)
+kable(math_table, booktabs = TRUE, 
+      caption = "Evaluating the distances from the new observation to each of its 5 nearest neighbors", 
+      escape = FALSE) |>
+  kable_styling(latex_options = "hold_position")
 ```
 
 The result of this computation shows that 3 of the 5 nearest neighbors to our new observation are

viz.Rmd

@@ -4,6 +4,8 @@
 library(tidyverse)
 library(cowplot)
 library(knitr)
+library(kableExtra)
+
 knitr::opts_chunk$set(fig.align = "center")
 ```
 
@@ -1472,7 +1474,8 @@ file_sizes <- tibble(`Image type` = c("Raster",
                         paste(round(file.info("img/faithful_plot.svg")["size"] 
                                     / 1000000, 2), "MB")))
 kable(file_sizes,
-      caption = "File sizes of the scatter plot of the Old Faithful data set when saved as different file formats.")
+      caption = "File sizes of the scatter plot of the Old Faithful data set when saved as different file formats.") |>
+  kable_styling(latex_options = "hold_position")
 ```
 
 Take a look at the file sizes in Table \@ref(tab:filesizes).