Блестящий триггер обновления данных на приборной панели

Я импортирую некоторые данные из таблицы MySQL, но пока для проверки обновлений данных я просто перезаряжал приложение. Я бы хотел, чтобы это произошло динамически, но я не уверен, как реализовать функцию invalidateLater в моем коде, или если я даже поеду за ней, потому что я вижу людей, рекомендующих ReactivePoll. В основном я получаю данные в свою базу данных с 5 до 5 минут, и я хочу также проверить базу данных в определенном интервале и обновить номер, указанный в моей ячейке значений.

Спасибо!

     shinyServer(function(input, output, session) {

      conn <- dbConnect(RMySQL::MySQL(), 
                        dbname="db", 
                        host="localhost", 
                        user="root", 
                        password="password")

      table<- dbReadTable(conn = conn, name ='table1', value= as.data.frame(table))

      prd_number <- dbFetch(dbSendQuery(conn, "SELECT obj FROM table1 ORDER BY id DESC LIMIT 1"))


      output$prdnumber <- shinydashboard::renderValueBox({
        shinydashboard::valueBox(prd_number, "Number of products", icon=icon("tags"), color="purple"
        )
      })
   })

ОБНОВИТЬ

Я выполнил то, что хотел, но теперь у меня есть:

• Любопытство: необходимо ли определить новый реактивный пакет для каждого другого запроса? (например: функция reactivePoll для получения определенного поля из db и другая реактивная функция Poll для получения всей таблицы из db)
• ошибка: более точно непризнанный тип поля MySQL 7 в столбце 0, импортированный как символ. Я знаю, это связано с тем, что у меня есть временные метки в моем столе, но я не уверен, как с ними бороться. Я видел, что одним решением может быть преобразование его в временную метку UNIX, но я хочу напечатать дату на панели инструментов, чтобы это не было хорошим выбором.

server.R

  prd_number <- reactivePoll(20000, session, checkFunc = function(){  

  conn <- dbConnect(RMySQL::MySQL(), 
                    dbname="db", 
                    host="localhost", 
                    user="root", 
                    password="password")

  val1 <- dbGetQuery(conn, "SELECT obj FROM table ORDER BY id DESC LIMIT 1")

  val2 <- dbGetQuery(conn, "SELECT date FROM table ORDER BY id DESC LIMIT 1")

  output$prdnumber <- shinydashboard::renderValueBox({
    shinydashboard::valueBox(val1, "Number of items", icon=icon("tags"), color="purple"
    )
  })

  output$update <- shinydashboard::renderValueBox({
    shinydashboard::valueBox(val2, "Last update", icon=icon("tags"), color="lime"
    )
      })
 dbDisconnect(conn)
  })