Adjust filter debate titles code

[stephbuon]

To make use of data.table instead of dplyr:

df1 <- df1[grammatical_collocates %like% paste0("\\b", input$custom_search, "\\b|^", input$custom_search, "\\b|\\b", input$custom_search, "$")]