Update a tibble and a dropdown when a button is clicked; update the tibble when choices are made in the dropdown

Question

I\'ve created the Shiny app below:

library(shiny)
library(shinyWidgets)
library(tidyverse)

tbl1 <- tibble(obs = as_factor(letters[1:3]), val = -1:1)
tbl2