ui.R

In ari-nz/picnic: Shows you where to go to have a picnic in level 3.1

ui = bootstrapPage(

    tags$head(
        includeHTML("www/gtag.html"),
        includeCSS("www/styles.css"),
        includeScript("www/slider.js")
    ),
    shinyalert::useShinyalert(rmd = FALSE),

    navbarPage(theme = shinytheme("flatly"), collapsible = TRUE,
               HTML('<a style="text-decoration:none;cursor:default;color:#FFFFFF;" class="active" href="#">L3 with Picnics</a>'), id="nav",
               windowTitle = "L3 with Picnics",


               tabPanel("Picnics",
                        fluidRow(
                            column(3,offset=1,
                                   sliderInput('park_size', 'How big do you like your parks?',min = 1,max=5,value =c(1,5),step=1, ticks =FALSE),
                            ),
                            column(3,
                                   sliderInput('distance', 'How far are you really willing to go? (km)',min = 1,max=20,value =5,step=1)
                            ),

                            column(2,
                                   actionButton('shortest_path', 'Find me my parks!', class = 'btn-success')
                                   # actionButton('reset', div("Restart  ", icon("undo-alt")), class='btn-light')
                            ) %>% shiny::tagAppendAttributes(style="padding-bottom:10px"),
                            column(2,
                                   # actionButton('shortest_path', 'Find me my parks!', class = 'btn-success'),
                                   div(style="display:inline-block",
                                       actionButton('reset', div("Restart  ", icon("undo-alt")), class='btn-light')
                                       , style="float:right")
                            ) %>% shiny::tagAppendAttributes(style="padding-bottom:10px"),
                        ),
                        fluidRow(
                            column(width=10,offset = 1,
                                   shinycssloaders::withSpinner(
                                    leaflet::leafletOutput('basemap',width = "100%", height = '70vh'),
                                    type = 3, color = "#18bc9c", size = 2,color.background = 'white'
                                   )
                            )
                        ),
                        fluidRow(
                            column(11, offset=1,
                                   div("Thanks to ",
                                   a("Charles Lan", href= "https://www.linkedin.com/in/charles-lan/"),
                                   " for giving me this silly idea"
                                   ,style = 'font-color:#ced4da')
                                   # tableOutput("print_points")
                            )
                        )
               )

    )
)