Bump version and add new panel checks

Author: RiboRings

DESCRIPTION

@@ -1,5 +1,5 @@
 Package: iSEEtree
-Version: 1.2.0
+Version: 1.1.3
 Authors@R: 
     c(person(given = "Giulio", family = "Benedetti", role = c("aut", "cre"),
            email = "giulio.benedetti@utu.fi",
@@ -44,7 +44,6 @@ Suggests:
     biomformat,
     BiocStyle,
     knitr,
-    MGnifyR,
     RefManageR,
     remotes,
     rmarkdown,

NAMESPACE

@@ -32,6 +32,7 @@ importFrom(SummarizedExperiment,assayNames)
 importFrom(SummarizedExperiment,colData)
 importFrom(SummarizedExperiment,rowData)
 importFrom(TreeSummarizedExperiment,TreeSummarizedExperiment)
+importFrom(TreeSummarizedExperiment,colLinks)
 importFrom(TreeSummarizedExperiment,colTree)
 importFrom(TreeSummarizedExperiment,rowLinks)
 importFrom(TreeSummarizedExperiment,rowTree)

NEWS

@@ -13,8 +13,6 @@ Changes in version 0.99.X
 Changes in version 1.1.X
 * Updated .multiSelectionResponsive
 * Conformed to iSEE v2.19.2
-
-Changes in version 1.2.X
 * Created TreePlot family
 * Added typical tree operations
 * Created GraphPlot family

R/iSEE-default.R

@@ -52,7 +52,9 @@ setGeneric("iSEE", iSEE::iSEE)
 #' @importFrom iSEE createLandingPage ExperimentColorMap ReducedDimensionPlot
 #'   ComplexHeatmapPlot RowDataTable ColumnDataTable
 #' @importFrom TreeSummarizedExperiment TreeSummarizedExperiment rowLinks
+#'   colLinks
 #' @importFrom SingleCellExperiment reducedDims
+#' @importFrom S4Vectors metadata
 #' @importFrom SummarizedExperiment rowData colData
 #' @importFrom mia taxonomyRanks
 setMethod("iSEE", "TreeSummarizedExperiment",
@@ -65,8 +67,14 @@ setMethod("iSEE", "TreeSummarizedExperiment",
     initial <- .check_panel(se, initial, "RowDataTable", rowData)
     initial <- .check_panel(se, initial, "ColumnDataTable", colData)
     initial <- .check_panel(se, initial, "RowTreePlot", rowLinks)
+    initial <- .check_panel(se, initial, "ColumnTreePlot", colLinks)
     initial <- .check_panel(se, initial, "AbundancePlot", taxonomyRanks)
     initial <- .check_panel(se, initial, "ReducedDimensionPlot", reducedDims)
+    initial <- .check_panel(se, initial, "LoadingPlot", reducedDims)
+    initial <- .check_panel(se, initial, "ScreePlot", reducedDims)
+    initial <- .check_panel(se, initial, "RDAPlot", reducedDims)
+    initial <- .check_panel(se, initial, "RowGraphPlot", metadata)
+    initial <- .check_panel(se, initial, "ColumnGraphPlot", metadata)
 
     iSEE::iSEE(se, initial = initial, extra = initial, colormap = colormap,
         landingPage = landingPage, tour = tour, appTitle = appTitle,