#
# This is a Shiny web application. You can run the application by clicking
# the 'Run App' button above.
#
# Find out more about building applications with Shiny here:
#
#    http://shiny.rstudio.com/
#

library(shiny)

# Define UI for application that draws a histogram
ui <- fluidPage(

    # Application title
    titlePanel("Old Faithful Geyser Data"),

    # Sidebar with a slider input for number of bins 
    sidebarLayout(
        sidebarPanel(
            sliderInput("bins",
                        "Number of bins:",
                        min = 1,
                        max = 50,
                        value = 30)
        ),

        # Show a plot of the generated distribution
        mainPanel(
           plotOutput("distPlot")
        )
    )
)

# Define server logic required to draw a histogram
server <- function(input, output) {

    output$distPlot <- renderPlot({
        # generate bins based on input$bins from ui.R
        x    <- faithful[, 2]
        bins <- seq(min(x), max(x), length.out = input$bins + 1)

        # draw the histogram with the specified number of bins
        hist(x, breaks = bins, col = 'darkgray', border = 'white',
             xlab = 'Waiting time to next eruption (in mins)',
             main = 'Histogram of waiting times')
    })
}

# Run the application 
shinyApp(ui = ui, server = server)

shinyuieditor::launch_editor(app_loc=file.path("sessio_05", "shiny-sales-de-joc"))

library(shiny)
library(plotly)
library(gridlayout)
library(bslib)
library(DT)
library(sf)
library(readxl)
library(dplyr)
library(stringr)
library(janitor)
library(leaflet)
library(leaflet.providers)

ui <- grid_page(
  layout = c(
    "header  header     indicator ",
    "sidebar sidebar    plotly  ",
    "table   table      mymap   ",
    "table   table      mymap   "
  ),
  row_sizes = c(
    "120px",
    "1.5fr",
    "1fr",
    "1fr"
  ),
  col_sizes = c(
    "290px",
    "0.59fr",
    "1.41fr"
  ),
  gap_size = "1rem",
  grid_card(
    area = "sidebar",
#    card_header("Paràmetres"),
    card_body(
      selectInput(
        inputId = "myProvincies",
        label = "Província",
        choices = list(
          "BCN" = "Barcelona",
          "GRN" = "Girona",
          "LLD" = "Lleida",
          "TCN" = "Tarragona"
        ),
        selected = "Barcelona"
      ),
      sliderInput(
        inputId = "myradius",
        label = "Mida dels punts al mapa",
        min = 1,
        max = 10,
        value = 3,
        width = "100%"
      ),
      numericInput(
        inputId = "numRows",
        label = "Nombre de files de la taula",
        value = 5,
        min = 1,
        step = 1,
        width = "100%"
      )
    )
  ),
  grid_card_text(
    area = "header",
    content = "Sales de joc de Catalunya",
    alignment = "start",
    is_title = FALSE
  ),
  grid_card(
    area = "table",
    card_header("Table"),
    card_body(DTOutput(outputId = "myTable", width = "100%"))
  ),
  grid_card(
    area = "mymap",
    card_body(leafletOutput("mymap"))
  ),
  grid_card(
    area = "indicator",
#    card_header("Nombre de Sales de Joc"),
    card_body(
      value_box(
        title = "Registres",
        value = textOutput(outputId = "indicator"),
        showcase = bsicons::bs_icon("database")
      )
    )
  ),
  grid_card(
    area = "plotly",
    card_header("Sales per municipi"),
    card_body(
      plotlyOutput(
        outputId = "distPlot",
        width = "100%",
        height = "100%"
      )
    )
  )
)


server <- function(input, output) {
  
  # Carreguem les dades dins una expressió reactiva (només s'executa una vegada, fins que canviin les dades)  
  # Importa les dades
  dataset <- reactive({
    muni_cat <- rio::import(file.path("..", "muni_cat.csv"))
    
    st_as_sf(
      read_xlsx(file.path("..", "..", "curs-r-avancat-equips", "sessio_02", "salons_de_joc_en_la_web.xlsx")),
      coords = c("longitud", "latitud"), crs = 4326, agr = "constant"
    ) %>% # Retoquem noms per a que encaixin tots al join de sota
    mutate(
        nom_municipi = case_when(
          cp == "08904" ~ "Cornellà de Llobregat",
          TRUE ~ nom_municipi),
        nom_municipi = str_replace_all(nom_municipi, fixed("La Jonquera"), "Jonquera, la"),
        nom_municipi = str_replace_all(nom_municipi, fixed("L’Hospitalet de Llobregat"), "Hospitalet de Llobregat, l'"),
        nom_municipi = str_replace_all(nom_municipi, fixed("El Prat de Llobregat"), "Prat de Llobregat, el"),
        nom_municipi = str_replace_all(nom_municipi, fixed("Sant Vicenç del Horts"), "Sant Vicenç dels Horts"),
        nom_municipi = str_replace_all(nom_municipi, fixed("Castelló d’Empúries"), "Castelló d'Empúries"),
        nom_municipi = str_replace_all(nom_municipi, fixed("Castell-Platja d’Aro"), "Castell d'Aro, Platja d'Aro i s'Agaró"),
        nom_municipi = str_replace_all(nom_municipi, fixed("El Vendrell"), "Vendrell, el")
      )  %>% 
      left_join(
        muni_cat %>% select(nom, nom_provincia),
        by=c("nom_municipi"="nom")
        )
    })

  output$distPlot <- renderPlotly({
    # generate bins based on input$bins from ui.R
    plot_ly(x = ~ dataset() %>% filter(nom_provincia %in% input$myProvincies) %>% pull(nom_municipi), type = "histogram") %>%
      layout(xaxis = list(title = 'Municipi'), 
             yaxis = list(title = 'N'))
  })
  
  output$mymap <- renderLeaflet({
    leaflet(width="100%", height="100%") %>%

      # OS map layer
      addProviderTiles(providers$Esri.WorldImagery, group="ESRI Satellite",
                       options=leafletOptions(maxNativeZoom=19,maxZoom=100)) %>%
      addProviderTiles("OpenStreetMap",
                       options=leafletOptions(maxNativeZoom=19,maxZoom=100)) %>%

      # Sample points
      # generate radius based on input$myradius from ui.R
      addCircleMarkers(data=dataset() %>% filter(nom_provincia %in% input$myProvincies),
                       radius=input$myradius, weight=2, color="red") %>%

      # Add layer control elements
      addLayersControl(baseGroups = c("OpenStreetMap", "ESRI Satellite"),
                       options = layersControlOptions(collapsed = TRUE,
                                                      autoZIndex = F))
    

  })
  
  output$myTable <- renderDT({
    head(dataset() %>% tibble() %>% 
           filter(nom_provincia %in% input$myProvincies) %>% 
           select(-arxiu_origen,-ordre, -starts_with("municipi"), -cp_num, -geometry),
         input$numRows)
  },
  options = list(dom='ftip',
                 lengthMenu = list(c(5, 10, -1), c('5', '10', 'All'))
                 )
  )
  
  output$indicator <- renderText(
    nrow(dataset() %>% tibble() %>% filter(nom_provincia %in% input$myProvincies))
  )
}

shinyApp(ui, server)

> install.packages("rsconnect")
The following package(s) will be installed:
- packrat   [0.9.2]
- PKI       [0.1-12]
- rsconnect [1.2.2]
These packages will be installed into "~/code/curs-r-avancat-equips/renv/library/R-4.3/x86_64-pc-linux-gnu".

Do you want to proceed? [Y/n]: Y

# Installing packages --------------------------------------------------------
- Installing PKI ...                            OK [linked from cache]
- Installing packrat ...                        OK [linked from cache]
- Installing rsconnect ...                      OK [linked from cache]
Successfully installed 3 packages in 39 milliseconds.
> rsconnect::setAccountInfo(name='myshinyiointernalusername', token='mytokenXXX', secret='mysecretXXX')
> library(rsconnect)

> rsconnect::deployApp('sessio_05/shiny-sales-de-joc')
── Preparing for deployment ───────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────
✔ Re-deploying "shiny-sales-de-joc" using "server: shinyapps.io / username: onuka7-xavier-de0pedro0puente"
ℹ Looking up application with id "11822654"...
✔ Found application <https://onuka7-xavier-de0pedro0puente.shinyapps.io/shiny-sales-de-joc/>
ℹ Bundling 3 files: app.R, dades/muni_cat.csv, and dades/salons_de_joc_en_la_web.xlsx
ℹ Capturing R dependencies with renv
✔ Found 122 dependencies
✔ Created 98,363b bundle
ℹ Uploading bundle...
✔ Uploaded bundle with id 8522558
── Deploying to server ────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────
Waiting for task: 1408200276
  building: Processing bundle: 8522558
  building: Building image: 10366677
  building: Installing system dependencies
  building: Fetching packages
  building: Installing packages
  building: Installing files
  building: Pushing image: 10366677
  deploying: Starting instances
  terminating: Stopping old instances
── Deployment complete ────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────
✔ Successfully deployed to <https://onuka7-xavier-de0pedro0puente.shinyapps.io/shiny-sales-de-joc/>