added seoul r meetup dashboard

_freeze/site_libs/revealjs/plugin/quarto-support/support.js

@@ -4,6 +4,20 @@ window.QuartoSupport = function () {
     return /print-pdf/gi.test(window.location.search);
   }
 
+  // helper for theme toggling
+  function toggleBackgroundTheme(el, onDarkBackground, onLightBackground) {
+    if (onDarkBackground) {
+      el.classList.add('has-dark-background')
+    } else {
+      el.classList.remove('has-dark-background')
+    }
+    if (onLightBackground) {
+      el.classList.add('has-light-background')
+    } else {
+      el.classList.remove('has-light-background')
+    }
+  }
+
   // implement controlsAudo
   function controlsAuto(deck) {
     const config = deck.getConfig();
@@ -111,8 +125,19 @@ window.QuartoSupport = function () {
     }
   }
 
-  // add footer text
-  function addFooter(deck) {
+  // tweak slide-number element
+  function tweakSlideNumber(deck) {
+    deck.on("slidechanged", function (ev) {
+      const revealParent = deck.getRevealElement();
+      const slideNumberEl = revealParent.querySelector(".slide-number");
+      const onDarkBackground = Reveal.getSlideBackground(ev.indexh, ev.indexv).classList.contains('has-dark-background');
+      const onLightBackground = Reveal.getSlideBackground(ev.indexh, ev.indexv).classList.contains('has-light-background');
+      toggleBackgroundTheme(slideNumberEl, onDarkBackground, onLightBackground);
+    })
+  }
+
+   // add footer text
+   function addFooter(deck) {
     const revealParent = deck.getRevealElement();
     const defaultFooterDiv = document.querySelector(".footer-default");
     if (defaultFooterDiv) {
@@ -127,13 +152,17 @@ window.QuartoSupport = function () {
             prevSlideFooter.remove();
           }
           const currentSlideFooter = ev.currentSlide.querySelector(".footer");
+          const onDarkBackground = Reveal.getSlideBackground(ev.indexh, ev.indexv).classList.contains('has-dark-background')
+          const onLightBackground = Reveal.getSlideBackground(ev.indexh, ev.indexv).classList.contains('has-light-background')
           if (currentSlideFooter) {
             defaultFooterDiv.style.display = "none";
             const slideFooter = currentSlideFooter.cloneNode(true);
             handleLinkClickEvents(deck, slideFooter);
             deck.getRevealElement().appendChild(slideFooter);
+            toggleBackgroundTheme(slideFooter, onDarkBackground, onLightBackground)
           } else {
             defaultFooterDiv.style.display = "block";
+            toggleBackgroundTheme(defaultFooterDiv, onDarkBackground, onLightBackground)
           }
         });
       }
@@ -280,6 +309,7 @@ window.QuartoSupport = function () {
       fixupForPrint(deck);
       applyGlobalStyles(deck);
       addLogoImage(deck);
+      tweakSlideNumber(deck);
       addFooter(deck);
       addChalkboardButtons(deck);
       handleTabbyClicks();

_quarto.yml

@@ -53,6 +53,10 @@ lightbox: auto
 collapse-callout:
   all: true
 
+bibliography: bibliography.bib
+link-citations: false
+
+
 execute:
   freeze: auto
 

bibliography.bib

@@ -1,10 +1,48 @@
-@book{LeeShin2023,
-  title = {챗GPT 유닉스 쉘: 데이터 과학 자동화 도구},
-  author = {이광춘 and 신종화},
-  year = {2023},
-  month = {8},
-  day = {31},
-  publisher = {한국 R 사용자회},
+@article{kulkarni2019building,
+  title={Building an HR Dashboard in R using Flexdashboard},
+  author={Kulkarni, Sagar},
+  journal={Towards Data Science},
+  url={https://towardsdatascience.com/building-an-hr-dashboard-in-r-using-flexdashboard-76d14ed3f32},
+  year={2019},
+  month={Sep},
+  day={20}
+}
+
+@book{lee2023shell,
+  title={챗GPT 유닉스 쉘: 데이터 과학 자동화 도구},
+  author={이광춘·신종화},
+  publisher={한국 R 사용자회},
+  year={2023},
+  month={8},
+  day={31},
+}
+
+@book{lee2024sql,
+  title={챗GPT SQL},
+  author={이광춘},
+  publisher={한국 R 사용자회},
+  year={2024}
+}
+
+@book{lee2024quarto,
+  title={챗GPT 쿼토},
+  author={이광춘},
+  publisher={한국 R 사용자회},
+  year={2024}
+}
+
+@book{lee2024coding,
+  title={챗GPT 코딩},
+  author={이광춘},
+  publisher={한국 R 사용자회},
+  year={2024}
+}
+
+@book{lee2024ds,
+  title={챗GPT 데이터 과학},
+  author={이광춘},
+  publisher={한국 R 사용자회},
+  year={2024}
 }
 
 @article{lee2019stat,

chatGPT_Seoul_HS_20230522.ipynb

@@ -26,7 +26,7 @@
         "  chunk_output_type: console\n",
         "---"
       ],
-      "id": "dd543adb"
+      "id": "084164a0"
     },
     {
       "cell_type": "markdown",
@@ -699,7 +699,7 @@
         "\n",
         "### `Sympy`"
       ],
-      "id": "1e8911cd"
+      "id": "268f9950"
     },
     {
       "cell_type": "code",
@@ -712,7 +712,7 @@
         "Diophantus_puzzle = x/6 + x/12 + x/7 + 5 + x/2 + 4 - x\n",
         "solve(Diophantus_puzzle, x, dict = True)"
       ],
-      "id": "7cbc7e99",
+      "id": "d42f2bf4",
       "execution_count": null,
       "outputs": []
     },
@@ -1361,7 +1361,7 @@
         "::: {#refs}\n",
         ":::\n"
       ],
-      "id": "22f2e36f"
+      "id": "289d6623"
     }
   ],
   "metadata": {

dashboard_202404.qmd

@@ -0,0 +1,45 @@
+---
+title: "차세대 대쉬보드"
+subtitle: "flexdashboard → 쿼토 대시보드"
+author: "이광춘"
+institute: "한국 R 사용자회"
+date: 2024-04-30
+format: 
+  insper-revealjs:
+    self-contained: false
+    code-overflow: wrap
+    footer: |
+      한국 R 사용자회 [chatGPT](https://r2bit.com/chatGPT/). theme [insper](https://github.com/padsInsper/quarto-insper-theme) 소스코드 [GitHub](https://github.com/padsInsper/quarto-insper-theme).
+date-format: long
+lang: ko
+filters:
+   - lightbox
+lightbox: auto
+bibliography: bibliography.bib
+csl: apa-single-spaced.csl  
+editor_options: 
+  chunk_output_type: console
+---
+
+## 목차
+
+1.  서울 R 미트업
+
+2.  챗GPT 데이터 사이언스 (도서)
+
+3.  쿼토
+
+4.  R마크다운 → flexdashboard → 쿼토 대시보드
+
+5.  질의응답!
+
+{{< include slideshow/202404-meetup/seoul-r-meeup.qmd >}}
+
+{{< include slideshow/202404-meetup/book.qmd >}}
+
+{{< include slideshow/202404-meetup/quarto.qmd >}}
+
+{{< include slideshow/202404-meetup/dashboard.qmd >}}
+
+{{< include slideshow/202404-meetup/reference.qmd >}}
+