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" |