Added test app

hbctraining · Jul 23, 2024 · f03e984 · f03e984
1 parent 829068a
commit f03e984
Show file tree

Hide file tree

Showing 209 changed files with 454,766 additions and 1 deletion.
diff --git a/IntroR/img/Complete_wd_setup.png b/IntroR/img/Complete_wd_setup.png
diff --git a/IntroR/img/Console.png b/IntroR/img/Console.png
diff --git a/IntroR/img/Script_editor_output.png b/IntroR/img/Script_editor_output.png
diff --git a/docs/.DS_Store b/docs/.DS_Store
diff --git a/docs/placeholder.md b/docs/placeholder.md
diff --git a/docs/site/.DS_Store b/docs/site/.DS_Store
diff --git a/docs/site/app.json b/docs/site/app.json
@@ -0,0 +1 @@
+[{"name":"app.R","content":"library(shiny)\nlibrary(ggplot2)\nlibrary(DT)\nlibrary(shinythemes)\n\nui <- fluidPage(theme = shinytheme(\"cerulean\"),\n                navbarPage(\"My iris dataset\",\n                           tabPanel(\"Inputs\",\n                                    selectInput(\"x_axis_input\", \"Select x-axis\", choices = c(\"Sepal.Length\", \"Sepal.Width\", \"Petal.Length\", \"Petal.Width\")),\n                                    selectInput(\"y_axis_input\", \"Select y-axis\", choices = c(\"Sepal.Length\", \"Sepal.Width\", \"Petal.Length\", \"Petal.Width\"))\n                           ),\n                           navbarMenu(\"Outputs\",\n                                      tabPanel(\"Plot\",\n                                               plotOutput(\"plot\")\n                                      ),\n                                      tabPanel(\"Table\",\n                                               DTOutput(\"table\")   \n                                      )\n                           )\n                )\n)\n\nserver <- function(input, output) {\n  output$plot <- renderPlot({\n    ggplot(iris) +\n      geom_point(aes(x = .data[[input$x_axis_input]], y = .data[[input$y_axis_input]]))\n  })\n  output$table <- renderDT({\n    iris[,c(input$x_axis_input, input$y_axis_input), drop = FALSE]\n  })\n}\n\nshinyApp(ui = ui, server = server)","type":"text"}]
diff --git a/docs/site/edit/index.html b/docs/site/edit/index.html
@@ -0,0 +1,11 @@
+<!doctype html>
+<html xmlns="http://www.w3.org/1999/xhtml" lang="en">
+  <head>
+    <title>Redirect to editable app</title>
+    <meta
+      http-equiv="refresh"
+      content="0;URL='../index.html?_shinylive-mode=editor-terminal-viewer'"
+    />
+  </head>
+  <body></body>
+</html>
diff --git a/docs/site/index.html b/docs/site/index.html
@@ -0,0 +1,28 @@
+<!doctype html>
+<html lang="en">
+  <head>
+    <meta charset="UTF-8" />
+    <meta name="viewport" content="width=device-width, initial-scale=1.0" />
+    <title>Shiny App</title>
+    <script
+      src="./shinylive/load-shinylive-sw.js"
+      type="module"
+    ></script>
+    <script type="module">
+      import { runExportedApp } from "./shinylive/shinylive.js";
+      runExportedApp({
+        id: "root",
+        appEngine: "r",
+        relPath: "",
+      });
+    </script>
+    <link rel="stylesheet" href="./shinylive/style-resets.css" />
+    <link rel="stylesheet" href="./shinylive/shinylive.css" />
+
+  </head>
+  <body>
+
+    <div style="height: 100vh; width: 100vw" id="root"></div>
+
+  </body>
+</html>
diff --git a/docs/site/shinylive-sw.js b/docs/site/shinylive-sw.js
diff --git a/docs/site/shinylive/.DS_Store b/docs/site/shinylive/.DS_Store
Original file line number	Diff line number	Diff line change
		@@ -0,0 +1 @@
		[{"name":"app.R","content":"library(shiny)\nlibrary(ggplot2)\nlibrary(DT)\nlibrary(shinythemes)\n\nui <- fluidPage(theme = shinytheme(\"cerulean\"),\n navbarPage(\"My iris dataset\",\n tabPanel(\"Inputs\",\n selectInput(\"x_axis_input\", \"Select x-axis\", choices = c(\"Sepal.Length\", \"Sepal.Width\", \"Petal.Length\", \"Petal.Width\")),\n selectInput(\"y_axis_input\", \"Select y-axis\", choices = c(\"Sepal.Length\", \"Sepal.Width\", \"Petal.Length\", \"Petal.Width\"))\n ),\n navbarMenu(\"Outputs\",\n tabPanel(\"Plot\",\n plotOutput(\"plot\")\n ),\n tabPanel(\"Table\",\n DTOutput(\"table\") \n )\n )\n )\n)\n\nserver <- function(input, output) {\n output$plot <- renderPlot({\n ggplot(iris) +\n geom_point(aes(x = .data[[input$x_axis_input]], y = .data[[input$y_axis_input]]))\n })\n output$table <- renderDT({\n iris[,c(input$x_axis_input, input$y_axis_input), drop = FALSE]\n })\n}\n\nshinyApp(ui = ui, server = server)","type":"text"}]