diff --git a/R/external_fizz.R b/R/external_fizz.R index 763c4aca..712d8386 100644 --- a/R/external_fizz.R +++ b/R/external_fizz.R @@ -33,7 +33,10 @@ external_fizz <- function(data, mingroup = 5, return = "plot"){ - create_fizz(data = data, +plot_data <- data %>% mutate(External_collaboration_hours = Collaboration_hours_external) + + + create_fizz(data = plot_data, metric = "External_collaboration_hours", hrvar = hrvar, mingroup = mingroup,