flovv

require(httr)
require(stringr)
require(rvest)



getNumberOfPages <- function(url){
  rb <- read_html(url)
  
  str <- rb %>%

flovv

var url ='https://www.google.de/search?q=Yahoo+logo&source=lnms&tbm=isch&sa=X';
   var page = new WebPage()
    var fs = require('fs');

var vWidth = 1080;
var vHeight = 1920; 

page.viewportSize = {
    width: vWidth ,
    height: vHeight 

flovv

########## data proprocessing!
## download the file set from here: http://image.ntua.gr/iva/datasets/flickr_logos/
## extract image to a folder flickrData
### copy files in the right directories

options(stringsAsFactors = F)
df <- read.csv("flickrData/flickr_logos_27_dataset_query_set_annotation.txt", sep="\t")

flovv

require(ggplot2)
require(ggthemes)
require(plyr)
require(stringr)
require(Rmisc)
require(lubridate)
require(popbio)  #betaval - to create random beta variables

#### Experiment setting
rnorm2 <- function(n,mean,sd) { mean+sd*scale(rnorm(n)) }

flovv

require(ggplot2)
require(ggthemes)

require(plyr)
require(stringr)

library(lpSolve)

out <- read.csv("https://raw.githubusercontent.com/flovv/flovv.github.io/master/_Rmd/data/com.csv", sep="|")

flovv

require(ggplot2)
require(ggthemes)
require(rvest)
require(plyr)

url <- "http://rodrigob.github.io/are_we_there_yet/build/classification_datasets_results.html"
ml <- read_html(url)
tabs <- ml %>%  html_nodes(xpath='//*[@class="table table-striped"]') %>%  html_table()

df <- tabs[[1]]

flovv

require(ggplot2)
require(ggthemes)
require(plyr)

require(reshape2)
library(grid)
require(lubridate)
require(stringr)
options(stringsAsFactors = FALSE)

flovv

#devtools::install_github("ropengov/rtimes")
#devtools::install_github("chgrl/diezeit")
library(rtimes)
library(diezeit)

require(plyr)
require(lubridate)
require(ggthemes)
require(ggplot2)

flovv

#devtools::install_github("soodoku/tuber", build_vignettes = TRUE)
require(tuber)
require(ggplot2)
require(gtools)
require(ggthemes)
options(stringsAsFactors = FALSE) 
require(plyr)

## login credentials: console.google.com

flovv

## gather data:
require(Roxford)
images <- list.files("sample bilder/")
facekey = "API KEY"

for(i in images[1:200]){
  
  dff <- getFaceResponse(paste0("sample bilder/",i), facekey)