Блог

Я создал панель мониторинга с помощью R-shiny. Пользователь введет слово, оно передается команде KWIC, а выходные данные отображаются в виде таблиц на главной панели.

Если слово существует, оно покажет таблицу, если нет, оно выдаст соответствующую ошибку, как определено в блоке проверки. Но когда я передаю слово «abcdef», оно выдает ошибку: объект ‘docname’ не найден. я не знаю, что неправильно я здесь делаю.

 table1 <- eventReactive((input$submit_kwic),
subset(kwic(corpus1, pattern = c(input$word1), case_insensitive = TRUE, window = 20), select = c(docname, pre, keyword, post)))
  

 output$tab1 <- renderTable({

    if (input$submit_kwic== 0){return()}      
    else{
      isolate({
        validate(
          need(input$word1 !='',"No table output shown as word 1 is not supplied"),
          need(sum(grepl(input$word1, x = attr(tokens_wo_stp, "types"))) >= 1,"Word does not exist in vocabulary, try another word!")
        )
        table1()
      })
    }}, striped = TRUE, hover = TRUE, bordered = TRUE)
  

Я не смог воспроизвести вашу ошибку. Я полагаю, что ошибка: объект ‘docname’ не найден указывает на то, что subset() не использует нестандартную оценку (по какой-то причине) и ищет объект с именем docname вместо того, чтобы распознать, что вам нужен столбец с именем docname. Чтобы перестраховаться, я бы привел имена столбцов в кавычки.

Другая проблема, с которой я столкнулся, заключается в том, что quanteda я думаю, что он пытается использовать свой собственный метод подмножества. Вы можете использовать метод подмножества для data.frame объектов, сначала преобразовав объект kwic. Объекты kwic, насколько я знаю, обычные data.frame , за исключением дополнительного класса «kwic». Заключая kwic() в as.data.frame() , вы заставляете R использовать data.frame метод подмножества, который делает то, что вы хотите.

Вот возможное решение, включающее воспроизводимые данные (вы всегда должны включать воспроизводимые данные в свои вопросы, поскольку это облегчает их ответ и понимание).

 library(quanteda)

corpus1 <- corpus(c("I have created a dashboard using R-shiny. User will enter a word , it gets passed to KWIC command and output is displayed as tables in the main panel."))

input <- data.frame(word1 = "dashboard",
                    stringsAsFactors = FALSE)

subset(as.data.frame(kwic(corpus1, pattern = c(input$word1), 
                          case_insensitive = TRUE, 
                          window = 20)), 
       select = c("docname", "pre", "keyword", "post"))
  

Я не проверял остальную часть вашего кода, поскольку subset строка, похоже, является источником вашей проблемы. Но трудно сказать, поскольку без полного блестящего кода я не могу воспроизвести ваше приложение.

Проблема в том, что вы удалили столбцы из объекта kwic с помощью вызова subset(x, select = ...) , а затем в renderTable() вызове строка table1() возвращает подмножество kwic объекта, который вызывает kwic.print() . Этот метод предполагает, что определенные столбцы присутствуют, например docname , но их нет, потому что вы удалили их с помощью поднабора столбцов ( subset() вызов).

Это должно исправить: замените строку

         table1()
  

с

         print.data.frame(table1())
  

Я отправил проблему для этого наhttps://github.com/quanteda/quanteda/issues/1665 и, надеюсь, мы скоро это исправим, так что этот обходной путь не нужен. (Но это обходное решение всегда должно работать.)