library(dplyr) library(tidyverse) library(shiny) library(DT) my_ui <- fluidPage( selectizeInput(inputId = "region_select_input", la
