Skip to content
Snippets Groups Projects
Commit 5fd9d3ab authored by B.Anderson's avatar B.Anderson
Browse files

removed kable_styling() as this produces html which breaks the latex to pdf conversion (sigh)

parent 01107a6e
No related branches found
No related tags found
2 merge requests!3merge a few edits,!2fixed pdf build
...@@ -77,8 +77,7 @@ origDataDT <- drake::readd(origData) # readd the drake object ...@@ -77,8 +77,7 @@ origDataDT <- drake::readd(origData) # readd the drake object
uniqDataDT <- drake::readd(uniqData) # readd the drake object uniqDataDT <- drake::readd(uniqData) # readd the drake object
kableExtra::kable(head(origDataDT), digits = 2, kableExtra::kable(head(origDataDT), digits = 2,
caption = "First 6 rows of data") %>% caption = "First 6 rows of data")
kable_styling()
``` ```
Do a duplicate check by feeder_ID, dateTime & kW. In theory there should not be any. 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, ...@@ -323,23 +322,19 @@ ggplot2::ggplot(aggDT, aes(x = rDate, colour = season,
aggDT[, rDoW := lubridate::wday(rDate, lab = TRUE)] aggDT[, rDoW := lubridate::wday(rDate, lab = TRUE)]
h <- head(aggDT[season == "Spring"][order(-propExpected)]) h <- head(aggDT[season == "Spring"][order(-propExpected)])
kableExtra::kable(h, caption = "Best Spring days overall", kableExtra::kable(h, caption = "Best Spring days overall",
digits = 3) %>% digits = 3)
kable_styling()
h <- head(aggDT[season == "Summer"][order(-propExpected)]) h <- head(aggDT[season == "Summer"][order(-propExpected)])
kableExtra::kable(h, caption = "Best Summer days overall", kableExtra::kable(h, caption = "Best Summer days overall",
digits = 3) %>% digits = 3)
kable_styling()
h <- head(aggDT[season == "Autumn"][order(-propExpected)]) h <- head(aggDT[season == "Autumn"][order(-propExpected)])
kableExtra::kable(h, caption = "Best Autumn days overall", kableExtra::kable(h, caption = "Best Autumn days overall",
digits = 3) %>% digits = 3)
kable_styling()
h <- head(aggDT[season == "Winter"][order(-propExpected)]) h <- head(aggDT[season == "Winter"][order(-propExpected)])
kableExtra::kable(h, caption = "Best Winter days overall", kableExtra::kable(h, caption = "Best Winter days overall",
digits = 3) %>% digits = 3)
kable_styling()
``` ```
# Summary # Summary
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment