我有一个数据库，我正在从中阅读一个React表。我希望当数据库中的数据更改时，该表更新其值。我目前正在使用此功能，但不满意。请帮助

restock <- reactive({
    invalidateLater(2000,session)
    db <- dbConnect(SQLite(), dbname="db.sqlite")
    
    data1 <- dbReadTable(db, "restock_df")
  
    data2 <- data1 %>% select(-row_id, -brand, -location , -comment,-date)%>%
      group_by( product) %>% 
      summarise_all(sum)
    
    data2
    
  })