Skip to content

Commit

Permalink
fix python conversion
Browse files Browse the repository at this point in the history
  • Loading branch information
samuel-marsh committed Sep 27, 2024
1 parent d6f1dec commit 2c96508
Showing 1 changed file with 18 additions and 13 deletions.
31 changes: 18 additions & 13 deletions R/Object_Conversion.R
Original file line number Diff line number Diff line change
Expand Up @@ -1084,19 +1084,24 @@ as.anndata.Seurat <- function(
meta_data <- drop_single_value_cols(df = meta_data)

# Variable Features
if (length(x = VariableFeatures(object = x, assay = assay)) == 0) {
seurat_var_info <- NULL
} else {
if (isTRUE(x = Assay5_Check(seurat_object = x, assay = assay))) {
seurat_var_info <- drop_single_value_cols(df = x[[assay]]@meta.data)
} else {
if (dim(x = x[[assay]]@meta.features)[2] == 0) {
seurat_var_info <- NULL
} else {
seurat_var_info <- drop_single_value_cols(df = x[[assay]]@meta.features)
}
}
}
# if (length(x = VariableFeatures(object = x, assay = assay)) == 0) {
# seurat_var_info <- NULL
# } else {
# if (isTRUE(x = Assay5_Check(seurat_object = x, assay = assay))) {
# seurat_var_info <- drop_single_value_cols(df = x[[assay]]@meta.data)
# } else {
# if (dim(x = x[[assay]]@meta.features)[2] == 0) {
# seurat_var_info <- NULL
# } else {
# seurat_var_info <- drop_single_value_cols(df = x[[assay]]@meta.features)
# }
# }
# }

# Add feature names
seurat_var_info <- data.frame("features" = Features(x = x))



# DimReducs
if (isTRUE(x = transer_dimreduc)) {
Expand Down

0 comments on commit 2c96508

Please sign in to comment.