update app.R

turned 1 back into a string in: make_plot2 <- function(ageslider = "1"){
STAT547-UBC-2019-20 · Apr 7, 2020 · a4ba489 · a4ba489
1 parent f678f52
commit a4ba489
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/app.R b/app.R
@@ -59,7 +59,7 @@ make_plot <- function(yaxis = "supervisor_relationship"){
 }
 
 # plot 2 
-make_plot2 <- function(ageslider = 1){
+make_plot2 <- function(ageslider = "1"){
   sliderTibble <- tibble(label = levels(survey_data$age), value = c(1:length(levels(survey_data$age))))
   slider_label <- sliderTibble$label[sliderTibble$value == ageslider]
   p1 <- survey_data %>%