Upload 4 files

.gitattributes

@@ -32,3 +32,4 @@ saved_model/**/* filter=lfs diff=lfs merge=lfs -text
 *.zip filter=lfs diff=lfs merge=lfs -text
 *.zst filter=lfs diff=lfs merge=lfs -text
 *tfevents* filter=lfs diff=lfs merge=lfs -text
+poland.csv filter=lfs diff=lfs merge=lfs -text

Map.R

@@ -0,0 +1,84 @@
+# import specific functions from relevant libraries
+box::use(leaflet[
+  leaflet,
+  providers,
+  addTiles,
+  addProviderTiles,
+  addPolygons,
+  addLegend,
+  addControl,
+  setView,
+  addCircleMarkers,
+  colorBin,
+  colorNumeric,
+  markerClusterOptions,
+  labelOptions
+])
+box::use(leaflet.extras[
+  addFullscreenControl,
+  addSearchFeatures,
+  searchFeaturesOptions
+])
+box::use(dplyr[filter])
+box::use(viridis)
+
+
+#* @param df data frame containing map coordinates
+#* @param vernacular the vernacular names of the animals
+#* @param locality regions in Poland
+# write map function
+mapData <- function(df, vernacular) {
+  # set default values if arguments are NULL or empty
+  if (is.null(vernacular)) {
+    vernacular <- "Mandarin Duck"
+  } else {
+    vernacular
+  }
+
+  # filter the data based on vernacular and locality
+  filtered_df <- df |>
+    filter(vernacularName == vernacular)
+
+
+  # ensure there is data to display
+  if (nrow(filtered_df) == 0) {
+    leaflet() |>
+      addTiles() |>
+      addPopups(lng = 0, lat = 0, popup = "No data available for the selected filters")
+  }
+
+
+  # create a color palette for markers
+  pal <- colorNumeric(palette = "Paired", domain = filtered_df$individualCount)
+
+  # create the tooltip labels
+  labels <- paste0(
+    "<b>Vernacular Name: </b>", filtered_df$vernacularName, "<br>",
+    "<b>Individual Count: </b>", filtered_df$individualCount, "<br>",
+    "<b>Locality: </b>", filtered_df$locality
+  ) |> lapply(htmltools::HTML)
+
+  # create the map
+  leaflet(filtered_df) |>
+    addTiles() |>
+    addProviderTiles(providers$CartoDB.Positron) |>
+    addCircleMarkers(
+      lng = ~longitudeDecimal,
+      lat = ~latitudeDecimal,
+      color = ~ pal(individualCount),
+      fillColor = ~ pal(individualCount),
+      fillOpacity = 0.7,
+      label = labels,
+      labelOptions = labelOptions(
+        style = list("font-weight" = "normal", padding = "3px 8px"),
+        textsize = "15px",
+        direction = "auto"
+      )
+    ) |>
+    addLegend(
+      pal = pal,
+      values = ~individualCount,
+      title = "Individual Count",
+      position = "bottomright"
+    )
+}

Plot.R

@@ -0,0 +1,30 @@
+box::use(highcharter[highchart,
+                     hcaes,
+                     hc_title,
+                     hc_xAxis,
+                     hc_yAxis,
+                     hc_tooltip])
+
+box::use(dplyr[filter])
+
+#* @param df data frame containing the data 
+#* @param vernacular the vernacular names of the animals
+plotData <- function(df,vernacular,locality) {
+  
+  df |> 
+    filter(vernacularName == vernacular,locality == locality) |> 
+    hchart(
+      type = "scatter",
+      hcaes(x = eventDate,
+            y = individualCount)) |> 
+    hc_title(text = "Biodiversity in Poland") |> 
+    hc_xAxis(title = list(text = "Event Date")) |> 
+    hc_yAxis(title = list(text = "Individual Count")) |> 
+    hc_tooltip(
+      pointFormat = 'Date: {point.x:%Y-%m-%d}<br>Individual Count: {point.y:.2f}'
+    )
+  
+}
+
+# plotData(bio_pol,
+#          vernacular = "Mandarin Duck")

Table.R

@@ -0,0 +1,55 @@
+library(reactablefmtr)
+
+# import specific functions from relevant libraries
+box::use(reactable[reactable, colDef])
+box::use(dplyr[filter])
+
+
+#* @param df the data frame containing the data
+#* @param vernacular the vernacular names of the animals
+#* @param locality regions in Poland
+tableFunction <- function(df, vernacular) {
+  # set default values if arguments are NULL or empty
+  if (is.null(vernacular) || vernacular == "") {
+    vernacular <- "Mandarin Duck"
+  } else {
+    vernacular
+  }
+
+  # filter the data based on vernacular and locality
+  filtered_df <- df |>
+    filter(vernacularName == vernacular)
+
+
+  # ensure there is data to display
+  if (nrow(filtered_df) == 0) {
+    reactable(data.frame(
+      Message = "No data available for the selected filters"
+    ))
+  }
+
+  # return table
+  reactable(
+    filtered_df,
+    filterable = TRUE,
+    searchable = TRUE,
+    striped = TRUE,
+    highlight = TRUE,
+    bordered = TRUE,
+    compact = TRUE,
+    defaultPageSize = 10,
+    columns = list(
+      vernacularName = colDef(name = "Common Name"),
+      longitudeDecimal = colDef(name = "Longitude"),
+      latitudeDecimal = colDef(name = "Latitude"),
+      individualCount = colDef(name = "Count"),
+      eventDate = colDef(name = "Date"),
+      locality = colDef(name = "Location")
+    ),
+    theme = reactableTheme(
+      highlightColor = "#627cfc",
+      borderColor = "#1239fe",
+      borderWidth = 2
+    )
+  )
+}

poland.csv

@@ -0,0 +1,3 @@
+version https://git-lfs.github.com/spec/v1
+oid sha256:812db5fdd7af52b5d8593cb8fb41ae9f419144e5b56683a3215b24f138eee1b9
+size 21759875