R 闪亮的应用程序正在显示上次检索到的mysql数据

下面是我连接到远程mysql数据库的闪亮代码。我第一次得到正确的结果，然后当我在mysql数据库中有新行时，即使我在不同的浏览器中运行，仍然会显示旧数据

#加载库

library(stringr)
library(twitteR)
library(plyr)
library(ROAuth)
library(base64enc)
library(shiny)
require(RJSONIO)
library(RMySQL) # will load DBI as well

options(shiny.sanitize.errors = FALSE)

lapply( dbListConnections( dbDriver( drv = "MySQL")), dbDisconnect)

con <- dbConnect(dbDriver("MySQL"), user = "user_name", password = "passowrd", dbname = "db_name", host="remotehost.org")

on.exit(dbDisconnect(con))

库（stringr）
图书馆（推特）
图书馆（plyr）
图书馆（ROAuth）
图书馆（base64enc）
图书馆（闪亮）
要求（RJSONIO）
库（RMySQL）#也将加载DBI
选项（shinny.sanitize.errors=FALSE）
lappy（dbListConnections（dbDriver（drv=“MySQL”）），dbDisconnect）
con我认为您需要将查询放在服务器函数中，否则它只能在应用程序初始化时运行。您还可以添加一个actionButton

ui <- fluidPage(
    actionButton("action","Action Button"),
    textOutput(outputId="jsonoutput")
)

server <- function(input, output) { 
  test <- eventReactive(input$action,{ dbGetQuery(con, paste("SELECT * FROM tablename WHERE  
                                           columnname = '","'"))  
  })  
  output$jsonoutput <- renderText({
            toJSON(list(NLP =  test()))
            }) 
}

ui我认为您需要将查询放在服务器函数中，否则它只能在应用程序初始化时运行。您还可以添加一个actionButton

ui <- fluidPage(
    actionButton("action","Action Button"),
    textOutput(outputId="jsonoutput")
)

server <- function(input, output) { 
  test <- eventReactive(input$action,{ dbGetQuery(con, paste("SELECT * FROM tablename WHERE  
                                           columnname = '","'"))  
  })  
  output$jsonoutput <- renderText({
            toJSON(list(NLP =  test()))
            }) 
}

ui
ui <- fluidPage(
    actionButton("action","Action Button"),
    textOutput(outputId="jsonoutput")
)

server <- function(input, output) { 
  test <- eventReactive(input$action,{ dbGetQuery(con, paste("SELECT * FROM tablename WHERE  
                                           columnname = '","'"))  
  })  
  output$jsonoutput <- renderText({
            toJSON(list(NLP =  test()))
            }) 
}