Fixed some documentation issues

R/class_models.R

@@ -186,6 +186,7 @@ print.diff_model <- function(x, ...){
 
 #' @export
 summary.diff_model <- function(object, ...){
+  cum_sum <- NULL
   ns <- length(attr(object, "mode"))
   dplyr::count(object, t) %>% 
     mutate(cum_sum = cumsum(n)) %>% 
@@ -194,6 +195,7 @@ summary.diff_model <- function(object, ...){
 
 #' @export
 plot.diff_model <- function(x, ...){
+  percent <- NULL
   y <- summary(x)
   ggplot2::ggplot(y) + 
     ggplot2::geom_line(aes(x = t, y = percent)) +

R/make_play.R

@@ -2,6 +2,10 @@
 #' @inheritParams is
 #' @param seeds A valid mark vector the length of the
 #'   number of nodes in the network.
+#' @param thresholds A numeric vector indicating the thresholds
+#'   each node has. By default 1.
+#' @param steps The number of steps forward in the diffusion to play.
+#'   By default the number of nodes in the network.
 #' @examples 
 #' play_diffusion(generate_smallworld(15, 0.025))
 #' @export

R/manip_add.R

@@ -110,7 +110,7 @@ join_ties <- function(object, object2, attr_name){
 }
 
 #' @export
-mutate.igraph <- function(object, ...){
-  object %>% as_tidygraph() %>% 
+mutate.igraph <- function(.data, ...){
+  .data %>% as_tidygraph() %>% 
     mutate(...) %>% as_igraph()
 }