Shiny examples test

.gitignore

@@ -14,3 +14,55 @@
 
 # DS Store
 .DS_Store
+
+**/.ipynb_checkpoints/*
+**/.virtual_documents/*
+assets/.METADATA/job_run.*
+assets/job_run
+__pypackages__/
+__pycache__/
+*.py[cod]
+*$py.class
+*.so
+share/python-wheels/
+*.egg-info/
+.installed.cfg
+*.egg
+*.manifest
+*.spec
+pip-log.txt
+pip-delete-this-directory.txt
+htmlcov/
+.tox/
+.nox/
+.coverage
+.coverage.*
+.cache
+nosetests.xml
+coverage.xml
+*.cover
+*.py,cover
+.hypothesis/
+.pytest_cache/
+cover/
+*.mo
+*.pot
+local_settings.py
+db.sqlite3
+db.sqlite3-journal
+instance/
+.webassets-cache
+.scrapy
+docs/_build/
+.pybuilder/
+profile_default/
+ipython_config.py
+celerybeat-schedule
+celerybeat.pid
+.spyderproject
+.spyproject
+.ropeproject
+.mypy_cache/
+.pyre/
+.pytype/
+cython_debug/

001-hello/matttest/app.R

@@ -0,0 +1,49 @@
+#
+# This is a Shiny web application. You can run the application by clicking
+# the 'Run App' button above.
+#
+# Find out more about building applications with Shiny here:
+#
+#    http://shiny.rstudio.com/
+#
+
+library(shiny)
+
+# Define UI for application that draws a histogram
+ui <- fluidPage(
+
+    # Application title
+    titlePanel("Old Faithful Geyser Data Visual"),
+
+    # Sidebar with a slider input for number of bins 
+    sidebarLayout(
+        sidebarPanel(
+            sliderInput("bins",
+                        "Number of bins:",
+                        min = 1,
+                        max = 50,
+                        value = 30)
+        ),
+
+        # Show a plot of the generated distribution
+        mainPanel(
+           plotOutput("distPlot")
+        )
+    )
+)
+
+# Define server logic required to draw a histogram
+server <- function(input, output) {
+
+    output$distPlot <- renderPlot({
+        # generate bins based on input$bins from ui.R
+        x    <- faithful[, 2]
+        bins <- seq(min(x), max(x), length.out = input$bins + 1)
+
+        # draw the histogram with the specified number of bins
+        hist(x, breaks = bins, col = 'darkgray', border = 'white')
+    })
+}
+
+# Run the application 
+shinyApp(ui = ui, server = server)

004-mpg/Matt/app.R

@@ -0,0 +1,49 @@
+#
+# This is a Shiny web application. You can run the application by clicking
+# the 'Run App' button above.
+#
+# Find out more about building applications with Shiny here:
+#
+#    http://shiny.rstudio.com/
+#
+
+library(shiny)
+
+# Define UI for application that draws a histogram
+ui <- fluidPage(
+
+    # Application title
+    titlePanel("Old Faithful Geyser Data"),
+
+    # Sidebar with a slider input for number of bins 
+    sidebarLayout(
+        sidebarPanel(
+            sliderInput("bins",
+                        "Number of bins:",
+                        min = 1,
+                        max = 50,
+                        value = 30)
+        ),
+
+        # Show a plot of the generated distribution
+        mainPanel(
+           plotOutput("distPlot")
+        )
+    )
+)
+
+# Define server logic required to draw a histogram
+server <- function(input, output) {
+
+    output$distPlot <- renderPlot({
+        # generate bins based on input$bins from ui.R
+        x    <- faithful[, 2]
+        bins <- seq(min(x), max(x), length.out = input$bins + 1)
+
+        # draw the histogram with the specified number of bins
+        hist(x, breaks = bins, col = 'darkgray', border = 'white')
+    })
+}
+
+# Run the application 
+shinyApp(ui = ui, server = server)

assets/.METADATA/.version.json

@@ -0,0 +1 @@
+{"version":"\"2.0.0\"","source":"local"}

assets/.METADATA/data_asset.appR-Jvox.json

@@ -0,0 +1,34 @@
+{
+  "metadata": {
+    "name": "app.R",
+    "asset_type": "data_asset",
+    "origin_country": "us",
+    "asset_category": "USER",
+    "created_at": "2022-07-06T03:43:07Z",
+    "created": 1657078987046,
+    "asset_id": "data_asset.appR-Jvox",
+    "asset_attributes": [
+      "data_asset"
+    ]
+  },
+  "entity": {
+    "data_asset": {
+      "dataset": false,
+      "mime_type": "application/octet-stream"
+    }
+  },
+  "attachments": [
+    {
+      "asset_type": "data_asset",
+      "name": "app.R",
+      "mime": "application/octet-stream",
+      "object_key": "data_asset/app.R",
+      "object_key_is_read_only": true,
+      "created_at": "2022-07-06T03:43:07Z",
+      "id": "e24d6f0a-04ac-4e96-8e75-6f871edaa267",
+      "is_managed": false,
+      "is_referenced": true,
+      "is_remote": false
+    }
+  ]
+}

assets/.METADATA/data_asset.appR.json

@@ -0,0 +1,34 @@
+{
+  "metadata": {
+    "name": "app.R",
+    "asset_type": "data_asset",
+    "origin_country": "us",
+    "asset_category": "USER",
+    "created_at": "2022-07-06T01:08:42Z",
+    "created": 1657069722519,
+    "asset_id": "data_asset.appR",
+    "asset_attributes": [
+      "data_asset"
+    ]
+  },
+  "entity": {
+    "data_asset": {
+      "dataset": false,
+      "mime_type": "application/octet-stream"
+    }
+  },
+  "attachments": [
+    {
+      "asset_type": "data_asset",
+      "name": "app.R",
+      "mime": "application/octet-stream",
+      "object_key": "../001-hello/app.R",
+      "object_key_is_read_only": true,
+      "created_at": "2022-07-06T01:08:42Z",
+      "id": "202becbe-70b9-4cec-b537-106165234f21",
+      "is_managed": false,
+      "is_referenced": true,
+      "is_remote": false
+    }
+  ]
+}

assets/.METADATA/data_asset.ceruleancss.json

@@ -0,0 +1,34 @@
+{
+  "metadata": {
+    "name": "cerulean.css",
+    "asset_type": "data_asset",
+    "origin_country": "us",
+    "asset_category": "USER",
+    "created_at": "2022-07-06T03:43:07Z",
+    "created": 1657078987145,
+    "asset_id": "data_asset.ceruleancss",
+    "asset_attributes": [
+      "data_asset"
+    ]
+  },
+  "entity": {
+    "data_asset": {
+      "dataset": false,
+      "mime_type": "text/css"
+    }
+  },
+  "attachments": [
+    {
+      "asset_type": "data_asset",
+      "name": "cerulean.css",
+      "mime": "text/css",
+      "object_key": "data_asset/cerulean.css",
+      "object_key_is_read_only": true,
+      "created_at": "2022-07-06T03:43:07Z",
+      "id": "79b759b4-3034-4558-aaa8-1014f32c1685",
+      "is_managed": false,
+      "is_referenced": true,
+      "is_remote": false
+    }
+  ]
+}

assets/.METADATA/data_asset.googleanalyticshtml.json

@@ -0,0 +1,34 @@
+{
+  "metadata": {
+    "name": "google-analytics.html",
+    "asset_type": "data_asset",
+    "origin_country": "us",
+    "asset_category": "USER",
+    "created_at": "2022-07-06T03:43:07Z",
+    "created": 1657078987056,
+    "asset_id": "data_asset.googleanalyticshtml",
+    "asset_attributes": [
+      "data_asset"
+    ]
+  },
+  "entity": {
+    "data_asset": {
+      "dataset": false,
+      "mime_type": "text/html"
+    }
+  },
+  "attachments": [
+    {
+      "asset_type": "data_asset",
+      "name": "google-analytics.html",
+      "mime": "text/html",
+      "object_key": "data_asset/google-analytics.html",
+      "object_key_is_read_only": true,
+      "created_at": "2022-07-06T03:43:07Z",
+      "id": "cb578c95-3c0a-4c88-9467-c6c955ef7dc9",
+      "is_managed": false,
+      "is_referenced": true,
+      "is_remote": false
+    }
+  ]
+}

assets/.METADATA/data_asset.sunshineRDS.json

@@ -0,0 +1,34 @@
+{
+  "metadata": {
+    "name": "sunshine.RDS",
+    "asset_type": "data_asset",
+    "origin_country": "us",
+    "asset_category": "USER",
+    "created_at": "2022-07-06T03:43:07Z",
+    "created": 1657078987153,
+    "asset_id": "data_asset.sunshineRDS",
+    "asset_attributes": [
+      "data_asset"
+    ]
+  },
+  "entity": {
+    "data_asset": {
+      "dataset": false,
+      "mime_type": "application/octet-stream"
+    }
+  },
+  "attachments": [
+    {
+      "asset_type": "data_asset",
+      "name": "sunshine.RDS",
+      "mime": "application/octet-stream",
+      "object_key": "data_asset/sunshine.RDS",
+      "object_key_is_read_only": true,
+      "created_at": "2022-07-06T03:43:07Z",
+      "id": "05d5fbfe-c6e5-4a42-a822-e00f9fc3bcae",
+      "is_managed": false,
+      "is_referenced": true,
+      "is_remote": false
+    }
+  ]
+}

assets/.METADATA/environment.RSHINY.json

@@ -0,0 +1,47 @@
+{
+  "metadata": {
+    "name": "RSHINY",
+    "description": "",
+    "origin_country": "US",
+    "tags": [
+      "dsx"
+    ],
+    "asset_type": "environment",
+    "rov": {
+      "mode": 0
+    },
+    "asset_category": "USER",
+    "created_at": "2022-07-06T01:15:03Z",
+    "created": 1657070103550,
+    "asset_id": "environment.RSHINY",
+    "asset_attributes": [
+      "environment"
+    ]
+  },
+  "entity": {
+    "environment": {
+      "sub_type": "rstudio",
+      "display_name": "RSHINY",
+      "hardware_specification": {
+        "type": "referenced",
+        "guid": "hardware_specification.RSHINY"
+      },
+      "software_specification": {
+        "type": "referenced",
+        "guid": "0e6e79df-875e-4f24-8ae9-62dcc2148306"
+      },
+      "tools_specification": {
+        "supported_kernels": [
+          {
+            "name": "R",
+            "language": "R",
+            "version": "3.6",
+            "display_name": "R 3.6"
+          }
+        ]
+      },
+      "runtime_definition": "rstudio"
+    }
+  },
+  "attachments": []
+}