r闪亮的打印查询结果在控制台中

问题描述 投票:1回答:2

我在我的R闪亮应用程序中提取查询结果。我想在创建函数之前能够看到结果的格式,以便为我的应用程序做我需要的工作。这是我的R闪亮应用程序的基本设置

#libraries
 library(DBI)
 library(rJava)
 library(RJDBC)

#the driver is a JDBC if that helps
con <- dbConnect(drv, url "some url")
my_query = "select * from my_table"
print(my_query)
server <- function(input, output, session){
}
ui=shinyUI(fluidPage(
))
shinyApp(ui = ui, server = server)

这只是给了我

[1] "select * from my_table"

在RStudio的控制台中

如何在我的闪亮应用程序的R studio控制台中显示我的查询结果?

r shiny
2个回答
0
投票

在这里,您需要将服务器的输出传递给ui。在服务器中,您应该具有将从查询中获取数据的代码。之后,输出传递给ui。

请尝试以下格式的代码。这只是一个指示性的例子。请使用原始参数更新此代码。

 library(DBI)
 library(rJava)
 library(RJDBC)

 server <- function(input, output, session){
      con <- dbConnect(drv, url "some url")

      output$table1 <- renderTable({
             my_query = "select * from my_table"
             dbGetQuery(con,my_query)
       })
 }

  ui=shinyUI(fluidPage(
     tableOutput("table1")
  ))

  shinyApp(ui = ui, server = server)

0
投票

Sumanta的答案是正确的,但请记住关闭与数据库的连接。

df <- dbGetQuery(con,my_query)
on.exit(RJDBC::dbDisconnect(con))

检查您可以使用的格式

str(df) # as some people have mentioned above
# or 
glimpse(df)
© www.soinside.com 2019 - 2024. All rights reserved.