jtag04

---
title: "dash"
output: flexdashboard::flex_dashboard
runtime: shiny
---
  
  
```{r setup, include=FALSE}

library(tidyverse)

jtag04

---
title: "reactive test"
output: 
 flexdashboard::flex_dashboard
runtime: shiny
---

```{r}
library(tidyverse)
```

jtag04

---
title: "reactive test"
output: 
 flexdashboard::flex_dashboard
runtime: shiny
---

```{r}
library(tidyverse)
```

jtag04

## Preliminaries ----

## Load Packages 
library(tidyverse)
library(lubridate)
library(here)
library(readxl)

## Specify the folder ----
FolderMaster <- here::here("Official Results")

jtag04

get_data_ready <- function(data) {
  
  data %>% 
    mutate(response_rank = as.numeric(response)) %>% 
    
    mutate(total_levels = length(response_values),
           levels_are_even = length(response_values) %% 2 == 0,
           middle_level = if_else(!levels_are_even, ceiling(length(response_values)/2), NULL)) %>% 
    
    mutate(response_rank_type = if_else(!levels_are_even, 

jtag04

prep_for_chart <- function(data) {
  
  data %>% 
    arrange(response_rank) %>% 
    group_by(question, response_rank_type) %>% 
    mutate(lead1 = lead(sum_of_value), 
           lead2 = lead(sum_of_value, 2),
           lag1 = lag(sum_of_value),
           lag2 = lag(sum_of_value,2)) %>% 
    ungroup() %>% 

jtag04

header_cells <- c("SEEK Job Mail", 
                  "Hi Julian", 
                  "tableau in Melbourne",
                  "posted yesterday match your Saved Search:", 
                  "new jobs. Update your SEEK Profile",
                  "Manage your Saved Searches and subscription preferences", 
                  "https://www.seek.com.au/my-activity/saved-search",
                  "SEEK Profile Link",
                  "Update your SEEK Profile")

jtag04

radioButtons("brand",
               "brand:",
               choices = c("All", unique(candyData$Brand)),
               selected = "All")

radioButtons("candy_name",
               "candy_name:",
               choices = c("All", unique(candyData$Candy)),
               selected = "All")

jtag04

---
title: "dash"
output: flexdashboard::flex_dashboard
runtime: shiny
---
```{r setup, include=FALSE}
library(tidyverse)
library(lubridate)
library(plotly)
```

jtag04

search_data_frame <- completed %>% 
  filter(country == "AU",
         certificate_name == "Tableau Desktop Certified Associate") %>% 
  distinct(Full_name) %>% 
  mutate(search_terms = paste("LINKEDIN", Full_name, sep = " "), 
         search_url = paste("https://www.google.com.au/search?q=", gsub(" ", "+", search_terms), sep = "")) %>% 
  mutate(urls = map(search_url, ~ xml2::read_html(.x) %>% 
                      rvest::html_nodes(xpath='//h3/a') %>% 
                      rvest::html_attr('href') %>% 
                      strsplit(.[as.vector(grep("url",.))], split = "&") %>%