Searching in shiny/gesture