nlddfn

library(shiny)
library(shinydashboard)
library(dplyr)
library(tidyr)
library(plotly)
library(DT)
library(rPython)
library(pdftools)

python.load("helperP3.py") 

nlddfn

# -*- coding: utf-8 -*-
"""
Created on Sat Aug 13 21:12:30 2016

@author: Diego
"""
from selenium import webdriver
#from bs4 import BeautifulSoup # For HTML parsing
from time import sleep # To prevent overwhelming the server between connections
from collections import Counter # Keep track of our term counts

nlddfn

def get_analytics():    
    """
    Created on Tue Aug 16 22:48:18 2016
    
    @author: Diego
    """
    import pandas as pd
    from collections import Counter # Keep track of our term counts
    from helperP3 import load_obj, skills_info
    

nlddfn

# -*- coding: utf-8 -*-


def glassdoorScrape(get_short = False):
    
    """
    Created on Tue Aug 16 22:41:30 2016
    Scrape Glassdoor website using SELENIUM
    @author: Diego De Lazzari
    """

nlddfn

shinyUI(
  fluidPage(
  titlePanel('Tracking migration paths from the Middle East'),
  dashboardPage(
    dashboardHeader(title = "Navigation"),
    dashboardSidebar(
        sidebarMenu(
            menuItem("About", tabName = "about", icon = icon("info")),
            menuItem("Balkan route", tabName = "destination", icon = icon("map")),
            menuItem("Stats", tabName = "stats", icon = icon("bar-chart")),

nlddfn

 # Create Map
    
  output$map <- renderPlotly({
    sel.data <- filter(balkanRoute.map, Date == input$slider.map)
    
    # light grey boundaries
    l <- list(color = toRGB("grey"), width = 0.5)
    
    # specify map projection/options
    g <- list(

nlddfn

  observe({
    # data frames
    if(input$whichData == 'Daily Arrivals'){
      data_stat = balkanRoute}
    else if(input$whichData == 'Gender'){
      data_stat = dataGender2016}
    else {data_stat = dataOrigin2016}

    # Column indexes
    if(input$whichData == 'Daily Arrivals'){