Update

Author: TuomasBorman

R/schedule.R

@@ -183,6 +183,10 @@ render_posters_section <- function(
     return(invisible(NULL))
   }
 
+  if( !"poster_nro" %in% colnames(posters) ){
+    stop("Add poster numbers with add_poster_number()")
+  }
+
   cat("<h2 style='margin-top: 2.5em; margin-bottom: 0.4em;'>POSTERS</h2>\n")
   cat("<hr style='margin-top: 0; margin-bottom: 1.2em;'>\n")
   cat("<p>(In alphabetical order.)</p>\n")
@@ -193,26 +197,8 @@ render_posters_section <- function(
   posters <- posters |>
     arrange(is.na(day), day, presenter, title)
 
-  # Add poster number. One can specify them in with poster_nro column, or then
-  # we assign them automatically.
-  if ("poster_nro" %in% names(posters)) {
-    used <- posters$poster_nro[!is.na(posters$poster_nro)]
-    available <- setdiff(seq_len(nrow(posters)), used)
-    posters <- posters |>
-      mutate(
-        idx = if_else(
-          !is.na(poster_nro),
-          poster_nro,
-          available[cumsum(is.na(poster_nro))]
-        )
-      )
-  } else {
-    posters <- posters |>
-      mutate(idx = seq_len(n()))
-  }
-
   posters <- posters |>
-    arrange(idx)
+    arrange(poster_nro)
 
   posters_with_day <- posters |>
     filter(!is.na(day) & str_trim(day) != "")
@@ -248,7 +234,7 @@ render_posters_section <- function(
 
       out <- day_df |>
         mutate(
-          Author = paste0(idx, " ", htmlEscape(presenter)),
+          Author = paste0(poster_nro, " ", htmlEscape(presenter)),
           Title = mapply(
             make_collapsible_title,
             title,
@@ -278,7 +264,7 @@ render_posters_section <- function(
 
     out <- posters_without_day |>
       mutate(
-        Author = paste0(idx, " ", htmlEscape(presenter)),
+        Author = paste0(poster_nro, " ", htmlEscape(presenter)),
         Title = mapply(
           make_collapsible_title,
           title,
@@ -545,3 +531,52 @@ render_detailed_program <- function(
     full_width = full_width
   )
 }
+
+add_poster_number <- function(sessions_csv = "../data/sessions.csv"){
+  df <- read.csv(
+    sessions_csv,
+    stringsAsFactors = FALSE,
+    na.strings = c("", "NA")
+  ) |>
+    mutate(
+      day       = str_trim(coalesce(day, "")),
+      time      = str_trim(coalesce(time, "")),
+      type      = str_trim(coalesce(type, "")),
+      title     = str_trim(coalesce(title, "")),
+      authors   = str_trim(coalesce(authors, "")),
+      presenter = str_trim(coalesce(presenter, "")),
+      abstract  = str_trim(coalesce(abstract, "")),
+      time_min  = parse_hm(time),
+      type_norm = normalize_type(type)
+    ) |>
+    fill_presenter()
+
+  posters <- df[df$type == "poster", , drop = FALSE]
+  df <- df[df$type != "poster", , drop = FALSE]
+
+  # Sort in alphabetical order
+  weekday_order <- wday(1:7, label = TRUE, abbr = TRUE, week_start = 1)
+  posters$day <- factor(posters$day, level = levels(weekday_order))
+  posters <- posters |>
+    arrange(is.na(day), day, presenter, title)
+
+  # Add poster number
+  if( "poster_nro" %in% colnames(posters) ){
+    posters <- posters |>
+      arrange(is.na(poster_nro), poster_nro, is.na(day), day, presenter, title)
+    posters <- posters |>
+      mutate(
+        poster_nro = coalesce(poster_nro, seq_len(n()))
+      )
+  } else{
+    posters <- posters |>
+      mutate(poster_nro = seq_len(n()))
+  }
+
+  # Add poster_nro column to original table if it does not exist yet
+  df[["poster_nro"]] <- NA
+  # Add posters back
+  df <- rbind(df, posters)
+  write.csv(df, sessions_csv, row.names = FALSE)
+  return(NULL)
+}

_quarto.yml

@@ -19,8 +19,8 @@ website:
     right:
       - href: pages/schedule.qmd
       - href: pages/speakers.qmd
-      - href: pages/submissions.qmd
-      - href: pages/registration.qmd
+      #- href: pages/submissions.qmd
+      #- href: pages/registration.qmd
       - href: pages/pre-conference.qmd
       - href: pages/conference-dinner.qmd
       - href: pages/hexwall.qmd
@@ -31,6 +31,8 @@ website:
           - href: pages/travel-information.qmd
           - href: pages/about-turku.qmd
           - href: pages/organizers.qmd
+          - href: pages/submissions.qmd
+          - href: pages/registration.qmd
           - href: pages/sticker-contest.qmd
           - href: pages/past-events.qmd
           - href: pages/code-of-conduct.qmd

data/sessions.csv

@@ -37,15 +37,11 @@ impacting computational biology.
 
 ::: {.promo-banner}
 
-### Microbiome Workshop
+### Live streaming available
 
-📅 June 1–2, EuroBioC2026 venue  
+Can't attend in-person? Join us online **for free!**
 
-Hands-on Bioconductor Carpentries training covering microbiome workflows, diversity analysis, differential abundance, and multi-omics integration.
-
-**Registration is open now.**
-
-**[Secure your spot](/pages/pre-conference.html#orchestrating-microbiome-analysis-with-bioconductor){.btn .btn-success .rounded-pill}**
+More information will be available soon.
 
 :::
 
@@ -76,15 +72,14 @@ countdown_timer("2026-06-03 09:00:00")
 - ~~**January 30**: Call for abstracts closes~~
 - ~~**January 31**: Sticker design contest closes~~
 - ~~**February 13**: Call for abstracts closes (final extended deadline)~~
-- **February 20**: Registration opens
-- **April 8**: Call for late-breaking poster abstract opens
+- ~~**February 20**: Registration opens~~
+- ~~**April 8**: Call for late-breaking poster abstract opens~~
 - ~~**May 3**: Call for late-breaking poster abstract closes~~
 - ~~**May 3**: Registration closes~~
-- <span class="deadline"><strong>May 18:</strong> Call for late-breaking poster abstract closes (final extended deadline)</span>
-- <span class="deadline"><strong>May 18:</strong> Registration closes (final extended deadline)</span>
-- **June 1-2**: Workshop and hackathon
-- **June 3-5**: The EuroBioC2026 conference!
-
+- ~~**May 18**: Call for late-breaking poster abstract closes (final extended deadline)~~
+- ~~**May 18**: Registration closes (final extended deadline)~~
+- <span class="deadline"><strong>June 1-2:</strong> Workshop and hackathon</span>
+- <span class="deadline"><strong>June 3-5:</strong> The EuroBioC2026 conference!</span>
 :::
 
 ::: {.column width="5%"}

index.qmd

@@ -1,8 +1,9 @@
 # Pre-conference events
 
-::: {.callout-tip title="Registration is open"}
+::: {.callout-important title="Registration is closed"}
 Each event spans two days. Participants should register for **either** the workshop or the hackathon.
 
+<!--
 **Register for:**
 
 <a class="btn btn-success rounded-pill me-2" href="https://www.lyyti.fi/reg/EuroBioC_workshop">
@@ -12,7 +13,7 @@ Workshop
 <a class="btn btn-success rounded-pill" href="https://docs.google.com/forms/d/e/1FAIpQLSdQPwHgF7fJwfwkXxKPZeB5W_MjTMQpjLbRZj1ix-bA4vLYOg/viewform?usp=header">
 Hackathon
 </a>
-
+-->
 
 Registration closes on **Monday, May 18** (extended deadline), or earlier if capacity is reached.
 :::

pages/pre-conference.qmd

@@ -1,14 +1,16 @@
 # Registration
 
-::: {.callout-tip icon=false}
+::: {.callout-important icon=false}
 
-## Registration is open
+## Registration is closed
 
+<!--
 Secure your place:
 
 <a class="btn btn-success rounded-pill" href="https://www.lyyti.fi/reg/EuroBioC2026">
 Register
 </a>
+-->
 
 Registration closes on **Monday, May 18** (extended deadline), or earlier if all places are filled.
 :::

pages/registration.qmd

@@ -2,19 +2,20 @@
 
 ## Call for abstracts
 
-::: {.callout-tip icon=false}
-## **Abstract call open**
+::: {.callout-important icon=false}
+## **Abstract call is closed**
 
 **Important dates**
 
 - ~~**November 24**: Call for abstracts opens~~
 - ~~**January 30**: Call for abstracts closes~~
 - ~~**February 13**: Call for abstracts closes (final extended deadline)~~
-- **April 8**: Late-breaking poster abstract submission opens
-- **May 3**: Late-breaking poster abstract submission closes
+- ~~**April 8**: Late-breaking poster abstract submission opens~~
+- ~~**May 3**: Late-breaking poster abstract submission closes~~
 
+<!--
 [Submit your abstract here!](https://forms.gle/rPQjjxF8KB2fPmBp7){target="_blank"}
-
+-->
 :::
 
 <!--