Question

我正在构建一个带有用户文本输入的Shiny应用程序，将最后两个单词与三元组的数据框进行比较，以预测最有可能的下一个单词。在server.R下面，我试图ouptut的triPred函数的输出是一个单词。当我加载此应用时，我在应用中输入了一些文字后出现以下错误 - ＆＃39;参数1（类型＆＃39;封闭＆＃39;）无法由cat＆＃39; cat＆＃39; - 这似乎与server.R中的最后一行有关。因为这只是一个单词，我不清楚什么是失败的＆＃39; cat＆＃39;即连接。

server.R

library(stringr)

shinyServer(function(input, output) {

    triSplit <- function(input) {
            el <- unlist(str_split(input," "))
            bigram <- paste(el[length(el)-1],el[length(el)])
            return(bigram)
    }

    triPred <- function(input) {
            ## pulls out end words that match the input bigram
            temp_wf_T <- wf_T[wf_T$start == triSplit(input),]
            ##Picks one of the best options at random based on count
            ans <- sample(temp_wf_T$end[temp_wf_T$count == max(temp_wf_T$count)],1)
            return(ans) }

    ##Read in a dataframe of bigrams, their possible completions, and counts of occurence
    wf_T<-readRDS("C:/Users/LTM/DataScienceCertificateCapstone/ShinyTest/data/tdm.rds")
    ##Runs the triPred function to guess the next most likely word
    ans <- reactive(triPred(input$sent))
    ##generates an output variable to display
    output$out <- renderText({ans})
    })

ui.R

library(shiny)

shinyUI(fluidPage(
    titlePanel(h1("My Shiny App", align = "center")),
    sidebarLayout(
            sidebarPanel(helpText("Please enter a sentence you would like me to complete"),
            textInput("sent", label = "sentence")),
            ##########
            mainPanel(h1("Best Guess"),
            br(),
            textOutput("out")
            )
    )
))

Answer 1

很难分辨，因为我无法重现您的应用，但您应该尝试使用：

output$out <- renderText({ans()})或仅output$out <- renderText(ans())。

如果省略()，则会访问被动本身，而不是它的值。有点像为函数键入foo而不是foo()时。

闪亮的应用程序失败，＆＃34;参数1（类型＆＃39;封闭＆＃39;）无法由＆＃39; cat＆＃39;＆＃34; - 这是什么意思？

1 个答案: