Adapt .multiSelectionResponsive to recent changes in iSEE

.github/workflows/R-CMD-check.yaml

@@ -52,9 +52,9 @@ jobs:
       fail-fast: false
       matrix:
         config:
-          - { os: ubuntu-latest, r: 'devel', bioc: '3.20', cont: "bioconductor/bioconductor_docker:devel", rspm: "https://packagemanager.rstudio.com/cran/__linux__/jammy/latest" }
-          - { os: macOS-latest, r: 'devel', bioc: '3.20'}
-          - { os: windows-latest, r: 'devel', bioc: '3.20'}
+          - { os: ubuntu-latest, r: 'devel', bioc: '3.21', cont: "bioconductor/bioconductor_docker:devel", rspm: "https://packagemanager.rstudio.com/cran/__linux__/jammy/latest" }
+          - { os: macOS-latest, r: 'devel', bioc: '3.21'}
+          - { os: windows-latest, r: 'devel', bioc: '3.21'}
           ## Check https://github.com/r-lib/actions/tree/master/examples
           ## for examples using the http-user-agent
     env:
@@ -191,7 +191,7 @@ jobs:
           gha_repos <- if(
               .Platform$OS.type == "unix" && Sys.info()["sysname"] != "Darwin"
           ) c(
-              "AnVIL" = "https://bioconductordocker.blob.core.windows.net/packages/3.20/bioc",
+              "AnVIL" = "https://bioconductordocker.blob.core.windows.net/packages/3.21/bioc",
               BiocManager::repositories()
               ) else BiocManager::repositories()
 

NAMESPACE

@@ -3,10 +3,12 @@
 export(SampleIdentificationCenter)
 exportClasses(SampleIdentificationCenter)
 exportMethods(.createObservers)
+exportMethods(.defineDataInterface)
 exportMethods(.defineOutput)
 exportMethods(.definePanelTour)
 exportMethods(.fullName)
 exportMethods(.generateOutput)
+exportMethods(.multiSelectionResponsive)
 exportMethods(.panelColor)
 exportMethods(.renderOutput)
 exportMethods(initialize)
@@ -19,10 +21,13 @@ importClassesFrom(iSEE,Panel)
 importFrom(iSEE,.emptyDefault)
 importFrom(methods,callNextMethod)
 importFrom(methods,new)
+importFrom(shiny,HTML)
 importFrom(shiny,nearPoints)
 importFrom(shiny,renderPlot)
 importFrom(shiny,renderUI)
+importFrom(shiny,span)
 importFrom(shiny,tagList)
+importFrom(shiny,textInput)
 importFrom(shiny,uiOutput)
 importFrom(shiny,wellPanel)
 importFrom(shinyAce,aceEditor)

R/panel_SampleIdentificationCenter.R

@@ -119,7 +119,7 @@ setMethod("initialize", "SampleIdentificationCenter", function(.Object, ...) {
 # TODO - placeholder
 
 #' @export
-#' @importFrom shiny tagList
+#' @importFrom shiny tagList textInput span HTML
 setMethod(".defineDataInterface", "SampleIdentificationCenter", function(x) {
   panel_name <- .getEncodedName(x)
 
@@ -246,11 +246,8 @@ setMethod(".renderOutput", "SampleIdentificationCenter", function(x, se, output,
 # Transmission -----------------------------------------------------------------
 
 #' @export
-setMethods(".multiSelectionResponsive", "SampleIdentificationCenter", function(x, dims = character(0)){
-  if ("column" %in% dims) {
-    return(TRUE)
-  }
-  return(FALSE)
+setMethod(".multiSelectionResponsive", "SampleIdentificationCenter", function(x, dim = character(0)) {
+    dim == "column"
 })
 
 # Tour definition --------------------------------------------------------------