課程

/云計算&大數(shù)據(jù)

/大數(shù)據(jù)

/R語言基礎(chǔ)

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"]]
??}}