Adding links

NAMESPACE

@@ -74,6 +74,7 @@ export(email_trend)
 export(export)
 export(external_network_plot)
 export(external_sum)
+export(external_summary)
 export(extract_date_range)
 export(extract_hr)
 export(flag_ch_ratio)

R/external_sum.R

@@ -38,4 +38,11 @@ plot_data <-  data %>% mutate(Internal_hours=  Collaboration_hours - Collaborati
 # Plot Internal / External Collaboration time by Organization
 plot_data %>%  create_stacked(hrvar = hrvar, metrics = c("Internal_hours", "External_hours"),   plot_title = "Internal and External Collaboration Hours",  stack_colours = stack_colours, mingroup = mingroup, return = return)
 
-}
+}
+
+
+#' @rdname external_sum
+#' @export
+external_summary <- external_sum
+
+

man/external_sum.Rd

@@ -2,6 +2,7 @@
 % Please edit documentation in R/external_sum.R
 \name{external_sum}
 \alias{external_sum}
+\alias{external_summary}
 \title{External Collaboration Summary}
 \usage{
 external_sum(
@@ -11,6 +12,14 @@ external_sum(
   stack_colours = c("#1d327e", "#1d7e6a"),
   return = "plot"
 )
+
+external_summary(
+  data,
+  hrvar = "Organization",
+  mingroup = 5,
+  stack_colours = c("#1d327e", "#1d7e6a"),
+  return = "plot"
+)
 }
 \arguments{
 \item{data}{A Standard Person Query dataset in the form of a data frame.}