Merge pull request #1 from sol-eng/quickstart-final-pass

Quickstart final pass

.internal.yml

@@ -2,7 +2,8 @@ default:
   content:
     - name: "Enterprise Ready Dashboards"
       path: "./sqlite"
-      description: "Use databases with Shiny."
+      description: "An interactive Shiny application that uses a database and dbplyr to translate R code into SQL."
       tag:
         - "Demo Content|Enterprise"
-      url: "/enterprise/"
+      url: "/enterprise/"
+      image: "dashboard.png"

db-dashboard.Rproj

@@ -11,3 +11,5 @@ Encoding: UTF-8
 
 RnwWeave: Sweave
 LaTeX: pdfLaTeX
+
+AutoAppendNewline: Yes

sqlite/sqlite_app.R → sqlite/app.R

@@ -66,6 +66,12 @@ ui <- dashboardPage(
     )
   ),
   dashboardBody(
+    gitlink::ribbon_css(
+      "https://github.com/sol-eng/db-dashboard", 
+      position = "right", 
+      parent_css = list("z-index" = "1040", "pointer-events" = "none"),
+      "pointer-events" = "auto"
+    ),
     tabsetPanel(
       id = "tabs",
       tabPanel(
@@ -152,6 +158,7 @@ server <- function(input, output, session) {
         delays = sum(delayed, na.rm = TRUE),
         total = n()
       ) %>%
+      collect() %>% # needed b/c we are at parser stack overflow limit in sqlite
       mutate(percent = (delays / total) * 100) %>%
       pull() %>%
       round() %>%