shinyapp/app.R

In master-info/masteRomi: Dati, Poligoni e altro per analisi di Zone OMI

masteRfun::load_pkgs('masteRshiny', 'masteRomi', 'data.table', 'DT', 'htmltools', 'htmlTable', 'leaflet', 'qs', 'shiny', 'shinyjs', 'sf')

ui <- fluidPage(

    useShinyjs(),
    faPlugin,
    tags$head(
        tags$title('Visure. @2023 MaSTeR Information'),
        tags$style("@import url('https://master-info.it/assets/icone/font-awesome/all.css;')"),
        tags$style(HTML("
            #out_map { height: calc(100vh - 80px) !important; }
            .well { 
                padding: 10px;
                height: calc(100vh - 80px);
                overflow-y: auto; 
                border: 10px;
                background-color: #EAF0F4; 
            }
            ::-webkit-scrollbar {
                width: 8px;
            }
            ::-webkit-scrollbar-track {
                background: #f1f1f1;
            }
            ::-webkit-scrollbar-thumb {
                background: #888;
            }
            ::-webkit-scrollbar-thumb:hover {
                background: #555;
            }
            .col-sm-3 { padding-right: 0; }
            #titolo_menu_mappa{ 
                margin-bottom: 10px; 
                font-weight: 700;
                font-size: 120%;
            }
        "))
    ),
    # includeCSS('./styles.css'),
    
    titlePanel('Visure'),

    fluidRow(
        column(3,
            wellPanel(
                shinyWidgets::virtualSelectInput(
                    'cbo_cmn', 'COMUNE:', cmn.lst, character(0), search = TRUE, 
                    placeholder = 'Selezionare un Comune (opzionale)', 
                    searchPlaceholderText = 'Cerca...', 
                    noSearchResultsText = 'Nessun Comune trovato!'
                ),
                textInput('txt_src', 'STRINGA RICERCA:', '', placeholder = 'Inserire almeno 5 caratteri...', ),
                masterPulsante('btn_src', 'CERCA', 'search'),
                selectInput('cbo_res', 'INDIRIZZO:', '', multiple = TRUE, selectize = FALSE),
                selectInput('cbo_cdf', 'CODICE FISCALE:', '', multiple = TRUE, selectize = FALSE),
                
                br(),
                selectInput('cbo_tls', 'TESSERA MAPPA:', tiles.lst, tiles.lst[[19]]),
                # sliderInput('sld_tsp', 'TRASPARENZA POLIGONI:', 1, 10, 2, 1),
                # masterPalette('col_pop', 'SCHEMA COLORE:', 'Rossi'),
                # shinyWidgets::prettySwitch('swt_rvc', 'INVERTI COLORI', FALSE, 'success', fill = TRUE),
                # sliderInput('sld_pop', 'SPESSORE PUNTI:', 4, 20, 8, 1),
                # masterColore('col_com', 'COLORE LINEA COMUNE:', 'black'), 
                # sliderInput('sld_com', 'SPESSORE BORDO COMUNE:', 2, 20, 6, 1),
                br(),
                HTML('
                    © <a href="https://geocode.earth", target="_blank">Geocode Earth</a> and
                    <a href="https://openstreetmap.org/copyright", target="_blank">OpenStreetMap</a>
                ')
            )
        ),
        column(9, 
            leafletOutput('out_map', width = '100%')
            # tabsetPanel(
            #     tabPanel('MAPPA', leafletOutput('out_map', width = '100%')),
            #     tabPanel('TABELLA', DTOutput('out_tbl', width = '100%'))
            # )
        )
    )

)

server <- function(input, output) {

    # INIZIALIZZAZIONE MAPPA
    output$out_map <- renderLeaflet({ mps })

    # ESTRAZIONE POLIGONI
    # dts <- reactive({
    #     req(input$cbo_cmn)
    #     qread(file.path(data_path, 'ispra', input$rdb_rsk, paste0(input$cbo_cmn, ifelse(input$chk_vcn, 'v', ''))), nthreads = 6)
    # })
    
    # AGGIORNAMENTO MAPPA E TABELLA LATERALE
    # observeEvent(
    #     {
    #         input$cbo_cmn
    #         input$rdb_rsk
    #         input$chk_vcn 
    #     }, 
    #     {
    #         print(dts())
    #         bbx <- as.numeric(dts()$bbx)
    #         if(length(bbx) > 0){ 
    #             
    #             y <- leafletProxy('out_map') |>
    #                     removeShape(layerId = 'spinnerMarker') |>
    #                     clearShapes() |> clearControls() |> 
    #                     fitBounds(bbx[1], bbx[2], bbx[3], bbx[4])
    #             
    #             # POLIGONI AREE RISCHIO
    #             grps <- NULL
    #             yr <- livelli.lst[[input$rdb_rsk]]
    #             for(yrn in names(yr)){
    #                 vai <- ifelse(input$chk_vcn, !is.null(dts()[[yrn]]), length(dts()[[yrn]]) > 0)
    #                 if(vai){
    #                     yrc <- colori.lst[[input$rdb_rsk]][[yrn]]
    #                     grp <- livelli.lst[[input$rdb_rsk]][[yrn]]
    #                     grps <- c(grps, grp)
    #                     y <- y |> 
    #                             addPolygons(
    #                                 data = dts()[[yrn]], 
    #                                 group = grp, 
    #                                 stroke = FALSE, 
    #                                 fillColor = yrc, 
    #                                 fillOpacity = 1 - as.numeric(input$sld_tsp) / 10
    #                             )
    #                 } 
    #             }
    #             
    #             # POLIGONI COMUNI
    #             if(input$chk_vcn)
    #                 y <- y |> 
    #                 addPolygons(
    #                     data = dts()$CMNv,
    #                     weight = 2,
    #                     color = 'black',
    #                     opacity = 1,
    #                     fillOpacity = 0,
    #                     #label = lapply(dts()$CMNv$CMN, crea_tabella_popup),
    #                     highlightOptions = hlt.options
    #                 )
    #             y <- y |> 
    #                     addPolygons(
    #                         data = dts()$CMN,
    #                         weight = 3,
    #                         color = 'red',
    #                         opacity = 1,
    #                         fillOpacity = 0,
    #                         label = ~CMN,
    #                         highlightOptions = hlt.options
    #                     )
    #             
    #             # TITOLO? 
    #             # y <- y |> addControl()
    #             
    #             # RILASCIO MAPPA FINALE
    #             y |> 
    #                 addLayersControl(overlayGroups = grps, options = layersControlOptions(collapsed = FALSE)) |> 
    #                 fine_mappa_spin()
    #             
    #         } else {
    # 
    #         }
    # 
    #     }
    # )
    
    # AGGIORNAMENTO TESSERE MAPPA
    observe({ leafletProxy('out_map') |> clearTiles() |> aggiungi_tessera(input$cbo_tls) })
    
    # TABELLA DETTAGLIO
    # observeEvent(input$btn_tbl, {
    #     
    # })
    
}

shinyApp(ui = ui, server = server)