app.R

In jacciz/shiny_wisdot_crash_dashboard: WisDOTcrashdashboard

# Launch the ShinyApp (Do not remove this comment)
# To deploy, run: rsconnect::deployApp()
# Or use the blue button on top of this file

pkgload::load_all(export_all = FALSE, helpers = FALSE, attach_testthat = FALSE, export_imports = FALSE)
# usethis::use_dev_package(package = "waffle", remote = "hrbrmstr/waffle")
options("golem.app.prod" = TRUE, shiny.autoload.r = FALSE)
WisDOTcrashdashboard::run_app() # add parameters here (if any)
# Launch the ShinyApp (Do not remove this comment)
# To deploy, run: rsconnect::deployApp()
# Or use the blue button on top of this file

# Performance (replace with only this code):
# profvis::profvis({
#   print(
#     WisDOTcrashdashboard::run_app()
#   )/c/Users/YOU/.ssh/id_ed25519_sk
# })

# TODO should role be role_type like in crash_facts? Add agg flag?
# DESC
# remove attempt, dbplyr, remotes, qpdf, golem
# 'pkgload' 'processx' sysfont showtext, emojifont is for fontawesome

# In another R process
# shinyloadtest::record_session("http://127.0.0.1:7943")
# cd C:\W_shortcut\WisDOTcrashdashboard
# java -jar shinycannon-1.1.3-dd43f6b.jar recording.log http://127.0.0.1:6220
# df <- shinyloadtest::load_runs("test-logs-2023-03-22T14_47_17.814Z")
# shinyloadtest::shinyloadtest_report(df, "run1.html")