Match standard practice for PPR obj print

DESCRIPTION

@@ -18,7 +18,8 @@ Suggests:
 VignetteBuilder: knitr
 Roxygen: list(markdown = TRUE)
 Imports: 
-    fastglm,
+    Seurat,
     ggplot2,
     ggrepel,
-    GeneSwitches
+    GeneSwitches,
+    fastglm

NAMESPACE

@@ -1,13 +1,13 @@
 # Generated by roxygen2: do not edit by hand
 
-S3method(print,PPR_OBJECT)
 export(ppr_accuracy_test)
 export(ppr_cell_plot)
 export(ppr_filter_gene_expression_for_switching_genes)
 export(ppr_output_plot)
 export(ppr_precision)
 export(ppr_predict_position)
 export(ppr_timeline_plot)
+export(print.PPR_OBJECT)
 importFrom(GeneSwitches,filter_switchgenes)
 importFrom(ggplot2,aes)
 importFrom(ggplot2,aes_string)

R/ppr_utils.R

@@ -21,3 +21,11 @@ print.PPR_OBJECT <- function(x) {
     }
   }
 }
+
+print <- function(x, ...) {
+  if (inherits(x, "PPR_OBJECT")) {
+    print.PPR_OBJECT(x)
+  } else {
+    NextMethod()
+  }
+}