library(dplyr)
library(lubridate)
library(tableHTML)
library(gt)
library(gtExtras)

data = read.csv('https://docs.google.com/spreadsheets/d/e/2PACX-1vQP0OK8q9x5XJa9T_DrOr2Hua_MRbW4WrdIRcZszYHtSodmMso5gFp3ieHp9nRjs2zGdnB9lwhpiBXp/pub?gid=388995206&single=true&output=csv')

data$DateTime = as.POSIXct(paste(data$Date, data$Time), format ="%d/%m/%Y %H:%M:%S")

data = data[,c('DateTime','Name','Amount')]
data = data[data$Amount <= 0, ]


target_month <- 10 
target_year <- 2023

# Filter datetime values based on the target month and year


filtered_data <- data %>%
  filter(month(DateTime) == target_month, year(DateTime) == target_year)


head(filtered_data)

table <- gt(filtered_data) %>%
gtsave(table, file = "monzo2.html")



write_tableHTML(tableHTML(filtered_data), file = 'monzo.html')