useful_r: update shiny