Improve show method for TsIO objects

Add number of designed primers to printed info. Add newline at the end of printed info.
argschwind · Mar 16, 2020 · 22a6034 · 22a6034
1 parent b48db18
commit 22a6034
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 3 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,7 +1,7 @@
 Package: TAPseq
 Type: Package
 Title: Targeted scRNA-seq primer design for TAP-seq
-Version: 0.99.4
+Version: 0.99.5
 Authors@R: c(
   person("Andreas", "Gschwind", email = "andreas.gschwind@stanford.edu",
          role = c("aut", "cre"), comment = c(ORCID = "0000-0002-0769-6907")),

diff --git a/R/TsIO_classes.R b/R/TsIO_classes.R
@@ -628,12 +628,15 @@ setMethod("show", "TsIO", function(object) {
 
   prod_size <- product_size_range(object)
 
+  primers <- length(tapseq_primers(object))
+  if (primers == 0) primers <- "None"
+
   cat(is(object)[[1]], " instance", "\n",
       "  ", length(sequence_template(object)), " bp sequence template", "\n",
       "  Sequence ID: ", sequence_id(object), "\n",
       "  Beads oligo: ", as.character(beads_oligo), "\n",
       "  Right primer: ", as.character(reverse_primer), "\n",
-      "  Specified product size range: ", prod_size[1], "-",
-      prod_size[2], " basepairs",
+      "  Specified product size range: ", prod_size[1], "-", prod_size[2], " basepairs", "\n",
+      "  Designed left primers: ", primers, "\n",
       sep = "")
 })