CI: Add/Remove truffle in DB

Author: MurielleDelmotte

.github/workflows/ci-connect-db.yaml

@@ -36,5 +36,5 @@ jobs:
 
       - name: Test DB connection
         run: |
-          Rscript -e 'library(truffles); con <- connect_db(); print(DBI::dbListTables(con)); DBI::dbDisconnect(con)'
+          Rscript -e 'library(truffles); con <- connect_db(); write_db_new_truffle(conn = con, theidoak = 1, date_found = Sys.Date(), weight = 25, estimation = 1, comment = "tosupp_for_CI"); DBI::dbExecute(con, "DELETE FROM truffe WHERE comment = 'tosupp_for_CI'"); DBI::dbDisconnect(con)'
 

R/mod_carto_leaflet.R

@@ -24,9 +24,6 @@ mod_carto_leaflet_ui <- function(id) {
         fill = TRUE,
         status = "primary"
       )
-      # tags$input(type = "checkbox", id = ns("reens_id"), value = "1"),
-      # tags$label("Rensemenc\u00e9"),
-      # style = "display: inline-block; margin-right: 10px;"
     ),
     tags$div(
       id = ns("mymap"),