diff --git a/.Rhistory b/.Rhistory index 0669fce2..669952a4 100644 --- a/.Rhistory +++ b/.Rhistory @@ -159,3 +159,103 @@ table.border.right.width = px(4), table.border.left.color = "black", table.border.right.color = "black" ) +RecentEvents <- df <- data.frame(Title = c( +'useR! 2024', +'posit::conf 2024', +'Henrick Bengtsson invited to speak at the Swiss Re Conference', +'Cascadia R Conference', +'New York R Conference', +'R/Finance 2024', +'SatRdays London 2024', +'R/Medicine: Quarto for Reproducible Medical Manuscripts', +'New Webinar: Tidy Finance and Accessing Financial Data', +'Escape the Data Dungeon: Unlock Scalable R Analytics and ML', +'From Vision to Action: The Pfizer R Center of Excellence-led journey to R Adoption', +'R/Insurance Series: High performance programming in R', +'Dan Sjoberg presenting on Plotting Survival with {ggsurvfit}', +'R/Insurance Series: R performance culture', +'R/Insurance Series: From programming in R to putting R into production', +'R/Insurance Series: From Excel to Programming in R', +'The use of R in Japan’s Pharma Industry' +), +Dates = c( +'July 8-11, 2024', +'August 12-14, 2024', +'June 25, 2024 – 7:00 AM ET', +'June 21-22, 2024', +'May 16-17, 2024', +'May 17-18, 2024', +'April 27, 2024', +'March 20, 2024', +'March 6, 2024', +'February 27, 2024', +'February 8, 2024', +'January 31, 2024', +'January 25, 2024', +'January 24, 2024', +'January 17, 2024', +'January 10, 2024', +'January 8, 2024' +), +Location = c( +'Salzburg, Austria', +'Seattle, WA, USA', +'Virtual', +'Seattle, WA, USA', +'New York City, NY, USA', +'Chicago, IL, USA', +'London, UK', +'Virtual', +'Virtual', +'Virtual', +'Virtual', +'Virtual', +'Virtual', +'Virtual', +'Virtual', +'Virtual', +'Virtual' +), +Type = c('Conference', 'Conference', 'Conference', 'Conference', 'Conference', 'Conference', +'Conference', 'Conference', 'Webinar', 'Webinar', 'Webinar', 'Webinar', 'Webinar', 'Webinar', +'Webinar', 'Webinar', 'Webinar')) +#view data frame +knitr::kable(df[1:17,], ) +# Sample data frame with HTML links +df <- data.frame( +Title = c( +"[Optimize Portfolios using the Markowitz Model](https://rconsortium.netlify.app/webinars/tidy-finance-webinar-series#optimize-portfolios-using-the-markowitz-model)", +"[EARL 2024](https://www.ascent.io/earl)", +"[Evaluate Performance using the Capital Asset Pricing Model](https://rconsortium.netlify.app/webinars/tidy-finance-webinar-series#evaluate-performance-using-the-capital-asset-pricing-model)", +"[Shiny in Production 2024](https://shiny-in-production.jumpingrivers.com/)", +"[2024 Government & Public Sector R Conference](https://www.rstats.ai/gov)", +"[Analyze Companies using Financial Ratios](https://rconsortium.netlify.app/webinars/tidy-finance-webinar-series#analyze-companies-using-financial-ratios)", +"[LatinR 2024](https://latinr.org/en/)", +"[Value Companies using Discounted Cash Flow Analysis](https://rconsortium.netlify.app/webinars/tidy-finance-webinar-series#value-companies-using-discounted-cash-flow-analysis)" +), +StartDate = c("Sept 4, 2024", "Sept 4, 2024", "Oct 9, 2024", "Oct 9, 2024", "Oct 29, 2024", "Nov 6, 2024", "Nov 18, 2024", "Dec 4, 2024"), +end_date = c("Sept 4, 2024", "Sept 5, 2024", "Oct 9, 2024", "Oct 10, 2024", "Oct 30, 2024", "Nov 6, 2024", "Nov 22, 2024", "Dec 4, 2024"), +location = c("Virtual", "Brighton, UK", "Virtual", "Newcastle upon Tyne, UK", "Washington D.C., USA", "Virtual", "Virtual", "Virtual"), +type = c("Webinar", "Conference", "Webinar", "Conference", "Conference","Webinar", "Conference", "Webinar"), +stringsAsFactors = FALSE +) +# Load necessary libraries +library(gt) +# Create a gt table and use fmt_markdown() to render HTML links +gt_table <- gt(df) %>% +cols_label( +Title = "Title", +StartDate = "Start Date", +end_date = "End Date", +location = "Location", +type = "Type", +) %>% +tab_options( +heading.background.color = "lightblue", +column_labels.background.color = "lightblue", +column_labels.font.weight = "bold", +) %>% +# Render the 'Link' column as HTML using fmt_markdown() +fmt_markdown(columns = c(Title)) +# Print the gt table +gt_table diff --git a/news/events.qmd b/news/events.qmd index eead976e..0ad4301d 100644 --- a/news/events.qmd +++ b/news/events.qmd @@ -12,7 +12,6 @@ format: # Sample data frame with HTML links df <- data.frame( Title = c( - "[Optimize Portfolios using the Markowitz Model](https://rconsortium.netlify.app/webinars/tidy-finance-webinar-series#optimize-portfolios-using-the-markowitz-model)", "[EARL 2024](https://www.ascent.io/earl)", "[Evaluate Performance using the Capital Asset Pricing Model](https://rconsortium.netlify.app/webinars/tidy-finance-webinar-series#evaluate-performance-using-the-capital-asset-pricing-model)", "[Shiny in Production 2024](https://shiny-in-production.jumpingrivers.com/)", @@ -21,11 +20,11 @@ df <- data.frame( "[LatinR 2024](https://latinr.org/en/)", "[Value Companies using Discounted Cash Flow Analysis](https://rconsortium.netlify.app/webinars/tidy-finance-webinar-series#value-companies-using-discounted-cash-flow-analysis)" ), - dates = c("Sept 4, 2024", "Sept 4-5, 2024", "Oct 9, 2024", "Oct 9-10, 2024", + dates = c("Sept 4-5, 2024", "Oct 9, 2024", "Oct 9-10, 2024", "Oct 29-30, 2024", "Nov 6, 2024", "Nov 18-22, 2024", "Dec 4, 2024"), - location = c("Virtual", "Brighton, UK", "Virtual", "Newcastle upon Tyne, UK", "Washington D.C., USA", "Virtual", "Virtual", "Virtual"), - icon = c("Webinar", "Conference", "Webinar", "Conference", "Conference","Webinar", "Conference", "Webinar"), - Type = c("Webinar", "Conference", "Webinar", "Conference", "Conference","Webinar", "Conference", "Webinar"), + location = c("Brighton, UK", "Virtual", "Newcastle upon Tyne, UK", "Washington D.C., USA", "Virtual", "Virtual", "Virtual"), + icon = c("Conference", "Webinar", "Conference", "Conference","Webinar", "Conference", "Webinar"), + Type = c("Conference", "Webinar", "Conference", "Conference","Webinar", "Conference", "Webinar"), stringsAsFactors = FALSE @@ -89,6 +88,7 @@ ___ # Sample data frame with HTML links df <- data.frame( Title = c( + 'Optimize Portfolios using the Markowitz Model', 'useR! 2024', 'posit::conf 2024', 'Henrick Bengtsson invited to speak at the Swiss Re Conference', @@ -108,6 +108,7 @@ df <- data.frame( 'The use of R in Japan’s Pharma Industry' ), dates = c( + 'September 4, 2024', 'July 8-11, 2024', 'August 12-14, 2024', 'June 25, 2024 – 7:00 AM ET', @@ -128,6 +129,7 @@ df <- data.frame( ), location = c( + 'Virtual', 'Salzburg, Austria', 'Seattle, WA, USA', 'Virtual', @@ -147,10 +149,10 @@ df <- data.frame( 'Virtual' ), - Type = c('Conference', 'Conference', 'Conference', 'Conference', 'Conference', 'Conference', + Type = c('Webinar', 'Conference', 'Conference', 'Conference', 'Conference', 'Conference', 'Conference', 'Conference', 'Conference', 'Webinar', 'Webinar', 'Webinar', 'Webinar', 'Webinar', 'Webinar', 'Webinar', 'Webinar', 'Webinar'), - icon = c('Conference', 'Conference', 'Conference', 'Conference', 'Conference', 'Conference', + icon = c('Webinar', 'Conference', 'Conference', 'Conference', 'Conference', 'Conference', 'Conference', 'Conference', 'Conference', 'Webinar', 'Webinar', 'Webinar', 'Webinar', 'Webinar', 'Webinar', 'Webinar', 'Webinar', 'Webinar'),