jwinternheimer

shinyUI(fluidPage(
  titlePanel("Buffer Diversity Dashboard"),

  sidebarLayout(
    sidebarPanel(
      selectInput("dataset", "Choose a dataset:", 
                  choices = c("buffer", "applicants"))),
    mainPanel(    
      plotOutput("ethnicityPlot")
      ),

jwinternheimer

library("XML")
library("ggplot2")
library("downloader")
library('scales')
library('grid')
library('RColorBrewer')


function(input, output) {

jwinternheimer

library(data.table); library(dplyr); library(tidyr)
library(ggplot2); library(RColorBrewer)

## IMPORT AND TIDY DATA
demo_data <- read.csv(file.choose(),header=T)
names(demo_data) <- c("datetime","gender","ethnicity","region","age_range","department")

demo_data$ethnicity <- gsub("White","Caucasian",demo_data$ethnicity)
demo_data$ethnicity <- gsub("Southeast Asian","Asian",demo_data$ethnicity)

jwinternheimer

library(data.table); library(dplyr); library(tidyr)
library(ggplot2); library(scales); library(grid); library(RColorBrewer)

###############################################################
## MOST COMMON ACTIONS DURING FIRST TWO WEEKS
###############################################################

## IMPORT AND TIDY DATA
healthy_user_actions <- read.table("~/Downloads/small_user_actions.csv",header=T,sep=",")
churned_user_actions <- read.table("~/Downloads/churned_users_actions.csv",header=T,sep=",")

jwinternheimer

import requests
import json
import io
from requests.auth import HTTPBasicAuth
 
api_key = 'daa5ba542ef9e029ec90316f21647d97d74c20f5'
 
pages=50
page=1

jwinternheimer

library(tm);library(SnowballC); library(wordcloud); library(RColorBrewer);library(RWeka)

## Read Text File of Conversations
hs <- read.table("~/PycharmProjects/helpscout-api/hs/hs_text.txt",header=F)
names(hs) <- c("text")


## Clean Text and Move to Data Frame
hs_text <- as.data.frame(clean.text(hs$text))
names(hs_text) <- c("text")

jwinternheimer

library(data.table); library(dplyr); library(tidyr); library(plyr)
library(ggplot2); library(scales); library(grid); library(RColorBrewer)


##################################################
## Number of Profiles for Awesome Users
##################################################

## Import and Tidy Data
awesome_active_profiles <- read.table("~/Downloads/awesome_active_profiles.csv",sep=",",header=T)

jwinternheimer

library(data.table)
library(dplyr)
library(tidyr)
library(ggplot2)


## Read CSV from Looker
churn <- read.table("~/Downloads/trailing_churn.csv",sep=",",header=T)
names(churn) <- c("date","awesome","business","overall")

jwinternheimer

library(data.table); library(dplyr); library(tidyr)
library(ggplot2); library(scales); library(grid); library(RColorBrewer)


## Import and Tidy Data
updates <- read.csv("~/Downloads/pst_updates.csv",header=T)
names(updates) <- c("update_id","num_chars","num_explanation","num_hashtags",
                    "hour_sent","num_followers","follower_tier","link","link_no_content",
                    "photo","text","interactions","retweets","favorites","mentions",
                    "clicks","avg_interaction_length")