Added website

.Rhistory

@@ -1,2 +1,50 @@
 library(washr)
 setup_rawdata()
+library(washr)
+devtools::build_readme()
+devtools::document()
+devtools::check()
+devtools::install()
+setup_website()
+# Required Libraries
+library(tidyverse)
+library(leaflet)
+# Clean and prepare the data
+df_clean <- floodresponsemw %>%
+# Filter out records missing coordinates
+filter(!is.na(latitude), !is.na(longitude)) %>%
+# Assign colors based on functional status
+mutate(
+status_color = case_when(
+functional_status == "Functional" ~ "green",
+functional_status == "Not functional" ~ "red",
+TRUE ~ "gray"  # Unknown or missing status
+)
+)
+# Create an interactive map using leaflet
+leaflet(df_clean) %>%
+addTiles() %>%  # Add default OpenStreetMap tiles
+addCircleMarkers(
+lng = ~longitude,
+lat = ~latitude,
+color = ~status_color,  # Color by functional status
+radius = ~log(total_users_of_water_point + 1) * 2,
+stroke = FALSE,
+fillOpacity = 0.7,
+# Add popups showing basic water point info
+popup = ~paste0(
+"<b>Water Point:</b> ", water_point_name, "<br>",
+"<b>Status:</b> ", functional_status, "<br>",
+"<b>Total Users:</b> ", total_users_of_water_point
+)
+) %>%
+# Add a legend for functional status
+addLegend(
+"bottomright",
+colors = c("green", "red", "gray"),
+labels = c("Functional", "Not Functional", "Unknown"),
+title = "Water Point Status"
+)
+devtools::document()
+devtools::check()
+devtools::install()

README.Rmd

@@ -30,6 +30,7 @@ knitr::opts_chunk$set(
 4.0](https://img.shields.io/badge/License-CC_BY_4.0-lightgrey.svg)](https://creativecommons.org/licenses/by/4.0/)
 
 [![DOI](https://zenodo.org/badge/DOI/.svg)](https://zenodo.org/doi/)
+
 <!-- badges: end -->
 
 This dataset contains detailed field-level information on the status and
@@ -131,15 +132,18 @@ read_csv("data-raw/dictionary.csv") |>
 
 ## Data
 
-The package provides access to field-level assessment data on rural water point infrastructure in Malawi. It was collected as part of the USAID Flood Response program in 2019 - 2020
+The package provides access to field-level assessment data on rural
+water point infrastructure in Malawi. It was collected as part of the
+USAID Flood Response program in 2019 - 2020
 
 ```{r}
 library(floodresponsemw)
 ```
 
 ### floodresponsemw
 
-The dataset `floodresponsemw` has `r nrow(floodresponsemw)` observations and `r ncol(floodresponsemw)` variables
+The dataset `floodresponsemw` has `r nrow(floodresponsemw)` observations
+and `r ncol(floodresponsemw)` variables
 
 ```{r}
 floodresponsemw |> 

docs/pkgdown.yml

@@ -1,8 +1,8 @@
 pandoc: '3.4'
-pkgdown: 2.1.1
+pkgdown: 2.1.3
 pkgdown_sha: ~
 articles: {}
-last_built: 2025-06-27T13:15Z
+last_built: 2025-10-24T07:43Z
 urls:
   reference: https://github.com/openwashdata/floodresponsemw/reference
   article: https://github.com/openwashdata/floodresponsemw/articles