merge a few edits

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