From 6bdabadbb3bbee66e20907f5f7dec4330842ed39 Mon Sep 17 00:00:00 2001
From: Angelo D'Ambrosio <bakaburg1@gmail.com>
Date: Tue, 16 Apr 2024 09:58:31 +0200
Subject: [PATCH] feat: add agenda validation before summarizing a meeting

---
 R/summarization.R | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/R/summarization.R b/R/summarization.R
index 507dfb3..3dffe9d 100644
--- a/R/summarization.R
+++ b/R/summarization.R
@@ -358,6 +358,10 @@ summarise_full_meeting <- function(
     ...
 ) {
 
+  if (!validate_agenda(agenda)) {
+    stop("The agenda is not valid.")
+  }
+
   # Import agenda from file
   if (is.character(agenda)) {
     agenda <- dget(agenda)