In paithiov909/conifer: An R Client of COTOHA API for Developers

knitr::opts_chunk$set(
  tidy = "styler",
  collapse = TRUE,
  comment = "#>"
)
require(magrittr)
require(conifer)

Usage of COTOHA API client

Getting ready to use client

First of all, you should set COTOHA_ID and COTOHA_SECRET as environment vars. Run Sys.setenv(COTOHA_ID = "Your Client ID") and Sys.setenv(COTOHA_SECRET = "Your Client secret"), then try snippets below.

# Never forget to set `Access Token Publish URL`
PUB_URL <- Sys.getenv("PUB_URL")
my_token <- conifer::getAccessToken(PUB_URL)
client <- conifer::cotoha(my_token)

data(yamanashi)

Parsing dependency structure

res <- client$parse(yamanashi[13])
conifer::pretty_chunks(res)

Named entity extraction

print(yamanashi[68])
client$ne(yamanashi[68])

Reference resolution

res <- client$coreference("太郎は友人です。彼は焼き肉を食べた。")
res$coreference

Keyword extraction

print(yamanashi[57])
res <- client$keyword(yamanashi[57])
res

Calculating similality between sentences

print(c(yamanashi[11], yamanashi[12]))
client$similarity(yamanashi[11], yamanashi[12])

Linguistic modality detection

print(c(yamanashi[12], yamanashi[13]))
client$sentence_type(yamanashi[12])
client$sentence_type(yamanashi[13])

Speaker's characteristics recognition

print(c(yamanashi[29], yamanashi[40]))
client$user_attribute(yamanashi[29])
client$user_attribute(yamanashi[40])

Removing fillers of sentence

client$remove_filler("えーーっと、あの、今日の打ち合わせでしたっけ。すみません、ちょっと、急用が入ってしまって。")

Detecting misrecognition of sentence

client$detect_misrecognition("温泉認識は誤りを起こす")

Sentiment analysis

print(c(yamanashi[49], yamanashi[50]))
client$sentiment(yamanashi[49])
client$sentiment(yamanashi[50])

paithiov909/conifer documentation built on Nov. 17, 2021, 11:01 a.m.