Мое блестящее приложение отлично работает на моем локальном компьютере и может извлекать данные из 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
Любая помощь будет принята с благодарностью. Спасибо!