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)
library(dbplyr)
library(DT)
library(shinydashboard)

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

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(shinydashboard)
library(shiny)
library(dplyr)
library(dbplyr)
library(odbc)
library(DBI)
library(dbplot)
library(ggplot2)
library(waffle)
library(DT)

edgararuiz-zz

variables:
  manufacturer:
    trans: fabricante
  model:
    trans: modelo
  displ:
    trans: despl
  year:
    trans: anio
  cyl:

edgararuiz-zz

variables:
  cut:
    trans: corte
    desc: Calidad del corte
    values:
      Good: Bueno
      Very Good: Muy Bueno
  clarity:
    trans: claridad
    desc: Que tan claro es el diamante

edgararuiz-zz

library(tidyverse, warn.conflicts = FALSE)

df <- tribble(
  ~id, ~port,
  "a", "22,33",
  "a", "22,44",
  "b", "33, 434"
)

edgararuiz-zz

library(dbplyr, warn.conflicts = FALSE)
library(dplyr, warn.conflicts = FALSE)
library(purrr, warn.conflicts = FALSE)
library(DBI, warn.conflicts = FALSE)
library(rlang, warn.conflicts = FALSE)

con <- DBI::dbConnect(RSQLite::SQLite(), path = ":dbname:")

db_mtcars <- copy_to(con, mtcars)

edgararuiz-zz

library(dbplyr, warn.conflicts = FALSE)
library(dplyr, warn.conflicts = FALSE)
library(purrr, warn.conflicts = FALSE)
library(DBI, warn.conflicts = FALSE)
library(rlang, warn.conflicts = FALSE)

con <- DBI::dbConnect(RSQLite::SQLite(), path = ":dbname:")

db_mtcars <- copy_to(con, mtcars)

edgararuiz-zz

# GCS Image - 18.04 LTS (don't use Minimal!!)
# Dashboard: {IP ADDRESS}:8080/api/v1/namespaces/kube-system/services/https:kubernetes-dashboard:/proxy/#!/pod?namespace=default

#!/bin/bash

RSTUDIO="rstudio-server-1.1.463-amd64.deb"
SPARK="2.3.0"
HADOOP="2.7"
SPARKLYR="0.9.2"