在 r 中使用 sentimentr 和 shiny 在 flexdashboard 上突出显示的文本会引发错误 "attempt to apply non-function"

Question

我正在设计一个 R FlexDashboard，我在其中使用以下代码上传 CSV 数据：

# "File Upload" button
fileInput("file1", "Load CSV/TSV File:",
          accept = c("text/csv", "text/comma-separated-values, text/plain", 
          ".csv", "text/tab-separated-values", ".tsv") )
# whether 1st row is header?
checkboxInput("header", "Is first row the Header?", TRUE)

然后我使用反应式方法来选择数据集：

# reactive dataset
data_set <- reactive({
   req(input$file1)
   inFile <- input$file1
   data_set <- read.csv(inFile$datapath, header=input$header)
})

这是用于从数据集列中选择特定行的滑块输入 "Text":

# sidebar slider input
sliderInput("disp", "Select Text:", min = 1,  max = 100, value = 20)
actionButton("display","Highlight Sentiments")
hr()

HL1 <- eventReactive(input$display, { data_set()[input$disp, "Text"] })

最后，使用观察输入，我尝试使用 sentimentr 包根据情绪（负面或正面）突出显示所选文本：

observeEvent(input$display3, {
    output$HLRes <- renderUI({ 

      require(dplyr)
      require(sentiment)

      HL1() %>% 
        as.character() %>%
        sentiment_by() %>% highlight()
    })
})

当我想显示上面突出显示的文本时：

htmlOutput("HLRes")

我收到以下错误：

 Error: attempt to apply non-function

我做错了什么？

Answer 1

我今天遇到了同样的问题，发现了这个：

https://github.com/trinker/sentimentr/issues/110

按照建议，添加以下内容使其工作 (sentiment_by object <- sb)

attr(sb, "averaging.function") <- sentimentr::average_downweighted_zero

帮我修好了。

在 r 中使用 sentimentr 和 shiny 在 flexdashboard 上突出显示的文本会引发错误 "attempt to apply non-function"

Text highlighting using sentimentr and shiny on flexdashboard in r is throwing error "attempt to apply non-function"

r

shiny

flexdashboard

sentimentr