Make sure all functions have an example and return value

R/addin.R

@@ -3,6 +3,8 @@
 #' Insert at the cursor a template for \code{\link{create_aftable}} from the
 #' 'aftable' package, pre-filled with demo data.
 #'
+#' @return Empty list. Function is used for side effect.
+#'
 #' @export
 at_template_aftable <- function() {
   rstudioapi::insertText(string_create_aftable())
@@ -14,6 +16,8 @@ at_template_aftable <- function() {
 #' tables, and (b) a call to \code{\link{create_aftable}} pre-filled with
 #' demo data.
 #'
+#' @return Empty list. Function is used for side effect.
+#'
 #' @export
 at_template_workflow <- function() {
 

R/aftable.R

@@ -205,6 +205,7 @@ create_aftable <- function(tab_titles,
 #'     aftable, otherwise \code{FALSE}.
 #'
 #' @examples
+#' as_aftable(demo_df)
 #' is_aftable(demo_aftable)
 #'
 #' @export
@@ -245,6 +246,8 @@ is_aftable <- function(x) {
 #' @param object An aftable-class object for which to get a summary.
 #' @param ... Other arguments to pass.
 #'
+#' @return `object` unaltered.
+#'
 #' @examples
 #' # Print a concise summary of the aftable-class object
 #' summary(demo_aftable)