shinyApp(
  ui = fluidPage(
    selectInput("variable", "Saisons:",
                list(`Saisons` = names(data_carte)[4:ncol(data_carte)])),
    plotOutput(outputId = "main_plot")
  ),
  server = function(input, output) {

    output$main_plot <- renderPlot({

      map_plot(input$variable)
      })
  }
)