apps-ffsimulator/app.R at master · dynastyprocess/apps-ffsimulator · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
pkgload::load_all()

ui <- dashboardPage(
  dark = NULL,
  title = "ffsimulator | DynastyProcess.com",
  # sidebar_collapsed = TRUE,
  header = dp_header(
    glue::glue("DP.com: ffsimulator v{packageVersion('ffsimulator')}")
  ),
  sidebar = dp_sidebar(
    menuItem("Season", tabName = "Season", icon = icon("quidditch")),
    menuItem("Upcoming Week", tabName = "UpcomingWeek", icon = icon("bolt")),
    debug = FALSE),
  body = dashboardBody(
    useShinyjs(),
    use_sever(),
    use_waiter(),
    # waiter_on_busy(),
    dp_cssjs(),
    tabItems(
      simulate_ui("Season"),
      simulate_ui("UpcomingWeek")
    )
  ) # end of body ----
) # end of UI ----

# Server ----
server <- function(input, output, session) {

  sever_dp()

  # observeEvent(input$debug, browser())

  simulate_server("UpcomingWeek")
  simulate_server("Season")

} # end of server ####

shinyApp(ui, server)