> library(SingleR)
> hpca.se <- HumanPrimaryCellAtlasData()
Error in value[[3L]](cond) : failed to connect
  reason: Timeout was reached: [bioconductor.org] Operation timed out after 10000 milliseconds with 0 out of 0 bytes received
  Consider rerunning with 'localHub=TRUE'
In addition: Warning message:
'HumanPrimaryCellAtlasData' is deprecated.
Use 'celldex::HumanPrimaryCellAtlasData' instead.
See help("Deprecated") 

说明网络不好。等会再试,成功

> library(SingleR)
> hpca.se <- HumanPrimaryCellAtlasData()
snapshotDate(): 2020-10-27
see ?celldex and browseVignettes('celldex') for documentation
loading from cache
see ?celldex and browseVignettes('celldex') for documentation
loading from cache
Warning message:
'HumanPrimaryCellAtlasData' is deprecated.
Use 'celldex::HumanPrimaryCellAtlasData' instead.
See help("Deprecated")