A testing of AI scripting

test with Andrew Heiss tutorial

testing

# Install and load the leaflet package
#install.packages("leaflet")
library(leaflet)

# Define the coordinates for Freiburg and Karlsruhe
freiburg_coords <- c(48.0000, 7.8500)
karlsruhe_coords <- c(49.0081, 8.4038)

# Create a map
mymap <- leaflet() %>%
  addTiles() %>%
  addMarkers(lng = freiburg_coords[2], lat = freiburg_coords[1], popup = "Freiburg") %>%
  addMarkers(lng = karlsruhe_coords[2], lat = karlsruhe_coords[1], popup = "Karlsruhe") %>%
  addPolylines(lng = c(freiburg_coords[2], karlsruhe_coords[2]),
               lat = c(freiburg_coords[1], karlsruhe_coords[1]),
               color = "blue")

# Display the map
mymap