Skip to content

Commit

Permalink
Merge pull request #1 from sol-eng/quickstart-final-pass
Browse files Browse the repository at this point in the history
Quickstart final pass
  • Loading branch information
colearendt authored Jan 14, 2019
2 parents bc256f6 + 95adabb commit 7d56741
Show file tree
Hide file tree
Showing 4 changed files with 2,249 additions and 2 deletions.
5 changes: 3 additions & 2 deletions .internal.yml
Original file line number Diff line number Diff line change
Expand Up @@ -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"
2 changes: 2 additions & 0 deletions db-dashboard.Rproj
Original file line number Diff line number Diff line change
Expand Up @@ -11,3 +11,5 @@ Encoding: UTF-8

RnwWeave: Sweave
LaTeX: pdfLaTeX

AutoAppendNewline: Yes
7 changes: 7 additions & 0 deletions sqlite/sqlite_app.R → sqlite/app.R
Original file line number Diff line number Diff line change
Expand Up @@ -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(
Expand Down Expand Up @@ -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() %>%
Expand Down
Loading

0 comments on commit 7d56741

Please sign in to comment.