---
title: "Project HOPE"
output:
flexdashboard::flex_dashboard:
orientation: columns
vertical_layout: fill
theme: journal
#"default", "bootstrap", "cerulean", "cosmo", "darkly", "flatly", "journal", "lumen", "paper", "readable", "sandstone", "simplex", "spacelab", "united", "yeti"
source_code: embed
self_contained: true
social: menu
---
<style>
body {
background-color: #E6F2FF;
}
</style>
```{r setup, include=FALSE}
library(flexdashboard)
```
# About the Project
### Background
Project HOPE 2025, a community education initiative spearheaded by the Albukhary International University (AIU) Myanmar Students’ Association (AMSA), has reached the halfway point of its six-month cycle, marking steady progress in expanding access to education for refugee children in northern Malaysia.
Tahfiz Md Noor, where nearly 100 children aged 3 to 14 are taught English, Mathematics, Science, and Computing. Divided into six levels according to their learning needs, the children benefit from tailored lessons that focus not only on literacy and numeracy but also on practical skills that build confidence and resilience.
This carefully designed structure is sustained by more than 50 Myanmar student volunteers from AIU, who serve on a rotational schedule to ensure continuity across classes. Each group is guided by a Head of Class responsible for preparing weekly lesson plans and mentoring fellow volunteers.
###
{width="300",length="300"}
# Project HOPE 2024
### Volunteer (2024)
```{r}
valueBox(55,
caption="Total Volunteers",
icon="fa-users",
color="brown")
```
### Gauge Plot of voluteer
```{r}
library(flexdashboard)
Volunteer_teacher <- 55
gauge(
Volunteer_teacher,
min = 0, max = 60,
label = "Capacity of Teacher",
gaugeSectors(
success = c(45, 60), # green
warning = c(30, 44), # yellow
danger = c(0, 29), # red
colors = c("green", "yellow", "red")
)
)
```
```{r}
data <- data.frame(
Year = c(2024),
No_of_students = c(80),
No_of_classes = c(5),
No_of_Volunteer = c(55)
)
data
```
# Project HOPE 2025
### Volunteer (2025)
```{r}
valueBox(40,
caption="Total Volunteers",
icon="fa-users",
color="brown")
```
### Gauge Plot of voluteer
```{r}
library(flexdashboard)
Volunteer_teacher <- 40
gauge(
Volunteer_teacher,
min = 0, max = 60,
label = "Capacity of Teacher",
gaugeSectors(
success = c(45, 60), # green
warning = c(30, 44), # yellow
danger = c(0, 29), # red
colors = c("green", "yellow", "red")
)
)
```
```{r}
data <- data.frame(
Year = c(2025),
No_of_students = c(110),
No_of_classes = c(7),
No_of_Volunteer = c(40)
)
data
```
# Volunteer Supply
```{r}
data <- data.frame(
Year = c(2024, 2025),
No_of_students = c(80, 110),
No_of_classes = c(5, 6)
)
data
```
```{r}
library(plotly)
x <- 1:4
y <- (-7.5 * x) + 70
plot_ly(
x = x,
y = y,
type = "scatter",
mode = "lines+markers"
) %>%
layout(
title = "Teaching Hours vs Number of Volunteers",
xaxis = list(title = "Teaching hr"),
yaxis = list(title = "No. of volunteer"),
plot_bgcolor = "lightblue",
paper_bgcolor = "white"
)
```
{width=“300”,length=“300”}