klahrich

library(rvest)
library(magrittr)
library(stringr)
library(lubridate)
library(reshape2)
library(ggplot2)
library(dplyr)
library(ggthemes)
library(choroplethr)
library(choroplethrMaps)

klahrich

library(shinydashboard)
library(shiny)
library(ggplot2)

ui <- fluidPage(
  sidebarLayout(
    sidebarPanel(
      #selectInput("candidate", "Candidate name:", c("D. Trump", "T. Cruz", "H. Clinton", "B. Sanders"), 
      #            selected="D. Trump"),
      

klahrich

#+ chunk-0
library(acs)
library(magrittr)
library(dplyr)

#' #Step 1: get your free api key
#' Here's the [link](http://api.census.gov/data/key_signup.html)
#' Install your api key:

#+ chunk-0-b, eval=F

klahrich

library(RSQLite)
library(dplyr)

setwd("C:\\Users\\klahrich\\Documents\\R\\retention_pk\\")

db <- dbConnect(SQLite(), dbname="Test.sqlite")
my_db <- src_sqlite("Test.sqlite")

dbWriteTable(conn=db, name="Training", value="training.csv", row.names=FALSE, header=TRUE)

klahrich

library(rvest)
library(magrittr)
library(dplyr)
library(purrr)
library(lubridate)
library(tidyr)
library(ggplot2)
library(scales)

setwd("...working directory...")

klahrich

use_bpm 50

k = 0

#main loop beat duration
m = 2

live_loop :main do
  sleep m
  k = k + 1

klahrich

#orientalmati


use_bpm 50

k = 0

#main loop beat duration, in seconds
m = 2

klahrich

use_bpm 80

k = 0
k2 = 0

beat_duration = 1

live_loop :main do
  k2 = 0
  2.times do

klahrich

use_bpm 80

k = 0
k2 = 0

beat_duration = 1

live_loop :main do
  sleep beat_duration.to_f/2

klahrich

use_sample_bpm :ambi_lunar_land, num_beats:8

k = 0
k2 = 0

beat_duration = 1

live_loop :main do
  sleep beat_duration.to_f/2