pred.hesc <- SingleR(test = hESCs, ref = hpca.se, labels = hpca.se$label.main)
argument "sc_data" is missing, with no default