alexyermanos / Platypus

R package for the analysis of single-cell immune repertoires
GNU General Public License v3.0
40 stars 16 forks source link

Error in assign(mname, def, where) : cannot add bindings to a locked environment #49

Open mahlaranjeet opened 1 year ago

mahlaranjeet commented 1 year ago

Error in assign(mname, def, where) : cannot add bindings to a locked environment

I am getting same errir for my own data as well as for the vignette https://alexyermanos.github.io/Platypus/articles/AntibodyForests.html

AntibodyForests(VGM[[1]], network.algorithm = 'tree', specific.networks = 'clonotype11') %>% AntibodyForests_plot(node.label = NULL, node.scale.factor = 8)

Error in assign(mname, def, where) : cannot add bindings to a locked environment 6. assign(mname, def, where) 5. assignClassDef(Class, classDef, where) 4. methods::setClass("AntibodyForests", slots = c(tree = "ANY", sample_id = "ANY", clonotype_id = "ANY", plot_ready = "ANY", heterogeneous = "ANY", reactivity = "ANY", dynamic = "ANY", metrics = "ANY", sequences = "ANY", germline_sequence = "ANY", ... 3. AntibodyForests(VGM[[1]], network.algorithm = "tree", specific.networks = "clonotype11") 2. AntibodyForests_plot(., node.label = NULL, node.scale.factor = 8) 1. AntibodyForests(VGM[[1]], network.algorithm = "tree", specific.networks = "clonotype11") %>% AntibodyForests_plot(node.label = NULL, node.scale.factor = 8)

alexyermanos commented 1 year ago

hello can you try sourcing/running the AntibodyForests_class from the following github? this function wasnt in the cran version at the time - sorry about that https://github.com/alexyermanos/Platypus/blob/master/R/AntibodyForests_class.R

mahlaranjeet commented 1 year ago

thank you for this but now I am not able to have the access to test dataset library(Platypus) library(tidyverse)

Fetch only sample 1

PlatypusDB_fetch(PlatypusDB.links = c("agrafiotis2021a/TNFR2.BM.3m.S1/ALL"), load.to.enviroment = T, combine.objects = T)

VGM <- VDJ_GEX_matrix(Data.in = list(agrafiotis2021a_TNFR2.BM.3m.S1_VDJGEXdata), parallel.processing = "parlapply", trim.and.align = T)

saveRDS(VGM, file = "VGM.rds")

VGM <- readRDS("VGM.rds")