Skip to content

Instantly share code, notes, and snippets.

View agberg's full-sized avatar

Aaron Berg agberg

0 followers · 7 following
  • Walmart
  • Bentonville, AR
View GitHub Profile
@agberg
agberg / dynamic_shiny_i_o_example.R
Created December 28, 2017 23:30
The first half of a dynamic filtering Shiny application.
library(shiny)
library(stringr)
# Module UI function
fieldSelectorInput <- function(id) {
# Create a namespace function using the provided id
ns <- NS(id)
tags$div(id = ns("id"),
tagList(
@agberg
agberg / disable_connection_pane.R
Last active December 2, 2017 20:36
# If this were a working example then the function would take inputs, probably as (...) this was just hacked together as a connection to a particular datababase.
disable_connection_pane <- function(){
saved_option = getOption("connectionObserver")
options(connectionObserver = NULL)
con <- DBI::dbConnect(odbc::odbc(),
dsn = "dsn")
@agberg
agberg / keybase.md
Created August 17, 2017 19:44

Keybase proof

I hereby claim:

  • I am agberg on github.
  • I am agberg (https://keybase.io/agberg) on keybase.
  • I have a public key ASA5Iw1TgEu5GF70ZB0OSnfFUs3L2M8uiK9cYqCoG1y4xQo

To claim this, I am signing this object:

@agberg
agberg / printing_flexdashboard_with_webshot
Last active November 16, 2020 21:28
Using Webshot to "Print" Flexdashboards
This gist holds the files necessary to reproduce a minimal example of "printing" a flexdashboard using a headless browser.