Update rOpenSearchShinyDemo.R