# use `str(knitr::opts_chunk$get())` 
# for list of all code chunk options

knitr::opts_chunk$set(echo = TRUE) # global options for all code blocks

# the required packages for this project

require(knitr)       #to convert into html and add images
require(tidyverse)   #to clean messy data
require(readxl)      #to import excel files
require(kableExtra)  #to make pretty tables
require(here)        #to manage files better
require(icon)        #to work with icon's from font awesome
require(visNetwork)  #to create interactive network graphs
require(colorspace)  #to find hexidecimal color numbers
require(vembedr)     #to embed video's

Take Home Message

New SharePoint replaces Google sites and Fishnet

Two new SharePoint sites for different users

Improves communication and work efficiency

You’re going to like what you see


Share the with Two Sites!

FWS SharePoint Live Demonstration


NCTC SharePoint Live Demonstration


Team Members 

library(readxl)
MyNodes <- read_excel("WebTeam.xlsx", sheet = 1)
MyEdges <- read_excel("WebTeam.xlsx", sheet = 2)

library(visNetwork)

# Node Shapes 
# shape = "square", "triangle", "box", "circle", 
# "dot", "star", "ellipse", "database", "text", "diamond"

visNetwork(MyNodes, MyEdges, width = "100%") %>%
  visEdges(shadow = TRUE,
           arrows = list(to = list(enabled = TRUE, scaleFactor = 0.8)),
           color = "white") %>%
  
  visGroups(groupname = "Distance Learning", color = "orange", shape = "square", 
            size = "15", shadow = list(enabled = T), 
            font = list(size = 20, color = "orange")) %>% 
  visGroups(groupname = "Training Administration", color = "lightgreen", 
            shape = "triangle", size = "15", shadow = list(enabled = T), 
            font = list(size = 20, color = "lightgreen")) %>% 
  visGroups(groupname = "Facility Operations", color = "lightblue", 
            shape = "diamond", shadow = list(enabled = T), 
            font = list(size = 20, color = "lightblue"))  %>% 
  visGroups(groupname = "History & Heritage", color = "cyan", 
            shape = "star", size = "20", shadow = list(enabled = T), 
            font = list(size = 20, color = "cyan"))  %>%
  visGroups(groupname = "Heritage & Training", color = "pink", 
            shape = "dot", size = "15", shadow = list(enabled = T), 
            font = list(size = 20, color = "pink"))  %>%
  
  visLegend(width = 0.20, position = "right")  %>% 
   visPhysics(stabilization = FALSE) %>% 
    visLayout(hierarchical = FALSE, randomSeed = 1009)


We Want Your Feedback

Comments


Questions

Example Question: What is the airspeed velocity of an unladen Swallow?



# Answer me these questions three!

embed_youtube("Xel0c6mpqPA", width = 800, height = 400,
             allowfullscreen = FALSE) %>% 
             use_start_time("2m24s")