updated readme fixed bugs

Author: =

README.md

@@ -1,14 +1,23 @@
-### UBC STAT 545B - Assignment B3
+### UBC STAT 545B - Assignment B3 & B4
 ##### Author: Joel Campbell
 
 #### Description
 
-This github repository is for STAT 545B assignment b3.
+This github repository is for STAT 545B assignment b3 and b4.
 
 This assignment consists of the creation of a shiny app that provides a quick and convenient method for the exploration of a UBC curated fungi dataset. This includes the ability to filter and sort the data, and an auto-updating count of the total number of results based on the filters chosen.
 
 The shiny app can be found at the following link: https://joelkcamp.shinyapps.io/UBCFungi/
 
+#### Release 1.1
+
+For assignment b4 I have added a multitude of features, including:
+- a separate tab for data visualization
+- two visualization methods (word cloud and bar chart)
+- the capability to download the visualizations as png files
+- an updated theme using a .css file
+- a small image in the title row
+
 
 #### Data
 

app/app.R

@@ -1,7 +1,7 @@
 library(shiny)
 library(dplyr)
 library(ggplot2)
-library(webshot)
+library(webshot2)
 library(htmlwidgets)
 library(wordcloud2)
 
@@ -275,7 +275,7 @@ server <- function(input, output) {
         temp_file <- tempfile(fileext = ".html")
         data <- filter_data()
         saveWidget(generate_word_cloud(data, input$visual_column), file = temp_file, selfcontained = TRUE)
-        webshot(temp_file, file = file, vwidth = 800, vheight = 600, cliprect = "viewport")
+        webshot2::webshot(temp_file, file = file, vwidth = 800, vheight = 600)
 
       } else if (input$viz_type == "Bar Chart") {