KoNLP / 주어가 되는 명사 단어들 추출하기

문제: 다음 문장에서 주어절을 찾아 출력하시오.

"현재까지 라떼마트가 판매하고 있는 맛있는 흑마늘 양념 치킨이 논란이 되고 있다."

풀이:

options(java.parameters = "-Xmx2G")
library(KoNLP)
library(tidytext)
library(dplyr)
library(stringr)
pos <- SimplePos09("현재까지 라떼마트가 판매하고 있는 맛있는 흑마늘 양념 치킨이 논란이 되고 있다.")
result02=unlist(pos)
result02a=tibble(text=result02,word=names(result02))
#
result02b=result02a %>%
  mutate(tag=str_detect(text,'/N')) %>%
  mutate(tag2=str_detect(text,'\\+[이가은는]/J')) %>%
  mutate(n=row_number())
idx=(result02b %>% filter(tag&tag2&n>1))$n
cur=idx[1]
output=NULL
while(TRUE) {
  if(!result02b[cur,]$tag) break
  output=c(result02b[cur,]$word,output)
  cur=cur-1
}
paste(extractNoun(paste(output,collapse = ' ')),collapse=' ')

#결과

[1] "흑마늘 양념 치킨"