Merge pull request #30 from RConsortium/Development

Development

.github/workflows/publish.yml

@@ -7,8 +7,6 @@ on:
   # Triggers the workflow on push or pull request events but only for the "operations" branch
   push:
     branches: ["operations"]
-  pull_request:
-    branches: ["operations"]
 
   # Allows you to run this workflow manually from the Actions tab
   workflow_dispatch:

Program.qmd

@@ -22,7 +22,7 @@ schedule_day_1 <-
     "2024-06-10 11:00", "2024-06-10 14:00", "1B", "Talk", "title", "speakers", "speaker_titles", "companies",
     "2024-06-10 14:00", "2024-06-10 14:30",  NA, "Break", NA, NA, NA, NA,
     "2024-06-10 14:30", "2024-06-10 15:15", "2", "Talk", "title", "speakers", "speaker_titles", "companies",
-    "2024-06-10 15:15", "2024-06-10 16:30", "3", "Workshop", "title", "speakers", "speaker_titles", "companies",
+    "2024-06-10 15:15", "2024-06-11 16:30", "3", "Workshop", "title", "speakers", "speaker_titles", "companies",
   ) |>
   dplyr::mutate(duration = time_length(ymd_hm(end_time) - ymd_hm(start_time), unit = "mins"))
 ```

docs/index.html

@@ -127,8 +127,11 @@ <h2 id="toc-title">On this page</h2>
   <ul>
   <li><a href="#an-r-consortium-virtual-conference" id="toc-an-r-consortium-virtual-conference" class="nav-link active" data-scroll-target="#an-r-consortium-virtual-conference"><strong>AN R CONSORTIUM VIRTUAL CONFERENCE</strong></a></li>
   <li><a href="#why-attend" id="toc-why-attend" class="nav-link" data-scroll-target="#why-attend">WHY ATTEND</a></li>
+  <li><a href="#keynote-addresses" id="toc-keynote-addresses" class="nav-link" data-scroll-target="#keynote-addresses">KeyNote Addresses</a>
+  <ul class="collapse">
   <li><a href="#brought-to-you-by" id="toc-brought-to-you-by" class="nav-link" data-scroll-target="#brought-to-you-by">BROUGHT TO YOU BY</a></li>
   <li><a href="#help-edit-this-website" id="toc-help-edit-this-website" class="nav-link" data-scroll-target="#help-edit-this-website">HELP EDIT THIS WEBSITE</a></li>
+  </ul></li>
   </ul>
 </nav>
     </div>
@@ -156,10 +159,39 @@ <h1 class="title">R/Medicine 2024</h1>
 <section id="an-r-consortium-virtual-conference" class="level2 r-stack">
 <h2 class="anchored" data-anchor-id="an-r-consortium-virtual-conference"><strong>AN R CONSORTIUM VIRTUAL CONFERENCE</strong></h2>
 </section>
-<section id="why-attend" class="level3">
-<h3 class="anchored" data-anchor-id="why-attend">WHY ATTEND</h3>
+<section id="why-attend" class="level2">
+<h2 class="anchored" data-anchor-id="why-attend">WHY ATTEND</h2>
 <p>The R/Medicine conference provides a forum for sharing R based tools and approaches used to analyze and gain insights from health data. Conference workshops provide a way to learn and develop your R skills. Midweek demos allow you to try out new R packages and tools, and our hackathon provides an opportunity to learn how to develop new R tools. The conference talks share new packages, and successes in analyzing health, laboratory, and clinical data with R and Shiny with a vigorous ongoing discussion with speakers (with pre-recorded talks) in the chat.</p>
 </section>
+<section id="keynote-addresses" class="level2">
+<h2 class="anchored" data-anchor-id="keynote-addresses">KeyNote Addresses</h2>
+<div class="columns">
+<div class="column" style="width:45%;">
+<section id="stephanie-hicks" class="level3">
+<h3 class="anchored" data-anchor-id="stephanie-hicks">Stephanie Hicks</h3>
+<p><em>Statistical Challenges in Single-Cell and Spatial Transcriptomics</em></p>
+<p>Thursday, June 13</p>
+<p><img src="images/Hicks.jpeg" class="img-fluid"></p>
+<section id="biography" class="level4">
+<h4 class="anchored" data-anchor-id="biography">Biography</h4>
+<p>Stephanie Hicks, PhD, MA and Associate Professor of Biomedical Engineering and Biostatistics at Johns Hopkins University, is an applied statistician working at the intersection of genomics and biomedical data science.</p>
+</section>
+</section>
+</div><div class="column" style="width:10%;">
+<!-- empty column to create gap -->
+</div><div class="column" style="width:45%;">
+<section id="gundula-bosch" class="level3">
+<h3 class="anchored" data-anchor-id="gundula-bosch">Gundula Bosch</h3>
+<p><em>Reproducibility in Medical Research</em> <br> <br></p>
+<p>Friday, June 14</p>
+<p><img src="images/Gundula.jpeg" class="img-fluid"></p>
+<section id="biography-1" class="level4">
+<h4 class="anchored" data-anchor-id="biography-1">Biography</h4>
+<p>Gundula Bosch, PhD, MEd ’16, MS, is a scientist and educator leading global education reform through training programs in critical, broad, and interdisciplinary scientific thinking. She is the director of the R3 Center for Innovation and Science Education at the Johns Hopkins School of Public Health.</p>
+</section>
+</section>
+</div>
+</div>
 <section id="brought-to-you-by" class="level3">
 <h3 class="anchored" data-anchor-id="brought-to-you-by">BROUGHT TO YOU BY</h3>
 <p><br></p>
@@ -185,10 +217,11 @@ <h3 class="anchored" data-anchor-id="brought-to-you-by">BROUGHT TO YOU BY</h3>
 </section>
 <section id="help-edit-this-website" class="level3">
 <h3 class="anchored" data-anchor-id="help-edit-this-website">HELP EDIT THIS WEBSITE</h3>
-<p>This entire website was made using R.</p>
+<p>This entire website was made using Quarto and R.</p>
 <p>If you notice any problems or have any additions please submit a Pull Request to our public <a href="https://github.com/RConsortium/RMedicine_website/">GitHub Repo</a></p>
 
 
+</section>
 </section>
 
 </main> <!-- /main -->

docs/search.json

@@ -54,5 +54,19 @@
     "title": "R/Medicine Schedule",
     "section": "",
     "text": "Code\n# Create a table for the day of events\ngt(schedule_day_1) |>\n  tab_header(title = md(\"<br>Monday, June 10, 2024.<br><br>\")) |> # <- insert the date\n  fmt_time(columns = c(start_time, end_time), time_style = \"h_m_p\") |>\n  fmt_duration(\n    columns = duration,\n    input_units = \"minutes\",\n    output_units = c(\"hours\", \"minutes\")\n  ) |>\n  cols_move(columns = duration, after = end_time) |>\n  cols_merge(\n    columns = c(t_number, t_type, t_title, t_speakers, t_speaker_titles, t_companies),\n    pattern = md(\"<<{1} - >>{2}<br><< {3}<br>{4}<br>{5}, {6}>>\")\n  ) |>\n  cols_label(\n    start_time ~ \"Start Time\",\n    end_time ~ \"End Time\",\n    duration ~ \"Duration\",\n    t_number ~ \"\"\n  ) |>\n  cols_align(align = \"center\") |>\n  cols_width(\n    c(start_time, end_time, duration) ~ px(90),\n    everything() ~ px(600)\n  ) |>\n  opt_align_table_header(align = \"left\") |>\n  tab_options(\n    heading.background.color = \"lightblue\",\n    column_labels.background.color = \"gray85\"\n  ) |>\n  tab_style(\n    locations = cells_body(rows = t_type == \"Break\"),\n    style = cell_fill(color = \"bisque\")\n  )\n\n\n\n\n\n\n  \n    \n    \n    \n    \n  \n  \n    \n      Monday, June 10, 2024.\n    \n    \n    \n      Start Time\n      End Time\n      Duration\n      \n    \n  \n  \n    11:00 AM\n2:00 PM\n3h\n1A - Talk titlespeakersspeaker_titles, companies\n    11:00 AM\n2:00 PM\n3h\n1B - Talk titlespeakersspeaker_titles, companies\n    2:00 PM\n2:30 PM\n30m\nBreak\n    2:30 PM\n3:15 PM\n45m\n2 - Talk titlespeakersspeaker_titles, companies\n    3:15 PM\n4:30 PM\n1h 15m\n3 - Workshop titlespeakersspeaker_titles, companies\n  \n  \n  \n\n\n\n\n\n\nCode\n# Create a table for the day of events\ngt(schedule_day_2) |>\n  tab_header(title = md(\"<br>Tuesday, June 11, 2024.<br><br>\")) |> # <- insert the date\n  fmt_time(columns = c(start_time, end_time), time_style = \"h_m_p\") |>\n  fmt_duration(\n    columns = duration,\n    input_units = \"minutes\",\n    output_units = c(\"hours\", \"minutes\")\n  ) |>\n  cols_move(columns = duration, after = end_time) |>\n  cols_merge(\n    columns = c(t_number, t_type, t_title, t_speakers, t_speaker_titles, t_companies),\n    pattern = md(\"<<{1} - >>{2}<br><< {3}<br>{4}<br>{5}, {6}>>\")\n  ) |>\n  cols_label(\n    start_time ~ \"Start Time\",\n    end_time ~ \"End Time\",\n    duration ~ \"Duration\",\n    t_number ~ \"\"\n  ) |>\n  cols_align(align = \"center\") |>\n  cols_width(\n    c(start_time, end_time, duration) ~ px(90),\n    everything() ~ px(600)\n  ) |>\n  opt_align_table_header(align = \"left\") |>\n  tab_options(\n    heading.background.color = \"lightblue\",\n    column_labels.background.color = \"gray85\"\n  ) |>\n  tab_style(\n    locations = cells_body(rows = t_type == \"Break\"),\n    style = cell_fill(color = \"bisque\")\n  )\n\n\n\n\n\n\n  \n    \n    \n    \n    \n  \n  \n    \n      Tuesday, June 11, 2024.\n    \n    \n    \n      Start Time\n      End Time\n      Duration\n      \n    \n  \n  \n    11:00 AM\n2:00 PM\n3h\n1A - Talk titlespeakersspeaker_titles, companies\n    11:00 AM\n2:00 PM\n3h\n1B - Talk titlespeakersspeaker_titles, companies\n    2:00 PM\n2:30 PM\n30m\nBreak\n    2:30 PM\n3:15 PM\n45m\n2 - Talk titlespeakersspeaker_titles, companies\n    3:15 PM\n4:30 PM\n1h 15m\n3 - Workshop titlespeakersspeaker_titles, companies\n  \n  \n  \n\n\n\n\n\n\nCode\n# Create a table for the day of events\ngt(schedule_day_3) |>\n  tab_header(title = md(\"<br>Wednesday, June 12, 2024.<br><br>\")) |> # <- insert the date\n  fmt_time(columns = c(start_time, end_time), time_style = \"h_m_p\") |>\n  fmt_duration(\n    columns = duration,\n    input_units = \"minutes\",\n    output_units = c(\"hours\", \"minutes\")\n  ) |>\n  cols_move(columns = duration, after = end_time) |>\n  cols_merge(\n    columns = c(t_number, t_type, t_title, t_speakers, t_speaker_titles, t_companies),\n    pattern = md(\"<<{1} - >>{2}<br><< {3}<br>{4}<br>{5}, {6}>>\")\n  ) |>\n  cols_label(\n    start_time ~ \"Start Time\",\n    end_time ~ \"End Time\",\n    duration ~ \"Duration\",\n    t_number ~ \"\"\n  ) |>\n  cols_align(align = \"center\") |>\n  cols_width(\n    c(start_time, end_time, duration) ~ px(90),\n    everything() ~ px(600)\n  ) |>\n  opt_align_table_header(align = \"left\") |>\n  tab_options(\n    heading.background.color = \"lightblue\",\n    column_labels.background.color = \"gray85\"\n  ) |>\n  tab_style(\n    locations = cells_body(rows = t_type == \"Break\"),\n    style = cell_fill(color = \"bisque\")\n  )\n\n\n\n\n\n\n  \n    \n    \n    \n    \n  \n  \n    \n      Wednesday, June 12, 2024.\n    \n    \n    \n      Start Time\n      End Time\n      Duration\n      \n    \n  \n  \n    11:00 AM\n2:00 PM\n3h\n1A - Talk titlespeakersspeaker_titles, companies\n    11:00 AM\n2:00 PM\n3h\n1B - Talk titlespeakersspeaker_titles, companies\n    2:00 PM\n2:30 PM\n30m\nBreak\n    2:30 PM\n3:15 PM\n45m\n2 - Talk titlespeakersspeaker_titles, companies\n    3:15 PM\n4:30 PM\n1h 15m\n3 - Workshop titlespeakersspeaker_titles, companies\n  \n  \n  \n\n\n\n\n\n\nCode\n# Create a table for the day of events\ngt(schedule_day_1) |>\n  tab_header(title = md(\"<br>Thursday, June 13, 2024.<br><br>\")) |> # <- insert the date\n  fmt_time(columns = c(start_time, end_time), time_style = \"h_m_p\") |>\n  fmt_duration(\n    columns = duration,\n    input_units = \"minutes\",\n    output_units = c(\"hours\", \"minutes\")\n  ) |>\n  cols_move(columns = duration, after = end_time) |>\n  cols_merge(\n    columns = c(t_number, t_type, t_title, t_speakers, t_speaker_titles, t_companies),\n    pattern = md(\"<<{1} - >>{2}<br><< {3}<br>{4}<br>{5}, {6}>>\")\n  ) |>\n  cols_label(\n    start_time ~ \"Start Time\",\n    end_time ~ \"End Time\",\n    duration ~ \"Duration\",\n    t_number ~ \"\"\n  ) |>\n  cols_align(align = \"center\") |>\n  cols_width(\n    c(start_time, end_time, duration) ~ px(90),\n    everything() ~ px(600)\n  ) |>\n  opt_align_table_header(align = \"left\") |>\n  tab_options(\n    heading.background.color = \"lightblue\",\n    column_labels.background.color = \"gray85\"\n  ) |>\n  tab_style(\n    locations = cells_body(rows = t_type == \"Break\"),\n    style = cell_fill(color = \"bisque\")\n  )\n\n\n\n\n\n\n  \n    \n    \n    \n    \n  \n  \n    \n      Thursday, June 13, 2024.\n    \n    \n    \n      Start Time\n      End Time\n      Duration\n      \n    \n  \n  \n    11:00 AM\n2:00 PM\n3h\n1A - Talk titlespeakersspeaker_titles, companies\n    11:00 AM\n2:00 PM\n3h\n1B - Talk titlespeakersspeaker_titles, companies\n    2:00 PM\n2:30 PM\n30m\nBreak\n    2:30 PM\n3:15 PM\n45m\n2 - Talk titlespeakersspeaker_titles, companies\n    3:15 PM\n4:30 PM\n1h 15m\n3 - Workshop titlespeakersspeaker_titles, companies\n  \n  \n  \n\n\n\n\n\n\nCode\n# Create a table for the day of events\ngt(schedule_day_5) |>\n  tab_header(title = md(\"<br>Friday, June 14, 2024.<br><br>\")) |> # <- insert the date\n  fmt_time(columns = c(start_time, end_time), time_style = \"h_m_p\") |>\n  fmt_duration(\n    columns = duration,\n    input_units = \"minutes\",\n    output_units = c(\"hours\", \"minutes\")\n  ) |>\n  cols_move(columns = duration, after = end_time) |>\n  cols_merge(\n    columns = c(t_number, t_type, t_title, t_speakers, t_speaker_titles, t_companies),\n    pattern = md(\"<<{1} - >>{2}<br><< {3}<br>{4}<br>{5}, {6}>>\")\n  ) |>\n  cols_label(\n    start_time ~ \"Start Time\",\n    end_time ~ \"End Time\",\n    duration ~ \"Duration\",\n    t_number ~ \"\"\n  ) |>\n  cols_align(align = \"center\") |>\n  cols_width(\n    c(start_time, end_time, duration) ~ px(90),\n    everything() ~ px(600)\n  ) |>\n  opt_align_table_header(align = \"left\") |>\n  tab_options(\n    heading.background.color = \"lightblue\",\n    column_labels.background.color = \"gray85\"\n  ) |>\n  tab_style(\n    locations = cells_body(rows = t_type == \"Break\"),\n    style = cell_fill(color = \"bisque\")\n  )\n\n\n\n\n\n\n  \n    \n    \n    \n    \n  \n  \n    \n      Friday, June 14, 2024.\n    \n    \n    \n      Start Time\n      End Time\n      Duration\n      \n    \n  \n  \n    11:00 AM\n2:00 PM\n3h\n1A - Talk titlespeakersspeaker_titles, companies\n    11:00 AM\n2:00 PM\n3h\n1B - Talk titlespeakersspeaker_titles, companies\n    2:00 PM\n2:30 PM\n30m\nBreak\n    2:30 PM\n3:15 PM\n45m\n2 - Talk titlespeakersspeaker_titles, companies\n    3:15 PM\n4:30 PM\n1h 15m\n3 - Workshop titlespeakersspeaker_titles, companies"
+  },
+  {
+    "objectID": "index.html#keynote-addresses",
+    "href": "index.html#keynote-addresses",
+    "title": "R/Medicine 2024",
+    "section": "KeyNote Addresses",
+    "text": "KeyNote Addresses\n\n\n\nStephanie Hicks\nStatistical Challenges in Single-Cell and Spatial Transcriptomics\nThursday, June 13\n\n\nBiography\nStephanie Hicks, PhD, MA and Associate Professor of Biomedical Engineering and Biostatistics at Johns Hopkins University, is an applied statistician working at the intersection of genomics and biomedical data science.\n\n\n\n\n\n\nGundula Bosch\nReproducibility in Medical Research  \nFriday, June 14\n\n\nBiography\nGundula Bosch, PhD, MEd ’16, MS, is a scientist and educator leading global education reform through training programs in critical, broad, and interdisciplinary scientific thinking. She is the director of the R3 Center for Innovation and Science Education at the Johns Hopkins School of Public Health.\n\n\n\n\n\nBROUGHT TO YOU BY\n\n\n\n\n\n\n\nJoin our mailing list to hear all the latest about events, news and more\n\n\n\n\n\nHELP EDIT THIS WEBSITE\nThis entire website was made using Quarto and R.\nIf you notice any problems or have any additions please submit a Pull Request to our public GitHub Repo"
+  },
+  {
+    "objectID": "index.html#why-attend",
+    "href": "index.html#why-attend",
+    "title": "R/Medicine 2024",
+    "section": "WHY ATTEND",
+    "text": "WHY ATTEND\nThe R/Medicine conference provides a forum for sharing R based tools and approaches used to analyze and gain insights from health data. Conference workshops provide a way to learn and develop your R skills. Midweek demos allow you to try out new R packages and tools, and our hackathon provides an opportunity to learn how to develop new R tools. The conference talks share new packages, and successes in analyzing health, laboratory, and clinical data with R and Shiny with a vigorous ongoing discussion with speakers (with pre-recorded talks) in the chat."
   }
 ]

index.qmd

@@ -8,10 +8,51 @@ title: "R/Medicine 2024"
 ## **AN R CONSORTIUM VIRTUAL CONFERENCE**
 :::
 
-### WHY ATTEND
+## WHY ATTEND
 
 The R/Medicine conference provides a forum for sharing R based tools and approaches used to analyze and gain insights from health data. Conference workshops provide a way to learn and develop your R skills. Midweek demos allow you to try out new R packages and tools, and our hackathon provides an opportunity to learn how to develop new R tools. The conference talks share new packages, and successes in analyzing health, laboratory, and clinical data with R and Shiny with a vigorous ongoing discussion with speakers (with pre-recorded talks) in the chat.
 
+## KeyNote Addresses
+
+::: columns
+::: {.column width="45%"}
+### Stephanie Hicks
+*Statistical Challenges in Single-Cell and Spatial Transcriptomics*
+
+Thursday, June 13
+
+![](images/Hicks.jpeg)
+
+#### Biography
+
+Stephanie Hicks, PhD, MA and Associate Professor of Biomedical Engineering and Biostatistics at Johns Hopkins University, is an applied statistician working at the intersection of genomics and biomedical data science.
+:::
+
+::: {.column width="10%"}
+<!-- empty column to create gap -->
+:::
+
+
+::: {.column width="45%"}
+### Gundula Bosch
+*Reproducibility in Medical Research*
+<br />
+<br />
+
+Friday, June 14
+
+![](images/Gundula.jpeg)
+
+#### Biography
+
+Gundula Bosch, PhD, MEd '16, MS, is a scientist and educator leading global education reform through training programs in critical, broad, and interdisciplinary scientific thinking. She is the director of the R3 Center for Innovation and Science Education at the Johns Hopkins School of Public Health.
+
+:::
+:::
+
+
+
+
 ### BROUGHT TO YOU BY
 
 <br>
@@ -42,6 +83,6 @@ Join our mailing list to hear all the latest about events, news and more
 ```
 ### HELP EDIT THIS WEBSITE
 
-This entire website was made using R.
+This entire website was made using Quarto and R.
 
 If you notice any problems or have any additions please submit a Pull Request to our public [GitHub Repo](https://github.com/RConsortium/RMedicine_website/)