Built site for gh-pages

.nojekyll

@@ -1 +1 @@
-d20be755
+69dd0ac8

robots.txt

@@ -1 +1 @@
-Sitemap: https://coatless-quarto.github.io/r-shinylive-demo/sitemap.xml
+Sitemap: https://github.com/coatless-quarto/r-shinylive-demo/sitemap.xml

search.json

@@ -6,13 +6,6 @@
     "section": "",
     "text": "This document contains just the Shiny App source code used in Joe Cheng’s posit::conf(2023) demo (Warning: Large file size, don’t open on mobile!)\nFor a detailed breakdown, please see the <index.qmd> file.\n#| standalone: true\n#| viewerHeight: 600\nlibrary(shiny)\nlibrary(bslib)\n\n# Define UI for app that draws a histogram ----\nui <- page_sidebar(\n  sidebar = sidebar(open = \"open\",\n    numericInput(\"n\", \"Sample count\", 100),\n    checkboxInput(\"pause\", \"Pause\", FALSE),\n  ),\n  plotOutput(\"plot\", width=1100)\n)\n\nserver <- function(input, output, session) {\n  data <- reactive({\n    input$resample\n    if (!isTRUE(input$pause)) {\n      invalidateLater(1000)\n    }\n    rnorm(input$n)\n  })\n  \n  output$plot <- renderPlot({\n    hist(data(),\n      breaks = 40,\n      xlim = c(-2, 2),\n      ylim = c(0, 1),\n      lty = \"blank\",\n      xlab = \"value\",\n      freq = FALSE,\n      main = \"\"\n    )\n    \n    x <- seq(from = -2, to = 2, length.out = 500)\n    y <- dnorm(x)\n    lines(x, y, lwd=1.5)\n    \n    lwd <- 5\n    abline(v=0, col=\"red\", lwd=lwd, lty=2)\n    abline(v=mean(data()), col=\"blue\", lwd=lwd, lty=1)\n\n    legend(legend = c(\"Normal\", \"Mean\", \"Sample mean\"),\n      col = c(\"black\", \"red\", \"blue\"),\n      lty = c(1, 2, 1),\n      lwd = c(1, lwd, lwd),\n      x = 1,\n      y = 0.9\n    )\n  }, res=140)\n}\n\n# Create Shiny app ----\nshinyApp(ui = ui, server = server)"
   },
-  {
-    "objectID": "template-r-shinylive.html",
-    "href": "template-r-shinylive.html",
-    "title": "Template for r-shinylive Quarto document",
-    "section": "",
-    "text": "Important\n\n\n\nPlease switch {{shinylive-r}} to {shinylive-r}. We’ve suppressed this example from running by using {{}}.\n\n\n```{shinylive-r}\n#| standalone: true\n\nui <- ...\n\nserver <- function(input, output, session) {\n  ...\n}\n\nshinyApp(ui, server)\n```"
-  },
   {
     "objectID": "index.html",
     "href": "index.html",
@@ -89,5 +82,12 @@
     "title": "R-shinylive app in Quarto!",
     "section": "References",
     "text": "References\n\nShinylive R Package\nShinylive Quarto Extension: Static Shiny apps as Quarto code chunks"
+  },
+  {
+    "objectID": "template-r-shinylive.html",
+    "href": "template-r-shinylive.html",
+    "title": "Template for r-shinylive Quarto document",
+    "section": "",
+    "text": "Important\n\n\n\nPlease switch {{shinylive-r}} to {shinylive-r}. We’ve suppressed this example from running by using {{}}.\n\n\n```{shinylive-r}\n#| standalone: true\n\nui <- ...\n\nserver <- function(input, output, session) {\n  ...\n}\n\nshinyApp(ui, server)\n```"
   }
 ]

sitemap.xml

@@ -1,15 +1,15 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <urlset xmlns="http://www.sitemaps.org/schemas/sitemap/0.9">
   <url>
-    <loc>https://coatless-quarto.github.io/r-shinylive-demo/R-shinylive-demo.html</loc>
-    <lastmod>2023-09-21T09:15:24.756Z</lastmod>
+    <loc>https://github.com/coatless-quarto/r-shinylive-demo/R-shinylive-demo.html</loc>
+    <lastmod>2023-09-21T09:24:42.567Z</lastmod>
   </url>
   <url>
-    <loc>https://coatless-quarto.github.io/r-shinylive-demo/template-r-shinylive.html</loc>
-    <lastmod>2023-09-21T09:15:18.517Z</lastmod>
+    <loc>https://github.com/coatless-quarto/r-shinylive-demo/index.html</loc>
+    <lastmod>2023-09-21T09:24:37.803Z</lastmod>
   </url>
   <url>
-    <loc>https://coatless-quarto.github.io/r-shinylive-demo/index.html</loc>
-    <lastmod>2023-09-21T09:15:21.968Z</lastmod>
+    <loc>https://github.com/coatless-quarto/r-shinylive-demo/template-r-shinylive.html</loc>
+    <lastmod>2023-09-21T09:24:38.799Z</lastmod>
   </url>
 </urlset>