fix: cohorte no activa

R/evaluaciones_cohorte.R

@@ -34,6 +34,23 @@ procesar_forms <- function() {
   cohorte_actual <- info_cohortes %>%
     filter(fecha_inicio <= fecha_actual & fecha_fin >= fecha_actual)
 
+  # Verificar si existe una cohorte activa
+  if (nrow(cohorte_actual) == 0) {
+    mensaje <- data.frame(
+      mensaje = "No hay ninguna cohorte activa en este momento.",
+      timestamp = Sys.time()
+    )
+
+    # Registrar mensaje en una hoja de cálculo
+    write_sheet(
+      mensaje,
+      ss = "1jMsLpWNoOLhlJalo4gKJmAt0MEm-bFLYwlKX_iX7GGg",  
+      sheet = "Registro"
+    )
+
+    # Finalizar el script
+    quit("no")
+  }  
   # Identificar fecha de inicio de la cohorte actual
   fecha_inicio = as.Date(cohorte_actual$fecha_inicio)
 

R/mailchimp-datos.R

@@ -0,0 +1,32 @@
+library(chimpr)
+library(tidyverse)
+
+
+# Autenticar con Mailchimp utilizando tu clave API
+# Reemplaza 'your_mailchimp_api_key' por tu clave real, idealmente almacenada como variable de entorno
+conn <- ChmpClient$new(dc = "us7", key = "57b02f40188bf8d4e50101e70063c2a3-us19")
+# Crear una conexión para acceder a los reportes de campañas
+reports_client <- ChmpReports$new(conn = conn)
+
+# Extraer datos de todas las campañas
+# Esta función devuelve los reportes con los detalles necesarios
+campaign_reports <- reports_client$get_all()
+
+# Filtrar la información relevante de cada campaña
+campaign_data <- lapply(campaign_reports, function(report) {
+  data.frame(
+    campaign_id = report$id,
+    campaign_name = report$settings$title,
+    total_recipients = report$emails_sent,
+    unsubscribes = report$unsubscribed_count,
+    unique_opens = report$opens,
+    open_rate = report$open_rate,
+    click_rate = report$click_rate
+  )
+})
+
+# Convertir la lista de data.frames en un único data.frame
+campaign_data_df <- do.call(rbind, campaign_data)
+
+# Mostrar el resultado
+print(campaign_data_df)