one more test and version bump / NEWS

BodenmillerGroup · Jan 5, 2024 · 1410c06 · 1410c06
1 parent 7d75d79
commit 1410c06
Show file tree

Hide file tree

Showing 3 changed files with 35 additions and 1 deletion.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,5 +1,5 @@
 Package: cytoviewer
-Version: 1.3.1
+Version: 1.3.2
 Title: An interactive multi-channel image viewer for R
 Description: 
     This R package supports interactive visualization of multi-channel images 

diff --git a/NEWS b/NEWS
@@ -42,3 +42,6 @@ Changes in version 1.1.3 (2023-10-19):
 
 Changes in version 1.3.1 (2024-01-04): 
 + updated README and added citation file
+
+Changes in version 1.3.2 (2024-01-05): 
++ added pixel resolution option
diff --git a/tests/testthat/test_cytoviewer_reactive.R b/tests/testthat/test_cytoviewer_reactive.R
@@ -500,3 +500,34 @@ test_that("cytoviewer: plot input 11 testing works", {
   })
 
 })  
+
+test_that("cytoviewer: plot input 12 testing works", {
+
+  # Load datasets 
+  library(cytomapper)
+  data("pancreasMasks")
+  data("pancreasSCE")
+
+  testServer(app = cytoviewer(mask = pancreasMasks, object = pancreasSCE, img_id = "ImageNb", cell_id = "CellNb"), {
+
+    session$setInputs(sample = "E34_mask", 
+                      show_legend = FALSE, 
+                      show_title = FALSE,
+                      gaussian_blur = FALSE, 
+                      scalebar = 20,
+                      interpolate = TRUE,
+                      plotcells = TRUE,
+                      color_by = "",
+                      resolution = 1
+    )
+
+    image <- NULL
+    mask <- pancreasMasks[1]
+    object <- NULL
+    img_id <- "ImageNb"
+
+    # Plot cells output (Masks but no images and object)
+    expect_silent(.create_cells(input, object, mask, image, img_id, cell_id))
+
+  })
+})