使用“可渲染”时删除列 output$Table%mutate（searchmatch

或者，您尝试过吗

output$Table <- 
    renderTable(
      myData()%>%mutate(searchmatch<-str_extract(DocumentText,"([^\\s]+\\s){50}to treat(\\s[^\\s]+){50}"))
     )

输出$Table%
将（searchmatch=str_extract（DocumentText），（[^\\s]+\\s）{50}变为
治疗（\\s[^\\s]+）{50}”）%>%
选择（-DocumentText）
)

什么对象是myData？它是一个函数吗？如果它是一个数据框，那么

myData[-2]

或

myData[，-2]

myData是一个数据框请添加一个可复制的示例，以便您更容易从其他人那里获得帮助。

output$Table <- 
    renderTable(
      myData() %>% 
      mutate(searchmatch = str_extract(DocumentText,"([^\\s]+\\s){50}to 
      treat(\\s[^\\s]+){50}")) %>% 
      select(-DocumentText)
     )