Load the libraries

print("Hello World")
[1] "Hello World"

Notice that “first-trimester-decidua-human-placenta-10XV2.loom” is already analyzed, and we already created the Seurat Object.

loom_obj1 <- Connect(filename = "first-trimester-decidua-human-placenta-10XV2.loom",
                    mode = 'r')

seurat_loom1 <- as.Seurat(loom_obj1)
saveRDS(seurat_loom, "seuratObj.rds")
dim(sSeurat1)
Error: object 'sSeurat1' not found

Continue for the other 3 loom files

seurat_loom2 <- as.Seurat(loom_obj2)
Reading in /matrix
Error in h(simpleError(msg, call)) : 
  error in evaluating the argument 'x' in selecting a method for function 't': cannot allocate vector of size 68.3 Gb
seurat_loom2 <- LoadLoom("4584e785-dc1d-4f31-99ca-76626fe7e2bf.loom",
                        
saveRDS(seurat_loom2, "seuratObj2.rds")
sSeurat2 <- readRDS("seuratObj2.rds")
cannot open compressed file 'seuratObj2.rds', probable reason 'No such file or directory'Error in gzfile(file, "rb") : cannot open the connection

Keep going for the third loom file

seurat_loom3 <- as.Seurat(loom_obj3)
Reading in /matrix
Error in h(simpleError(msg, call)) : 
  error in evaluating the argument 'x' in selecting a method for function 't': cannot allocate vector of size 170.9 Gb
sSeurat3 <- readRDS("seuratObj3.rds")
dim(sSeurat3)

Finally, the last loom file

loom_obj4 <- Connect(filename = "c0d33f68-1573-45d2-9295-7f93f9a086b0.loom",
                    mode = 'r')

seurat_loom4 <- as.Seurat(loom_obj4)
Reading in /matrix
Error in h(simpleError(msg, call)) : 
  error in evaluating the argument 'x' in selecting a method for function 't': cannot allocate vector of size 198.4 Gb
sSeurat4 <- readRDS("seuratObj4.rds")
dim(sSeurat4)
LS0tCnRpdGxlOiAiUiBOb3RlYm9vayIKb3V0cHV0OiBodG1sX25vdGVib29rCi0tLQpMb2FkIHRoZSBsaWJyYXJpZXMKYGBge3J9CiMgTG9hZCB0aGUgbGlicmFyaWVzCmxpYnJhcnkoU2luZ2xlQ2VsbEV4cGVyaW1lbnQpCmxpYnJhcnkoU2V1cmF0KQpyZW1vdGVzOjppbnN0YWxsX2dpdGh1YigibW9qYXZlYXp1cmUvc2V1cmF0LWRpc2siKQpsaWJyYXJ5KFNldXJhdERpc2spCmxpYnJhcnkodGlkeXZlcnNlKQpsaWJyYXJ5KFJDb2xvckJyZXdlcikKbGlicmFyeShzY0RibEZpbmRlcikKbGlicmFyeShjb3dwbG90KQpgYGAKCk5vdGljZSB0aGF0ICJmaXJzdC10cmltZXN0ZXItZGVjaWR1YS1odW1hbi1wbGFjZW50YS0xMFhWMi5sb29tIiBpcyBhbHJlYWR5IGFuYWx5emVkLCBhbmQgd2UgYWxyZWFkeSBjcmVhdGVkIHRoZSBTZXVyYXQgT2JqZWN0LgpgYGB7ciBldmFsID0gRkFMU0V9Cmxvb21fb2JqMSA8LSBDb25uZWN0KGZpbGVuYW1lID0gImZpcnN0LXRyaW1lc3Rlci1kZWNpZHVhLWh1bWFuLXBsYWNlbnRhLTEwWFYyLmxvb20iLAogICAgICAgICAgICAgICAgICAgIG1vZGUgPSAncicpCgpzZXVyYXRfbG9vbTEgPC0gYXMuU2V1cmF0KGxvb21fb2JqMSkKc2F2ZVJEUyhzZXVyYXRfbG9vbSwgInNldXJhdE9iai5yZHMiKQpgYGAKCmBgYHtyfQpzU2V1cmF0MSA8LSByZWFkUkRTKCJzZXVyYXRPYmoucmRzIikKZGltKHNTZXVyYXQxKQpgYGAKCkNvbnRpbnVlIGZvciB0aGUgb3RoZXIgMyBsb29tIGZpbGVzCmBgYHtyfQpsb29tX29iajIgPC0gQ29ubmVjdChmaWxlbmFtZSA9ICI0NTg0ZTc4NS1kYzFkLTRmMzEtOTljYS03NjYyNmZlN2UyYmYubG9vbSIsCiAgICAgICAgICAgICAgICAgICAgbW9kZSA9ICdyJykKc2V1cmF0X2xvb20yIDwtIGFzLlNldXJhdChsb29tX29iajIpCnNhdmVSRFMoc2V1cmF0X2xvb20yLCAic2V1cmF0T2JqMi5yZHMiKQpgYGAKCmBgYHtyIGV2YWwgPSBGQUxTRX0Kc2V1cmF0X2xvb20yIDwtIExvYWRMb29tKCI0NTg0ZTc4NS1kYzFkLTRmMzEtOTljYS03NjYyNmZlN2UyYmYubG9vbSIsCiAgICAgICAgICAgICAgICAgICAgICAgIApzYXZlUkRTKHNldXJhdF9sb29tMiwgInNldXJhdE9iajIucmRzIikKCmBgYAoKYGBge3J9CnNTZXVyYXQyIDwtIHJlYWRSRFMoInNldXJhdE9iajIucmRzIikKZGltKHNTZXVyYXQyKQpgYGAKCktlZXAgZ29pbmcgZm9yIHRoZSB0aGlyZCBsb29tIGZpbGUKYGBge3J9Cmxvb21fb2JqMyA8LSBDb25uZWN0KGZpbGVuYW1lID0gIjkyYWMzZGQ0LWI1MDAtNDUxYS04NTVmLTA5MDhjZjY2N2FmMi5sb29tIiwKICAgICAgICAgICAgICAgICAgICBtb2RlID0gJ3InKQoKc2V1cmF0X2xvb20zIDwtIGFzLlNldXJhdChsb29tX29iajMpCnNhdmVSRFMoc2V1cmF0X2xvb20zLCAic2V1cmF0T2JqMy5yZHMiKQpgYGAKCmBgYHtyfQpzU2V1cmF0MyA8LSByZWFkUkRTKCJzZXVyYXRPYmozLnJkcyIpCmRpbShzU2V1cmF0MykKYGBgCgpGaW5hbGx5LCB0aGUgbGFzdCBsb29tIGZpbGUKYGBge3J9Cmxvb21fb2JqNCA8LSBDb25uZWN0KGZpbGVuYW1lID0gImMwZDMzZjY4LTE1NzMtNDVkMi05Mjk1LTdmOTNmOWEwODZiMC5sb29tIiwKICAgICAgICAgICAgICAgICAgICBtb2RlID0gJ3InKQoKc2V1cmF0X2xvb200IDwtIGFzLlNldXJhdChsb29tX29iajQpCnNhdmVSRFMoc2V1cmF0X2xvb200LCAic2V1cmF0T2JqNC5yZHMiKQpgYGAKCmBgYHtyfQpzU2V1cmF0NCA8LSByZWFkUkRTKCJzZXVyYXRPYmo0LnJkcyIpCmRpbShzU2V1cmF0NCkKYGBg