Question

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

我的代码的最后部分在“ DocumentText”中搜索字符串，并将其添加到新列中。我想在添加新列之后删除'DocumentText'列，因为它非常大，我尝试使用select（myData，-DocumentText），但这没有用。我也尝试使用myData（[-2]，）bu这也失败了；任何建议都很好

Answer 1

或者，您是否尝试过

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

使用renderTable时删除一列

1 个答案: