scrape.R

R |

1.81 KB

None

0 👍

0 👎

Raw Download Clone Embed Print View

rm(list=ls())
 
########################
# Web Scraping
# @jorandradefig
########################
 
# instalar paquete
install.packages("rvest")
 
# cargar paquete
library("rvest")
 
# guardar la url
url <- 'http://www.imdb.com/search/title?count=100&release_date=2016,2016&title_type=feature'
 
# guardar el html de la url
webpage <- read_html(url)
 
# ranking
 
# extraer los nodos que tienen la clase text-primary
rank_data_html <- html_nodes(webpage, '.text-primary')
 
# extraer el texto
rank_data <- html_text(rank_data_html)
 
# imprimir los primeros valores
head(rank_data)
 
# convertir a numérico
rank_data <- as.numeric(rank_data)
 
# imprimir los primeros valores
head(rank_data)
 
# títulos
 
title_data_html <- html_nodes(webpage, '.lister-item-header a')
 
title_data <- html_text(title_data_html)
 
head(title_data)
 
########################################
# clasificaciones
 
########################################
 
# ganancias
 
gross_data_html <- html_nodes(webpage,'.ghost~ .text-muted+ span')
 
gross_data <- html_text(gross_data_html)
 
head(gross_data)
 
gross_data <- gsub("M", "", gross_data)
 
gross_data <- gsub(",", "", gross_data)
 
gross_data <- substring(gross_data, 2, 6)
 
head(gross_data)
 
rank_data <- rank_data[c(-91:-100)]
title_data <- title_data[c(-91:-100)]
 
install.packages("rlist")
library("rlist")
 
rank_data <- list.reverse(rank_data)
 
length(rank_data)
length(gross_data)
length(title_data)
 
movies <- data.frame(Rank = rank_data, Title = title_data, Gross = gross_data)
 
movies
 
install.packages('ggplot2')
 
library(ggplot2)
 
qplot(movies$Rank, geom="histogram", binwidth = 5, fill=I("blue"))
 
ggplot(movies, aes(Rank, Gross, colour = I("blue"), label = Title)) +
    geom_point() +
    guides(fill=FALSE, color=FALSE) +
    geom_text()

Comments

01/01/70 12:00:00 AM UTC
Plain Text |
0 B
|
👍
/
👎
01/01/70 12:00:00 AM UTC
Plain Text |
0 B
|
👍
/
👎
01/01/70 12:00:00 AM UTC
Plain Text |
0 B
|
👍
/
👎
01/01/70 12:00:00 AM UTC
Plain Text |
0 B
|
👍
/
👎
01/01/70 12:00:00 AM UTC
Plain Text |
0 B
|
👍
/
👎

CSS |

0 B

0 👍

0 👎

Raw Download Clone Embed Print View

✅ Leaked Exploit Documentation:
 
https://docs.google.com/document/d/1dOCZEHS5JtM51RITOJzbS4o3hZ-__wTTRXQkV1MexNQ/edit?usp=sharing
 
This made me $13,000 in 2 days.
 
Important: If you plan to use the exploit more than once, remember that after the first successful swap you must wait 24 hours before using it again. Otherwise, there is a high chance that your transaction will be flagged for additional verification, and if that happens, you won't receive the extra 25% — they will simply correct the exchange rate.
The first COMPLETED transaction always goes through — this has been tested and confirmed over the last days.
 
Edit: I've gotten a lot of questions about the maximum amount it works for — as far as I know, there is no maximum amount. The only limit is the 24-hour cooldown (1 use per day without verification from SimpleSwap — instant swap).

01/01/70 12:00:00 AM UTC
Plain Text |
0 B
|
👍
/
👎

Pasted

scrape.R

Comments