From 5fd9d3ab337f178eb8653b6d3e41d363538ca368 Mon Sep 17 00:00:00 2001
From: "B.Anderson" <ba1e12@srv02405.soton.ac.uk>
Date: Thu, 9 Jul 2020 10:01:24 +0100
Subject: [PATCH] removed kable_styling() as this produces html which breaks
 the latex to pdf conversion (sigh)

---
 Rmd/cleaningFeederData.Rmd | 15 +++++----------
 1 file changed, 5 insertions(+), 10 deletions(-)

diff --git a/Rmd/cleaningFeederData.Rmd b/Rmd/cleaningFeederData.Rmd
index 2099f72..c0e765f 100644
--- a/Rmd/cleaningFeederData.Rmd
+++ b/Rmd/cleaningFeederData.Rmd
@@ -77,8 +77,7 @@ origDataDT <- drake::readd(origData) # readd the drake object
 uniqDataDT <- drake::readd(uniqData) # readd the drake object
 
 kableExtra::kable(head(origDataDT), digits = 2,
-                  caption = "First 6 rows of data") %>%
-  kable_styling()
+                  caption = "First 6 rows of data")
 ```
 
 Do a duplicate check by feeder_ID, dateTime & kW. In theory there should not be any.
@@ -323,23 +322,19 @@ ggplot2::ggplot(aggDT, aes(x = rDate, colour = season,
 aggDT[, rDoW := lubridate::wday(rDate, lab = TRUE)]
 h <- head(aggDT[season == "Spring"][order(-propExpected)])
 kableExtra::kable(h, caption = "Best Spring days overall", 
-                  digits = 3) %>%
-  kable_styling()
+                  digits = 3)
 
 h <- head(aggDT[season == "Summer"][order(-propExpected)])
 kableExtra::kable(h, caption = "Best Summer days overall", 
-                  digits = 3) %>%
-  kable_styling()
+                  digits = 3)
 
 h <- head(aggDT[season == "Autumn"][order(-propExpected)])
 kableExtra::kable(h, caption = "Best Autumn days overall",
-                  digits = 3) %>%
-  kable_styling()
+                  digits = 3) 
 
 h <- head(aggDT[season == "Winter"][order(-propExpected)])
 kableExtra::kable(h, caption = "Best Winter days overall", 
-                  digits = 3) %>%
-  kable_styling()
+                  digits = 3)
 ```
 
 # Summary
-- 
GitLab