One Paragraph of project description goes here
These instructions will get you a copy of the project up and running on your local machine for development and testing purposes. See deployment for notes on how to deploy the project on a live system.
# Installing TOR on mac: brew install tor | |
# Run TOR on custom port: tor --SOCKSPort 9050 | |
# Check the 'origin' field in the response to verify TOR is working. | |
library(httr) | |
GET("https://httpbin.org/get", use_proxy("socks5://localhost:9050")) | |
# Set proxy in curl | |
library(curl) | |
h <- new_handle(proxy = "socks5://localhost:9050") |
library(shiny) | |
library(gsheet) | |
# Helper Functions | |
read.list <- function(url = "https://docs.google.com/spreadsheets/d/1aJ2Bv8CCR4OhBoVdsQD16OWON89VwuaLYKDDP-OiTG4") { | |
as.data.frame(gsheet::gsheet2tbl(url)) | |
} | |
read.data <- function(url) { | |
data <- as.data.frame(gsheet::gsheet2tbl(url)) |
0: | |
messages: | |
- "Would you like to send me a picture?" | |
input: | |
type: buttons_single_select | |
key: picture_yes_no | |
options: | |
[Yes, sure]: | |
input: | |
type: image |
0: | |
messages: | |
- Hello! | |
- I'm a Bot! | |
next: 1 | |
1: | |
messages: | |
- "What's your name?" | |
input: |
######################################### | |
## GLOBAL REQUIREMENTS AND DEFINITIONS ## | |
######################################### | |
require(RCurl) | |
require(XML) | |
loginURL <- "https://accounts.google.com/ServiceLogin" | |
authenticateURL <- "https://accounts.google.com/accounts/ServiceLoginAuth" | |
insightsURL <- "http://www.google.com/insights/search/overviewReport" |