谁能帮我解释一下这段代码啊？r nlp
entities <- function(doc, kind) {
s <- doc$content
a <- annotations(doc)[[1]]
if(hasArg(kind)) {
k <- sapply(a$features, `[[`, "kind")
s[a[k == kind]]
} else {
s[a[a$type == "entity"]]
}}
qq_Desperado_19
2018-10-16
1 回答
举报
0/150
提交
取消
