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
......@@ -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
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment