lapply与BioMart使用新问题求助

嘿，之前我咨询过关于lapply的问题，现在换了新方法处理基因数据，结果又碰到了搞不定的新问题，麻烦帮我看看！以下是出问题的相关代码：

# 加载biomaRt包
library(biomaRt)
# 创建人类mart对象
ensembl_hsapiens <- useMart("ensembl", dataset = "hsapiens_gene_ensembl")
# 提取人类蛋白编码基因
hsapien_PC_genes <- getBM(attributes = c("ensembl_gene_id", "external_gene_name"), filters = "biotype", values = "protein_coding", mart = ensembl_hsapiens)
ensembl_gene_ID <- ... # 这里是未完成/出问题的代码部分

内容的提问来源于stack exchange，提问作者Jack Dean