-
Notifications
You must be signed in to change notification settings - Fork 0
/
global.R
31 lines (27 loc) · 825 Bytes
/
global.R
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
##############################
# - App Title: Visa Exploration
# - Authors: Sarthak Khillon, Juan Moreno, Christina Walden
##############################
library(tidyverse) # Misc tidy data wrapper package.
library(readr) # File IO
library(stringr) # String processing.
library(leaflet) # Map plotting.
library(ggplot2) # Plotting.
library(shiny) # Duh.
library(RColorBrewer) # Color palette configuration.
library(shinyjs) # To reset Shiny input elements.
library(scales) # GGPlot axis formatting.
load("visas_and_models.RData")
# Set color palette.
statusPalette <- brewer.pal(9, "Set1")
# Global user input dataframe.
user_info_df <- data.frame(
EMPLOYER_NAME = "",
SOC_NAME = "",
JOB_TITLE = "",
FULL_TIME_POSITION = TRUE,
WORKSITE = "",
YEAR = 2016,
lon = 25,
lat = 25
)