edgararuiz-zz

---
title: "Immunogenicity - Tiered Approuch to Assess ADA	Positive Samples"
output: 
  flexdashboard::flex_dashboard:
    orientation: rows
    vertical_layout: fill
params:
  screening: "Sample_ADA_Data_05062017_Screening.csv"
  confirmatory: "Sample_ADA_Data_05062017_Confirmatory.csv"
  screening_cut_point: 200

edgararuiz-zz

library(dplyr)
library(dbplyr)
library(DT)
library(shinydashboard)

ui <- dashboardPage(
  dashboardHeader(title = "Quick Example"),
  dashboardSidebar(selectInput("select", "Selection", c("one", "two"))),
  dashboardBody(
    tabsetPanel(

edgararuiz-zz

library(RSQLite)
library(MonetDBLite)
library(DBI)

#con <- dbConnect(MonetDBLite::MonetDBLite())
#con <- DBI::dbConnect(RSQLite::SQLite(), path = ":memory:")

dbWriteTable(con, "mtcars", mtcars)

edgararuiz-zz

library(dplyr)
con <- DBI::dbConnect(RSQLite::SQLite(), path = ":memory:")

db_mtcars <- copy_to(con, mtcars)

DBI::dbListTables(con)

db_mtcars %>%
  filter(am == 1) %>%
  show_query()

edgararuiz-zz

library(tfestimators)
library(titanic)
library(dplyr)
library(purrr)

titanic_set <- titanic_train %>%
  filter(!is.na(Age))

edgararuiz-zz

library(shinydashboard)
library(dplyr)
library(dbplyr)
library(purrr)
library(shiny)
library(highcharter)
library(DT)
library(htmltools)
library(nycflights13)

edgararuiz-zz

library(shinydashboard)
library(dplyr)
library(dbplyr)
library(purrr)
library(shiny)
library(highcharter)
library(DT)
library(htmltools)

# Use the `config` package to get the credentials

edgararuiz-zz

library(shinydashboard)
library(dplyr)
library(dbplyr)
library(purrr)
library(shiny)
library(highcharter)
library(DT)
library(htmltools)

# Use the `config` package to get the credentials

edgararuiz-zz

devtools::install_github("rstats-db/odbc", ref = "transactions", force = TRUE)

library(odbc)
odbcHiveCon <- dbConnect(odbc(),
                 Driver = "Hive Driver",
                 host = "ec2-52-35-222-37.us-west-2.compute.amazonaws.com",
                 Schema = "default",
                 UID  = "rstudio",
                 PWD = "rstudio",
                 port = 10000)

edgararuiz-zz

# The following two commands remove any previously installed H2O packages for R.
if ("package:h2o" %in% search()) { detach("package:h2o", unload=TRUE) }
if ("h2o" %in% rownames(installed.packages())) { remove.packages("h2o") }

# Next, we download packages that H2O depends on.
pkgs <- c("methods","statmod","stats","graphics","RCurl","jsonlite","tools","utils")
for (pkg in pkgs) {
  if (! (pkg %in% rownames(installed.packages()))) { install.packages(pkg) }
}