R/app_ui.R

In dbca-wa/turtleviewer: WA Turtle Data Viewer

#' @import shiny
app_ui <- function() {
  # mod_odk_ui("mod_odk_ui")
  golem::favicon("www/favicon.ico")
  tagList(
    golem_add_external_resources(),
    
    bs4Dash::bs4DashPage(
      title = "WA Turtle Nesting Census Data Viewer",
      navbar = bs4Dash::bs4DashNavbar(
        tagList(
            tags$col(tags$img(src = "www/logo.svg", height = "50px")),
            tags$col(tags$span(uiOutput("data_filter"), class="m-4")),
            tags$col(uiOutput("data_download"))
            # "WA Turtle Nesting Census Data Viewer",
        )
      ),
      sidebar_collapsed = TRUE,
      sidebar_mini = FALSE,
      # sidebar = bs4Dash::bs4DashSidebar() ,
      # controlbar = bs4Dash::bs4DashControlbar(),
      # footer = bs4Dash::bs4DashFooter(),
      body = bs4Dash::bs4DashBody(
        waiter::use_waiter(),
        waiter::show_waiter_on_load(waiter::spin_chasing_dots()),
        bs4Dash::tabsetPanel(
          id="mainpanel",
          side="left",
          bs4Dash::tabPanel(tabName = "Tracks and Nests", uiOutput("tracks_tab")),
          bs4Dash::tabPanel(tabName = "Fan angles", uiOutput("fanangle_tab")),
          bs4Dash::tabPanel(tabName = "Nest excavations", uiOutput("excavation_tab")),
          bs4Dash::tabPanel(tabName = "Tagged nests", uiOutput("logger_tab")),
          bs4Dash::tabPanel(tabName = "Disturbance", uiOutput("dist_tab")),
          bs4Dash::tabPanel(tabName = "Predation", uiOutput("pred_tab")),
          bs4Dash::tabPanel(tabName = "Rescues", uiOutput("mwi_tab_live")),
          bs4Dash::tabPanel(tabName = "Strandings", uiOutput("mwi_tab_dead")),
          bs4Dash::tabPanel(tabName = "Surveys", uiOutput("survey_tab")),
          bs4Dash::tabPanel(tabName = "About", uiOutput("about_tab"))
        ) # /tabsetPanel
      )
    )
    
    
    # fluidPage(
    #   titlePanel(
    #     tags$span(
    #       tags$img(src = "www/logo.svg", height = "50px"),
    #       "WA Turtle Nesting Census Data Viewer"
    #     ),
    #     windowTitle = "WA Turtles"
    #   ),
    #   sidebarLayout(
    #     sidebarPanel(
    #       uiOutput("disclaimer"),
    #       br(),
    #       uiOutput("area_selector"),
    #       br(),
    #       uiOutput("download_button"),
    #       width = 3,
    #       actionButton("browser", "browser"),
    #       tags$script("$('#browser').hide();")
    #     ),
    #     mainPanel(
    #       tabsetPanel(
    #         type = "tabs",
    #         tabPanel("Tracks and Nests", uiOutput("tracks_tab")),
    #         tabPanel("Fan angles", uiOutput("fanangle_tab")),
    #         tabPanel("Nest excavations", uiOutput("excavation_tab")),
    #         tabPanel("Nest loggers", uiOutput("logger_tab")),
    #         tabPanel("Disturbance", uiOutput("dist_tab")),
    #         tabPanel("Predation", uiOutput("pred_tab")),
    #         tabPanel("Rescues", uiOutput("mwi_tab_live")),
    #         tabPanel("Strandings", uiOutput("mwi_tab_dead")),
    #         tabPanel("Surveys", uiOutput("survey_tab")),
    #         tabPanel("About", uiOutput("about_tab"))
    #       ),
    #       width = 9
    #     ) # mainPanel
    #   ) # sidebarLayout
    # ) # fluidPage
  ) # tagList
}

#' @import shiny
golem_add_external_resources <- function() {
  addResourcePath("www", system.file("app/www", package = "turtleviewer"))
  addResourcePath(
    "media", system.file("odk/media", package = "turtleviewer", mustWork = T))
  
  tags$head(
    golem::activate_js(),
    golem::favicon()
    # Add here all the external resources
    # If you have a custom.css in the inst/app/www
    # Or for example, you can add shinyalert::useShinyalert() here
    # tags$link(rel="stylesheet", type="text/css", href="www/custom.css")
  )
}