Невозможно получить данные в моем блестящем приложении из Postgres SQL после публикации на сервере shinyapps.io - PullRequest
Новая
       19

Невозможно получить данные в моем блестящем приложении из Postgres SQL после публикации на сервере shinyapps.io

0 голосов
/ 20 мая 2019

Мое блестящее приложение отлично работает на моем локальном компьютере и может извлекать данные из Postrges SQL и отображать их в таблице результатов, но как только я опубликую их на сервере shinyapps.io, данные будут потеряны. Ниже приведен код.Кто-нибудь может подсказать мне, что не так с кодом. 

library(dbplyr)
library(RPostgres)
library(DBI)
library(dplyr)
library(shiny)
library(shinydashboard)
library(lubridate)
library(rsconnect)
library(DT)
library(pool)


pool <- dbPool(

drv = Postgres(),

dbname = "xyz",
host = "a.b.c.com",
port = "5432",
user = "xxxx",
sslmode = "require",
password = "xxxxx"
)

header <- dashboardHeader(
title = 'TEST'
)

sidebar <- dashboardSidebar()

body <- dashboardBody(

div(style ="font-family: sans-serif",
  boxPlus(DT::DTOutput("table_1"),
          id = 'body_box',
          width = 'auto', status = "success",
          label_status = "danger"))

  )

   # Put them together into a dashboardPage
   ui <- dashboardPage(header,sidebar,body, skin = "black")

   server <- function(input,output,session){



  deal_hdr <- pool %>% tbl(in_schema('canada', 'deal_done')) %>%
   select(a, b, c, d) %>%
  head(10000)

 data_react <- data.frame(deal_hdr) 

  output$table_1 <- DT::renderDT(datatable(data_react,
                                       extensions = 
                          c('FixedColumns','KeyTable'), 
                                       rownames = FALSE,
                                       options = list(scrollX = TRUE,
                                                      scrollY = TRUE,
                                                      fixedColumns = 
TRUE,
                                                      keys = TRUE)))
 }

 shinyApp(ui,server)

Ниже приведена ошибка, с которой я столкнулся при публикации приложения: 

   Error in value[[3L]](cond) : could not translate host name "a.b.c.com" to 
   address: Name or service not known Calls: local ... tryCatch -> 
   tryCatchList -> tryCatchOne -> <Anonymous> Execution halted

Любая помощь будет принята с благодарностью. Спасибо!

...