Leaflet_Long

library(tidyverse)

## -- Attaching packages ---------------------------------------------- tidyverse 1.2.1 --

## v ggplot2 2.2.1.9000     v purrr   0.2.4     
## v tibble  1.4.2          v dplyr   0.7.4     
## v tidyr   0.8.0          v stringr 1.3.0     
## v readr   1.1.1          v forcats 0.3.0

## -- Conflicts ------------------------------------------------- tidyverse_conflicts() --
## x dplyr::filter() masks stats::filter()
## x dplyr::lag()    masks stats::lag()

library(leaflet)


dat<-read.csv("data.csv", header=T, stringsAsFactors = F)

###### From Long no edit---------

dat$status[dat$Status..alive.A.or.dead.Dwhen.found..=="D"]<-"Dead when found"
dat$status[dat$Status..alive.A.or.dead.Dwhen.found..=="A"]<-"Alive when found"
dat$treatment[dat$Treatment..Refloating..RF..Bury..B..Bring.to.whale.temple..WT.=="RF"]<-"Refloated"
dat$treatment[dat$Treatment..Refloating..RF..Bury..B..Bring.to.whale.temple..WT.=="B"]<-"Burried"
dat$treatment[dat$Treatment..Refloating..RF..Bury..B..Bring.to.whale.temple..WT.=="WT"]<-"Brought to local whale temple"


###### Test for 3 record C1, C4,C81

data=dat
popup <- paste0(paste0("<img src = 'https://sv1.uphinhnhanh.com/images/2018/06/04/",data$ID, ".jpg' />"),"<br>",
                data$Species,"<br>",
                data$Date,"<br>",
                data$Province,"<br>",
                data$status,"<br>",
                data$treatment)

leaflet(data)%>%addTiles()%>%
  addCircleMarkers(~Long,~Lat,
                   popup=popup,
                   options = popupOptions(minWidth = 20, closeOnClick = FALSE, closeButton = FALSE))