Nothing
## ---- message=FALSE, warning=FALSE, eval=FALSE--------------------------------
# # aggregate the sample data to make a small data frame
# library(basictabler)
# library(dplyr)
# tocsummary <- bhmsummary %>%
# group_by(TOC) %>%
# summarise(OnTimeArrivals=sum(OnTimeArrivals),
# OnTimeDepartures=sum(OnTimeDepartures),
# TotalTrains=sum(TrainCount)) %>%
# ungroup() %>%
# mutate(OnTimeArrivalPercent=OnTimeArrivals/TotalTrains*100,
# OnTimeDeparturePercent=OnTimeDepartures/TotalTrains*100) %>%
# arrange(TOC)
#
# # formatting values (explained in the introduction vignette)
# columnFormats=list(NULL, list(big.mark=","), list(big.mark=","), list(big.mark=","), "%.1f", "%.1f")
#
# # create the table and render
# tbl <- BasicTable$new()
# tbl$addData(tocsummary, firstColumnAsRowHeaders=TRUE,
# explicitColumnHeaders=c("TOC", "On-Time Arrivals", "On-Time Departures",
# "Total Trains", "On-Time Arrival %", "On-Time Departure %"),
# columnFormats=columnFormats)
#
# # export to Excel
# library(openxlsx)
# wb <- createWorkbook(creator = Sys.getenv("USERNAME"))
# addWorksheet(wb, "Data")
# tbl$writeToExcelWorksheet(wb=wb, wsName="Data",
# topRowNumber=1, leftMostColumnNumber=1, applyStyles=FALSE)
# saveWorkbook(wb, file="C:\\test.xlsx", overwrite = TRUE)
## ---- message=FALSE, warning=FALSE, eval=FALSE--------------------------------
# # aggregate the sample data to make a small data frame
# library(basictabler)
# library(dplyr)
# tocsummary <- bhmsummary %>%
# group_by(TOC) %>%
# summarise(OnTimeArrivals=sum(OnTimeArrivals),
# OnTimeDepartures=sum(OnTimeDepartures),
# TotalTrains=sum(TrainCount)) %>%
# ungroup() %>%
# mutate(OnTimeArrivalPercent=OnTimeArrivals/TotalTrains*100,
# OnTimeDeparturePercent=OnTimeDepartures/TotalTrains*100) %>%
# arrange(TOC)
#
# # formatting values (explained in the introduction vignette)
# columnFormats=list(NULL, list(big.mark=","), list(big.mark=","), list(big.mark=","), "%.1f", "%.1f")
#
# # create the table and render
# tbl <- BasicTable$new()
# tbl$addData(tocsummary, firstColumnAsRowHeaders=TRUE,
# explicitColumnHeaders=c("TOC", "On-Time Arrivals", "On-Time Departures",
# "Total Trains", "On-Time Arrival %", "On-Time Departure %"),
# columnFormats=columnFormats)
#
# # export to Excel
# library(openxlsx)
# wb <- createWorkbook(creator = Sys.getenv("USERNAME"))
# addWorksheet(wb, "Data")
# tbl$writeToExcelWorksheet(wb=wb, wsName="Data",
# topRowNumber=1, leftMostColumnNumber=1,
# applyStyles=TRUE, mapStylesFromCSS=TRUE)
# saveWorkbook(wb, file="C:\\test.xlsx", overwrite = TRUE)
## ---- message=FALSE, warning=FALSE, eval=FALSE--------------------------------
# # aggregate the sample data to make a small data frame
# library(basictabler)
# library(dplyr)
# tocsummary <- bhmsummary %>%
# group_by(TOC) %>%
# summarise(OnTimeArrivals=sum(OnTimeArrivals),
# OnTimeDepartures=sum(OnTimeDepartures),
# TotalTrains=sum(TrainCount)) %>%
# ungroup() %>%
# mutate(OnTimeArrivalPercent=OnTimeArrivals/TotalTrains*100,
# OnTimeDeparturePercent=OnTimeDepartures/TotalTrains*100) %>%
# arrange(TOC)
#
# # formatting values (explained in the introduction vignette)
# columnFormats=list(NULL, list(big.mark=","), list(big.mark=","), list(big.mark=","), "%.1f", "%.1f")
#
# # create the table and render
# tbl <- BasicTable$new()
# tbl$addData(tocsummary, firstColumnAsRowHeaders=TRUE,
# explicitColumnHeaders=c("TOC", "On-Time Arrivals", "On-Time Departures",
# "Total Trains", "On-Time Arrival %", "On-Time Departure %"),
# columnFormats=columnFormats)
#
# # set the styling on the count cells
# # the arguments are (rFrom, cFrom, rTo, cTo, declarations)
# tbl$setStyling(2, 2, 5, 4, declarations=list("xl-value-format"="#,##0"))
# # set the styling on the average delay cells
# tbl$setStyling(2, 5, 5, 6, declarations=list("xl-value-format"="##0.0"))
#
# # export to Excel
# library(openxlsx)
# wb <- createWorkbook(creator = Sys.getenv("USERNAME"))
# addWorksheet(wb, "Data")
# tbl$writeToExcelWorksheet(wb=wb, wsName="Data",
# topRowNumber=1, leftMostColumnNumber=1,
# applyStyles=TRUE, mapStylesFromCSS=TRUE,
# outputValuesAs="rawValue")
# saveWorkbook(wb, file="C:\\test.xlsx", overwrite = TRUE)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.