edgararuiz-zz

library(tidyverse)

data <- tribble(
  ~id, ~rater1, ~rater2, ~rater3, ~rater4, ~rater5,
  901,7,9,9,9,2,
  902,9,9,9,9,9,
  903,9,9,9,9,9,
  "age",21,39,38,33,21,
  "gender",1,2,2,2,2,
  "language",1,2,1,1,1

edgararuiz-zz

[<start>] -> [<choice> On GH?] 
[On GH?] -> No [<package>create_package()]
[On GH?] -> Yes [<choice> Cloned?]
[Cloned?] -> No [<package>create_from_github()]
[create_package()] -> [<package> use_git()]
[use_git()] -> [Edit DESCRIPTION]
[Edit DESCRIPTION] -> [<package> use_mit_license()]
[use_mit_license()] ->[<state> Write a function] 
[Write a function] -> [<package> use_r()] 
[Cloned?] -> Yes [Pull from repo]

edgararuiz-zz

library(sparklyr)
Sys.setenv(PATH = "/usr/local/sbin:/usr/local/bin:/usr/sbin:/usr/bin:/sbin:/bin:/usr/games:/usr/local/games:/snap/bin")
Sys.setenv(SPARK_HOME_VERSION = "2.3.0")

# Run before starting a new session: pkill kubectl

sc <- spark_connect(
  master = "k8s://http://10.1.1.1:8080",
  config = list(
    sparklyr.shell.master = "k8s://http://10.1.1.1:8080",

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"

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

library(tidyverse, warn.conflicts = FALSE)

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

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

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

edgararuiz-zz

library(shinydashboard)
library(shiny)
library(dplyr)
library(dbplyr)
library(odbc)
library(DBI)
library(dbplot)
library(ggplot2)
library(waffle)
library(DT)