我在我的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控制台中显示我的查询结果?
在这里,您需要将服务器的输出传递给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)
Sumanta的答案是正确的,但请记住关闭与数据库的连接。
df <- dbGetQuery(con,my_query)
on.exit(RJDBC::dbDisconnect(con))
检查您可以使用的格式
str(df) # as some people have mentioned above
# or
glimpse(df)