bump version, update NEWS

tsjzz · Jul 8, 2021 · 5ea5979 · 5ea5979
1 parent b3b5f6f
commit 5ea5979
Show file tree

Hide file tree

Showing 3 changed files with 8 additions and 7 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,5 +1,5 @@
 Package: Seurat
-Version: 4.0.3.9001
+Version: 4.0.3.9002
 Date: 2021-07-08
 Title: Tools for Single Cell Genomics
 Description: A toolkit for quality control, analysis, and exploration of single cell RNA sequencing data. 'Seurat' aims to enable users to identify and interpret sources of heterogeneity from single cell transcriptomic measurements, and to integrate diverse types of single cell data. See Satija R, Farrell J, Gennert D, et al (2015) <doi:10.1038/nbt.3192>, Macosko E, Basu A, Satija R, et al (2015) <doi:10.1016/j.cell.2015.05.002>, Stuart T, Butler A, et al (2019) <doi:10.1016/j.cell.2019.05.031>, and Hao, Hao, et al (2020) <doi:10.1101/2020.10.12.335331> for more details.

diff --git a/NEWS.md b/NEWS.md
@@ -4,6 +4,7 @@
 
 ## Changes
 - Warn and continue rather than erroring if not all features are available in `FindSpatiallyVariableFeatures()` ([#4611](https://github.com/satijalab/seurat/issues/4611))
+- Bug fix for SCT-based integration in selecting proper reference model ([4355](https://github.com/satijalab/seurat/issues/4355))
 
 ## Seurat 4.0.3 (2020-06-10)
 ## Added

diff --git a/R/integration.R b/R/integration.R
@@ -190,12 +190,12 @@ FindIntegrationAnchors <- function(
     assay <- sapply(X = object.list, FUN = DefaultAssay)
   }
   # check tool
- object.list <- lapply(X = object.list, 
-                        FUN = function (obj) {
-                          obj@tools$Integration <- NULL
-                          return(obj)
-                        }
-                       )
+ object.list <- lapply(
+   X = object.list,
+   FUN = function (obj) {
+      slot(object = obj, name = "tools")$Integration <- NULL
+      return(obj)
+  })
   object.list <- CheckDuplicateCellNames(object.list = object.list)
   slot <- "data"
   if (reduction == "lsi") {