Add missing return statements

R/geom_token.R

@@ -7,6 +7,8 @@
 #' @param data A tokenized data frame (see `tokenize()`).
 #' @inheritParams ggplot2::layer
 #' @inheritParams ggplot2::geom_point
+#' 
+#' @return A ggplot2 layer corresponding to a token
 #' @export
 geom_token <- function(data, mapping = NULL,
                           stat = "identity", position = "identity",

R/geom_turn.R

@@ -6,6 +6,8 @@
 #' @inheritParams ggplot2::layer
 #' @inheritParams ggplot2::geom_rect
 #' @param height The height of the turn-taking rectangles
+#' 
+#' @return A ggplot2 layer corresponding to a turn-taking rectangle
 #' @export
 geom_turn <- function(mapping = NULL, data = NULL,
                       stat = "identity", position = "identity",

R/report.R

@@ -11,6 +11,7 @@
 #'
 #' @param data talkr dataset
 #'
+#' @return No return, just prints a summary to the console
 #' @export
 report_stats <- function(data) {
   summary <- report(data)

R/theme_turnPlot.R

@@ -1,12 +1,13 @@
-#' theme for the turn plot
+#' T  heme for the turn plot
 #'
 #' @param base_size int
 #' @param base_family chr
 #' @param ticks bool
 #'
 #' @importFrom ggplot2 %+replace%
+#' 
+#' @return ggplot2 custom theme for turn plots
 #' @export
-#'
 theme_turnPlot <- function(base_size = 11, base_family = "serif", ticks = TRUE) {
   ggthemes::theme_tufte(
     base_size = base_size,