From d1bb9846161bfcb6764ea5ae73cd0a672e156825 Mon Sep 17 00:00:00 2001
From: Jesse Casman <jcasman@oppkey.com>
Date: Thu, 5 Dec 2024 14:59:51 -0800
Subject: [PATCH] updating events page

---
 news/events.qmd | 18 ++++++++++--------
 1 file changed, 10 insertions(+), 8 deletions(-)

diff --git a/news/events.qmd b/news/events.qmd
index 178a59e..9642d3e 100644
--- a/news/events.qmd
+++ b/news/events.qmd
@@ -12,13 +12,12 @@ format:
 # Sample data frame with HTML links
 df <- data.frame(
   Title = c(
-    "[Finance webinar: Value Companies using Discounted Cash Flow Analysis](https://r-consortium.org/webinars/tidy-finance-webinar-series.html#value-companies-using-discounted-cash-flow-analysis)",
-    "[Finance webinar: Quantification of Participation Risk using R and RShiny](https://r-consortium.org/webinars/quantification-of-participation-risk-using-r-and-rshiny.html)"
+    "[Quantification of Participation Risk using R and RShiny](https://r-consortium.org/webinars/quantification-of-participation-risk-using-r-and-rshiny.html)"
   ),
-  dates = c("Dec 4, 2024", "Dec 12, 2024"),
-  location = c("Virtual", "Virtual"),
-  icon = c("Webinar", "Webinar"),
-  Type = c("Webinar", "Webinar"),
+  dates = c("Dec 12, 2024"),
+  location = c("Virtual"),
+  icon = c("Webinar"),
+  Type = c("Webinar"),
   
   stringsAsFactors = FALSE
   
@@ -82,6 +81,7 @@ ___
 # Sample data frame with HTML links
 df <- data.frame(
   Title = c(
+    '<a href="https://r-consortium.org/webinars/tidy-finance-webinar-series.html#value-companies-using-discounted-cash-flow-analysis" target="_blank" rel="noreferrer noopener">Value Companies using Discounted Cash Flow Analysis</a>',
     '<a href="https://latinr.org/en/" target="_blank" rel="noreferrer noopener">LatinR 2024</a>',
     '<a href="https://r-consortium.org/webinars/containerization-and-r-for-reproducibility.html" target="_blank" rel="noreferrer noopener">R/Medicine Webinar: Containerization and R for Reproducibility and More</a>',
     '<a href="https://r-consortium.org/webinars/tidy-finance-webinar-series.html#analyze-companies-using-financial-ratios" target="_blank" rel="noreferrer noopener">Analyze Companies using Financial Ratios</a>',
@@ -110,6 +110,7 @@ df <- data.frame(
     '<a href="https://www.r-consortium.org/r-adoption-series-the-adoption-of-r-in-japans-pharma-industry-confirmation" target="_blank" rel="noreferrer noopener">The use of R in Japan’s Pharma Industry</a>'
   ),
   dates = c(
+        'December 4, 2024',
         'November 18-22, 2024', 
         'November 19, 2024',
         'November 6, 2024',
@@ -142,6 +143,7 @@ df <- data.frame(
         'Virtual',
         'Virtual',
         'Virtual',
+        'Virtual',
         'Washington, DC, USA', 
         'Virtual',
         'Virtual',
@@ -167,10 +169,10 @@ df <- data.frame(
         'Virtual'
 
         ),
-  Type = c('Conference', 'Webinar', 'Webinar', 'Conference', 'Conference', 'Webinar', 'Conference', 'Webinar', 'Conference', 'Webinar', 'Conference', 'Conference', 'Conference', 'Conference', 'Conference',
+  Type = c('Webinar', 'Conference', 'Webinar', 'Webinar', 'Conference', 'Conference', 'Webinar', 'Conference', 'Webinar', 'Conference', 'Webinar', 'Conference', 'Conference', 'Conference', 'Conference', 'Conference',
     'Conference', 'Conference', 'Webinar', 'Webinar', 'Webinar', 'Webinar', 'Webinar', 'Webinar',
     'Webinar', 'Webinar', 'Webinar'),
-  icon = c('Conference', 'Webinar', 'Webinar', 'Conference', 'Conference', 'Webinar', 'Conference', 'Webinar', 'Conference', 'Webinar', 'Conference', 'Conference', 'Conference', 'Conference', 'Conference',
+  icon = c('Webinar', 'Conference', 'Webinar', 'Webinar', 'Conference', 'Conference', 'Webinar', 'Conference', 'Webinar', 'Conference', 'Webinar', 'Conference', 'Conference', 'Conference', 'Conference', 'Conference',
     'Conference', 'Conference', 'Webinar', 'Webinar', 'Webinar', 'Webinar', 'Webinar', 'Webinar',
     'Webinar', 'Webinar', 'Webinar'),