R/Medicine Schedule

# Create a table for the day of events
gt(schedule_day_1) |>
  tab_header(title = md("<br>Workshop Day 1<br>Monday, June 10, 2024.<br>All Times EST<br><br>")) |> # <- insert the date
  fmt_time(columns = c(start_time, end_time), time_style = "h_m_p") |>
  fmt_duration(
    columns = duration,
    input_units = "minutes",
    output_units = c("hours", "minutes")
  ) |>
  cols_move(columns = duration, after = end_time) |>
  cols_merge(
    columns = c(t_number, t_type, t_title, t_speakers, t_speaker_titles, t_companies),
    pattern = md("<<{1} - >>{2}<br><< {3}<br>{4}<br>{5}, {6}>>")
  ) |>
  cols_label(
    start_time ~ "Start Time",
    end_time ~ "End Time",
    duration ~ "Duration",
    t_number ~ ""
  ) |>
  cols_align(align = "center") |>
  cols_width(
    c(start_time, end_time, duration) ~ px(90),
    everything() ~ px(600)
  ) |>
  opt_align_table_header(align = "left") |>
  tab_options(
    heading.background.color = "lightblue",
    column_labels.background.color = "gray85"
  ) |>
  tab_style(
    locations = cells_body(rows = t_type == "Break"),
    style = cell_fill(color = "bisque")
  )

Workshop Day 1 Monday, June 10, 2024. All Times EST
Start Time	End Time	Duration
11:00 AM	2:00 PM	3h	1A - Workshop Causal Inference in R Lucy D'Agostino McGowan, Malcom Barrett Assistant Professor, Research Software Engineer, Wake Forest University, Stanford University
11:00 AM	2:00 PM	3h	1B - Workshop title speakers speaker_titles, companies
2:00 PM	2:30 PM	30m	Break
2:30 PM	4:30 PM	2h	2A - Workshop title speakers speaker_titles, companies
2:30 PM	5:30 PM	3h	2B - Workshop title speakers speaker_titles, companies

# Create a table for the day of events
gt(schedule_day_2) |>
  tab_header(title = md("<br>Workshop Day 2<br>Tuesday, June 11, 2024.<br><br>")) |> # <- insert the date
  fmt_time(columns = c(start_time, end_time), time_style = "h_m_p") |>
  fmt_duration(
    columns = duration,
    input_units = "minutes",
    output_units = c("hours", "minutes")
  ) |>
  cols_move(columns = duration, after = end_time) |>
  cols_merge(
    columns = c(t_number, t_type, t_title, t_speakers, t_speaker_titles, t_companies),
    pattern = md("<<{1} - >>{2}<br><< {3}<br>{4}<br>{5}, {6}>>")
  ) |>
  cols_label(
    start_time ~ "Start Time",
    end_time ~ "End Time",
    duration ~ "Duration",
    t_number ~ ""
  ) |>
  cols_align(align = "center") |>
  cols_width(
    c(start_time, end_time, duration) ~ px(90),
    everything() ~ px(600)
  ) |>
  opt_align_table_header(align = "left") |>
  tab_options(
    heading.background.color = "lightblue",
    column_labels.background.color = "gray85"
  ) |>
  tab_style(
    locations = cells_body(rows = t_type == "Break"),
    style = cell_fill(color = "bisque")
  )

Workshop Day 2 Tuesday, June 11, 2024.
Start Time	End Time	Duration
11:00 AM	2:00 PM	3h	1A - A Long Workshop Title About a Cool Topic title speakers speaker_titles, companies
11:00 AM	2:00 PM	3h	1B - Workshop title speakers speaker_titles, companies
2:00 PM	2:30 PM	30m	Break
2:30 PM	5:30 PM	3h	2 - Workshop title speakers speaker_titles, companies
2:30 PM	5:30 PM	3h	3 - Workshop title speakers speaker_titles, companies

# Create a table for the day of events
gt(schedule_day_3) |>
  tab_header(title = md("<br>Demo Day<br>Wednesday, June 12, 2024.<br><br>")) |> # <- insert the date
  fmt_time(columns = c(start_time, end_time), time_style = "h_m_p") |>
  fmt_duration(
    columns = duration,
    input_units = "minutes",
    output_units = c("hours", "minutes")
  ) |>
  cols_move(columns = duration, after = end_time) |>
  cols_merge(
    columns = c(t_number, t_type, t_title, t_speakers, t_speaker_titles, t_companies),
    pattern = md("<<{1} - >>{2}<br><< {3}<br>{4}<br>{5}, {6}>>")
  ) |>
  cols_label(
    start_time ~ "Start Time",
    end_time ~ "End Time",
    duration ~ "Duration",
    t_number ~ ""
  ) |>
  cols_align(align = "center") |>
  cols_width(
    c(start_time, end_time, duration) ~ px(90),
    everything() ~ px(600)
  ) |>
  opt_align_table_header(align = "left") |>
  tab_options(
    heading.background.color = "lightblue",
    column_labels.background.color = "gray85"
  ) |>
  tab_style(
    locations = cells_body(rows = t_type == "Break"),
    style = cell_fill(color = "bisque")
  )

Demo Day Wednesday, June 12, 2024.
Start Time	End Time	Duration
10:00 AM	10:50 AM	50m	1 - A Long Title about a Demonstration of a Cool New Package title speakers speaker_titles, companies
11:00 AM	11:50 AM	50m	2 - Demo title speakers speaker_titles, companies
12:00 PM	12:30 PM	30m	Break
12:30 PM	1:20 PM	50m	3 - Demo title speakers speaker_titles, companies
1:30 PM	2:20 PM	50m	4 - Demo title speakers speaker_titles, companies
2:30 PM	3:20 PM	50m	5 - Demo title speakers speaker_titles, companies
3:30 PM	4:20 PM	50m	6 - Demo title speakers speaker_titles, companies
4:30 PM	6:30 PM	2h	7 - Poster Session

# Create a table for the day of events
gt(schedule_day_4) |>
  tab_header(title = md("<br>Meeting Day 1<br>Thursday, June 13, 2024.<br><br>")) |> # <- insert the date
  fmt_time(columns = c(start_time, end_time), time_style = "h_m_p") |>
  fmt_duration(
    columns = duration,
    input_units = "minutes",
    output_units = c("hours", "minutes")
  ) |>
  cols_move(columns = duration, after = end_time) |>
  cols_merge(
    columns = c(t_number, t_type, t_title, t_speakers, t_speaker_titles, t_companies),
    pattern = md("<<{1} - >>{2}<br><< {3}<br>{4}<br>{5}, {6}>>")
  ) |>
  cols_label(
    start_time ~ "Start Time",
    end_time ~ "End Time",
    duration ~ "Duration",
    t_number ~ ""
  ) |>
  cols_align(align = "center") |>
  cols_width(
    c(start_time, end_time, duration) ~ px(90),
    everything() ~ px(600)
  ) |>
  opt_align_table_header(align = "left") |>
  tab_options(
    heading.background.color = "lightblue",
    column_labels.background.color = "gray85"
  ) |>
  tab_style(
    locations = cells_body(rows = t_type == "Break"),
    style = cell_fill(color = "bisque")
  )

Meeting Day 1 Thursday, June 13, 2024.
Start Time	End Time	Duration
11:00 AM	11:10 AM	10m	1 - Intro Welcome to R/Medicine 2024 Peter Higgins Professor, University of Michigan
11:13 AM	12:13 PM	1h	2 - Keynote Statistical Challenges in Single-Cell and Spatial Transcriptomics Stephanie Hicks Associate Professor, Johns Hopkins
2:00 PM	2:30 PM	30m	Break
2:30 PM	3:15 PM	45m	3 - Lightning Talk title speakers speaker_titles, companies
3:15 PM	4:30 PM	1h 15m	4 - Regular Talk title speakers speaker_titles, companies

# Create a table for the day of events
gt(schedule_day_5) |>
  tab_header(title = md("<br>Meeting Day 2<br>Friday, June 14, 2024.<br><br>")) |> # <- insert the date
  fmt_time(columns = c(start_time, end_time), time_style = "h_m_p") |>
  fmt_duration(
    columns = duration,
    input_units = "minutes",
    output_units = c("hours", "minutes")
  ) |>
  cols_move(columns = duration, after = end_time) |>
  cols_merge(
    columns = c(t_number, t_type, t_title, t_speakers, t_speaker_titles, t_companies),
    pattern = md("<<{1} - >>{2}<br><< {3}<br>{4}<br>{5}, {6}>>")
  ) |>
  cols_label(
    start_time ~ "Start Time",
    end_time ~ "End Time",
    duration ~ "Duration",
    t_number ~ ""
  ) |>
  cols_align(align = "center") |>
  cols_width(
    c(start_time, end_time, duration) ~ px(90),
    everything() ~ px(600)
  ) |>
  opt_align_table_header(align = "left") |>
  tab_options(
    heading.background.color = "lightblue",
    column_labels.background.color = "gray85"
  ) |>
  tab_style(
    locations = cells_body(rows = t_type == "Break"),
    style = cell_fill(color = "bisque")
  )

Meeting Day 2 Friday, June 14, 2024.
Start Time	End Time	Duration
11:00 AM	11:10 AM	10m	1 - Welcome Back Welcome to R/Medicine 2024 Peter Higgins Professor, University of Michigan
11:13 AM	12:13 PM	1h	2 - Keynote Reproducibility in Medical Research Gundula Bosch Research Professor, Johns Hopkins
2:00 PM	2:30 PM	30m	Break
2:30 PM	3:15 PM	45m	3 - A Long Title about a Complicated Lightning Talk Topic title speakers speaker_titles, companies
3:15 PM	4:30 PM	1h 15m	4 - Regular Talk title speakers speaker_titles, companies