stau.space
this repo has no description
fix: App.json is REAL
Signed-off-by: Sona Tau Estrada Rivera <sona@stau.space>
+1
-3
+1
-3
site/app.json
+1
-3
site/app.json
···
1
-
version https://git-lfs.github.com/spec/v1
2
-
oid sha256:5eeca033637cdaf502cca0520a73210e481c9fe6338a660c3549199b8c84daa4
3
-
size 1216
1
+
[{"name":"app.R","content":"library(shiny)\nlibrary(shinydashboard)\nlibrary(shinylive)\n\nui <- dashboardPage(\n\tdashboardHeader(),\n\tdashboardSidebar(\n\t\tsidebarMenu(\n\t\t\tmenuItem(\"Dashboard\", tabName = \"dashboard\", icon = icon(\"dashboard\")),\n\t\t\tmenuItem(\"Widgets\", tabName = \"widgets\", icon = icon(\"th\"))\n\t\t)\n\t),\n\tdashboardBody(\n\t\ttabItems(\n\t\t\ttabItem(\n\t\t\t\ttabName = \"dashboard\",\n\t\t\t\tfluidRow(\n\t\t\t\t\tbox(plotOutput(\"plot1\", height = 250)),\n\n\t\t\t\t\tbox(title = \"Controls\", sliderInput(\"slider\", \"Number of observations:\", 1, 100, 50))\n\t\t\t\t)\n\t\t\t),\n\t\t\ttabItem(\n\t\t\t\ttabName = \"widgets\",\n\t\t\t\th2(\"Widgets tab content\")\n\t\t\t)\n\t\t)\n\t)\n)\n\nserver <- function(input, output) {\n\tset.seed(122)\n\n\thistdata <- rnorm(500)\n\n\toutput $ plot1 <- renderPlot({\n\t\tdata <- histdata[seq_len(input $ slider)]\n\n\t\thist(data)\n\t})\n}\n\nshinylive::export(appdir = \".\", destdir = \"../../site\")\nshinyApp(ui, server, options = c(port = \"42069\"))\n","type":"text"},{"name":"ui.R","content":"library(shinydashboard)\n\ndashboardPage(\n\tdashboardHeader(),\n\tdashboardSidebar(),\n\tdashboardBody()\n)\n","type":"text"}]