###############################   Flora Incognita Beobachtungen nach R exportieren


#      Aktuelle Version  des Programms R installieren:
#        
#     https://www.r-project.org

#     Aktuelle Version  des Programms RStudio installieren:
  
#     https://posit.co/products/open-source/rstudio/
  




 # Installieren der notwendigen Bibliotheken
install.packages("leaflet")
install.packages("leaflet.extras2")
install.packages("htmlwidgets") 
 
                                      # Laden der notwendigen Bibliotheken
library(leaflet)
library(leaflet.extras2)
library(htmlwidgets)

######################################## Daten einlesen ##############################################################################

dat<-read.csv("/dein pfad/deine_datei.csv",header=TRUE)  # Einlesen der Daten von dem Ort an den sie gespeichert sind

#Erstellung einr zoombaren Karte wobei eng benachbarte Beobachtungen geclustert sind. Über Klicken auf ein Cluster gelangt man zu den
#Einzelbeobachtungen 

####################################### Karte mit geclusterten Beobachtungen erstellen ##############################################################################

map1<-leaflet(data = dat)   %>%
  addProviderTiles('OpenStreetMap.Mapnik' )  %>%
  addCircleMarkers(lng = ~longitude, lat = ~latitude,
          label = ~scientific.name, radius=7,labelOptions = labelOptions(style = list("color" = "black"), 
                  noHide = T, textOnly=T,textsize = "10px",offset = c(1, 12)), 
          color="black",clusterOptions = markerClusterOptions(spiderfyOnMaxZoom=T))
  
map1   # Aufrufen der Karte 
####################################### Karte erstellen ##############################################################################

  map2<-leaflet(data = dat)   %>%
   addProviderTiles('OpenStreetMap.Mapnik' )  %>%
    addLabelOnlyMarkers(lng = ~longitude, lat = ~latitude,group="labs",
                        label = ~scientific.name,labelOptions = labelOptions(style = list("color" = "black"), 
                       noHide = T, textOnly=T,textsize = "10px",offset = c(1,12))) %>% 
    addCircleMarkers(lng = ~longitude, lat = ~latitude,color="black") %>% 
    addCircleMarkers(lng = ~longitude, lat = ~latitude, radius=2, label = ~scientific.name, color="white")
  addLabelgun(map2,group="labs")
  
map2

# Soll der deutsche Name angezeigt werden muss "scientific.name" durch "name" ersetzt werden 
   
##################################### Exportieren der Karte  als HTML ###########################################################################   

  
  saveWidget(map2, file="/dein pfad/map.html")