arthur-flam

Keybase proof

I hereby claim:

• I am arthur-flam on github.
• I am arthurflam (https://keybase.io/arthurflam) on keybase.
• I have a public key whose fingerprint is 6E24 D6DC 25E7 6467 8EF1 3317 F546 7E61 0F0B B376

To claim this, I am signing this object:

arthur-flam

# MIT licence - https://tldrlegal.com/license/mit-license
# Arthur Flam - Lookies - 2015

library(httr)
library(rjson)

HOST = "ip.ip.ip.ip"
PORT = "8086"
PROTOCOL = "http"
DATABASE = "test_db"

arthur-flam

# become a coder
while true; do
  http GET 'http://HOSTNAME/votePlugin.php' blogId==BLOG_ID vote==1 track=$(date +"%s")
  sleep $[ ( $RANDOM % 1000 )  + 1 ]s
done

arthur-flam

## Arthur Flam
## @ArthurFlam
## Ecole Centrale Paris, ex-Dauphine

## Vérifier si quelqu'un vient bien de Dauphine

library(RCurl)
library(rjson)
library(XML)

arthur-flam

## Arthur Flam
## @ArthurFlam
## Ecole Centrale Paris, ex-Dauphine

## Vérifier si quelqu'un vient bien de Centrale Paris

library(RCurl)
library(rjson)
library(XML)

arthur-flam

## Arthur Flam
## @ArthurFlam
## Ecole Centrale Paris, ex-Dauphine
## arthur.flam@gmail.com

## Vérifier si quelqu'un est bien ingénieur CTI

library(RCurl)
library(rjson)
library(XML)

arthur-flam

#' Random sleep
#'
#' Random exponential sleep + prints "sleeping".
#'
#' @param short Toogle shorter wait time
#' @references \url{https://twitter.com/ArthurFlam}
# @ArthurFlam

# random Sleep function
# Prints out

arthur-flam

shinyUI(bootstrapPage(

  selectInput(inputId = "n_breaks",
      label = "Number of bins in histogram (approximate):",
      choices = c(10, 20, 35, 50),
      selected = 20),

  checkboxInput(inputId = "individual_obs",
      label = strong("Show individual observations"),
      value = FALSE),

arthur-flam

shinyServer(function(input, output) {

  output$main_plot <- renderPlot({

    hist(faithful$eruptions,
      probability = TRUE,
      breaks = as.numeric(input$n_breaks),
      xlab = "Duration (minutes)",
      main = "Geyser eruption duration")

arthur-flam

library(RCurl)
library(stringr)
library(twitteR)
library(ggplot2)
library(plyr)

## Setup twitter credentials once (with an API app key)
# cred <- OAuthFactory$new(consumerKey="XXXXX",
#     						 consumerSecret="XXXXX",
# 								 requestURL="https://api.twitter.com/oauth/request_token",