r блестящий результат запроса печати в консоли

Question

Я получаю результаты запроса в моем приложении Riny.Я хочу иметь возможность увидеть формат результатов, прежде чем создавать функции, чтобы делать то, что мне нужно для моего приложения.Это базовая настройка для моего приложения 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 для моего блестящего приложения?

Answer 1

Sumanta ответ правильный, однако не забудьте закрыть соединение с базой данных.

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

Для проверки формата вы можете использовать

str(df) # as some people have mentioned above
# or 
glimpse(df)

Answer 2

Здесь вам нужно передать вывод с сервера в интерфейс.На сервере у вас должен быть код, который будет извлекать данные из запроса.После этого вывод передается в пользовательский интерфейс.

Попробуйте свой код в следующем формате.Это только показательный пример.Пожалуйста, обновите этот код с вашими исходными параметрами.

 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)