Discussion :

[ramio]

Bonjour, je développe une application sur shiny (ui et serveur) et je souhaite implémenter une carte avec la fonction hcmap du paquet Highchart. Mais lors de l’implémentation de la carte, j’ai constaté qu’il existait une dépendance de la fonction hcmap avec le site: https://code.highcharts.com/mapdata/ .

Mon objectif est donc de mettre en œuvre la carte mais avec le fichier javascript associé de manière locale sans utiliser de connexion Internet. J'ai essayé la solution suivante: J'ai récupéré le fichier javascript de https://code.highcharts.com/mapdata/ et je l'ai répertorié dans le dossier www, mais cela ne m'a pas donné de bons résultats. Voici le code que j'ai utilisé:

Code R :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
 
 
library(shinydashboard)
library(shinydashboardPlus)
library(highcharter)
library(shiny)
 
shinyUI(
 
dashboardPagePlus(
dashboardHeader(),
dashboardSidebar(),
dashboardBody(
fluidRow(box(width = 6,title="map",highchartOutput("map")))
        )
            )
              )
 
shinyServer(function(input, output) {
 
output$map=renderHighchart({
data_fake=data.frame(code=c("RZ","MT","TD","OR","FB","SM","MK","DA"
,"GE","LB","OD","TO","TH","GB","CO","GC"),
value=c(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16)
                     )
 
hcmap(map=tags$head(tags$script(src="map.js")), data = data_fake, value = 
"value",joinBy = c("hc-a2", "code"), name = "Fake data",download_map_data=FALSE,
 dataLabels = list(enabled = TRUE, format = '{point.name}'),
 borderColor = "gray", borderWidth = 0.9,
 tooltip = list(valueDecimals = 2, valuePrefix = "DH", valueSuffix = " 
 MAD"))%>% hc_mapNavigation(enabled = TRUE)
})
 
})

Je souhaite que la sortie sera une carte, mais sans aucune dépendance du site https://code.highcharts.com/mapdata/ , c’est-à-dire que le fichier javascript sera utilisé de manière locale dans le répertoire de mon application.

Le résultat que j'ai obtenu avec le code ci-dessus :