shiny_crocotile/ui.R at main · 1O/shiny_crocotile · 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
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
library(waiter)
library(shinythemes)
library(bslib)

eShape_theme <- bs_theme(
  primary = "#ef3d5a"
)

ui <- fluidPage(theme = eShape_theme, ##shinytheme("flatly"),

    ## some CSS
    tags$head(
             tags$link(rel = "stylesheet", type = "text/css", href = "local.css")
         ),

    ## App title ----
    titlePanel(title = div(
                   tags$img(src = 'eshape-logo.png', height = 50),
                   tags$img(src = 'data/crocotile.svg', width = 200),
                   'crocoTile'
               ),
               windowTitle = 'eShape crocoTile'
               ),

    ## Main panel for displaying outputs ----
    mainPanel(

        useAttendant(),
        useWaitress(),
        verbatimTextOutput('log'),
        fluidRow(
            column(4),
            column(8,
                   tabsetPanel(
                       tabPanel("site data",
                                conditionalPanel( condition = "output.shapes_loaded",
                                                 div(id = 'div_site_picker',
                                                     shiny::selectizeInput(inputId = 'site_picker',
                                                                           label = ' ',
                                                                           choices = NULL)
                                                     ),
                                                 div(id = 'div_map',
                                                     leaflet::leafletOutput('plot')
                                                     ),
                                                 uiOutput('site_summary')
                                                 ),
                                div(id = 'loading', class = 'well',
                                    p(strong('loading geodata'),
                                      ' (this can take up to 10 seconds but
                                                          is required only once per visit)'),
                                    attendantBar('loading-bar',
                                                 max = 100, color = "success",
                                                 striped = TRUE, animated = TRUE
                                                 )
                                    )
                                ),
                       tabPanel(HTML("what&rsquo;s this?"),
                                includeHTML('./www/about.html')
                                ),
                       tabPanel("about",
                                div(
                                    includeHTML("./www/credits.html")
                                )
                                )
                   )

                   ),
            column(4
                   )
        )
    )
)