Im find the solution with library(inlmisc).
library(inlmisc)
library(leaflet)
m2 <- leaflet() %>%
addTiles() %>%
addMarkers(label = ~ACCENUMB, popup = paste("<h3 style='color:#008000'> DIMARY</h3>",
"<b style='color:#bb042b'> ACCESION: </b>",DFINAL$ACCENUMB, "<br>",
"<b style='color:#bb042b'> LATITUD: </b>",DFINAL$LATITUD_NEW, "<br>",
"<b style='color:#bb042b'> LONGITUD:</b>",DFINAL$LONGITUD_NEW,"<br>"),
clusterId = "cluster",
group = "marker", lng = ~ LONGITUD_NEW, lat= ~ LATITUD_NEW, data= DFINAL) %>%
AddSearchButton( group = "marker", zoom = 20, # For add search box in the map.
textPlaceholder = "Search accesion name...") %>%
addCircles(label = ~ACCENUMB,
data=DFINAL,
lng = ~LONGITUDE,
lat=~LATITUDE,
# color=~pal(ORIGCTY),
fillOpacity = 1,
weight =8,
popup = paste("<h3 style='color:#008000'> ORACLE</h3>",
"<b style='color:#bb042b'> ACCESION: </b>",DFINAL$ACCENUMB , "<br>",
"<b style='color:#bb042b'> LATITUD: </b>",DFINAL$LATITUDE, "<br>",
"<b style='color:#bb042b'> LONGITUD:</b>",DFINAL$LONGITUDE,"<br>"))
m2
