r - qdap を使用したレビュー コメントの感情分析が遅い

Question

qdapパッケージを使用して、特定のアプリケーションの各レビュー コメントのセンチメントを判断しています。CSV ファイルからレビュー コメントを読み取り、qdap の極性関数に渡します。すべてが正常に機能し、すべてのレビュー コメントの極性を取得できますが、問題は、すべての文の極性を計算するのに 7 ～ 8 秒かかることです (CSV ファイルに存在する文の総数は 779 です)。以下にコードを貼り付けます。

  temp_csv <- filePath()
  attach(temp_csv)
  text_data <- temp_csv[,c('Content')]
  print(Sys.time())
  polterms <- list(neg=c('wtf'))
  POLKEY <- sentiment_frame(positives=c(positive.words),negatives=c(polterms[[1]],negative.words))     
  polarity <- polarity(sentences, polarity.frame = POLKEY) 
  print(Sys.time())

所要時間は次のとおりです。

[1] 「2016-04-12 16:43:01 IST」

[1] 「2016-04-12 16:43:09 IST」

私が何か間違ったことをしている場合、誰かが私に知らせることができますか? どうすればパフォーマンスを向上させることができますか?