Как подключить локальный компьютер SQL Server в shinyapps.io - PullRequest
Новая
       7

Как подключить локальный компьютер SQL Server в shinyapps.io

0 голосов
/ 23 июня 2018

Я сделал пример блестящего приложения, которое подключается к SQL Server, запущенному на моем локальном хосте.Я создал бесплатную учетную запись в shinyapps.io, и когда я пытался развернуть ее, я получаю сообщение об ошибке «Не удалось загрузить с сервера» 

library(shiny)
library(shinydashboard)
library(RMySQL)
library(lubridate)
library(DBI)


con_iris <- DBI::dbConnect(
  drv = RMySQL::MySQL(),
  dbname = "iris_db",
  host = "localhost",
  username = "XXXX",
  password = "XXXXXX"
)



ui<-shinyUI(fluidPage(
  #fluid page for dynamically adapting to screens of different resolutions.
  titlePanel("Iris Dataset"),
  sidebarLayout(
    sidebarPanel(
      selectInput("select", label = h5("select species"),choices = c("setosa"=1, "Vericolor"=2, "virginica"=3), 
                  selected = 1)
                ),
    mainPanel(
      textOutput("data")
    )
  )
))

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

  #referring output distPlot in ui.r as output$distPlot
  output$data <- renderText({
      query<-paste0("select * from iris where Species= '", input$select , "'", sep='')
      species<-dbGetQuery(con_iris, query)
      })
})

shinyApp(ui=ui,server=server)

Может кто-нибудь помочь мне, как все процедурныеизменения, которые необходимо внести в учетную запись code / shinyapps.io .... для развертывания блестящего приложения и извлечения данных с сервера sql, который размещен локально на моей машине ... потому что я не смог правильно подключитьсяс моим локальным сервером ... очень нужна помощь в этом, ребята ... !!!

...