如何使用 SQL Server 作为后端在 Shiny App 中生成数据表

问题描述

我的 Shiny 应用程序当前无法呈现 data.tables。

我正在使用 RSQLS 包连接我的 SQL Server 数据库，因为无论我如何重构我的脚本，当我使用 ODBC 和 RODBC 包时 R 都会返回几条错误消息.

有谁知道如何让我的 Shiny App 成功返回 data.tables？

附言我还没有找到任何在线资料，它简明地描述了一种将 SQL Server 部署为闪亮应用程序“后端”的有效方法（大多数讨论是关于 MySQL、SQLite 和 PostgreSQL），所以如果这对问题有贡献，我会大大如果有人能在这里用一只鸟杀死两块石头，不胜感激！

library(shiny)
library(tidyverse)
library(shinydashboard)
library(DT)
library(DBI)
library(RSQLS)


# Connecting to & querying the SQL database 
conn <- set_connString("server_name\\instance_name","database")
SQL <- "SELECT DISTINCT League FROM dbo.leagues"
SQL2 <- "SELECT * FROM dbo.leagues"

# My SELECT statements via RSQLS package 
leagues_sql <- pull_data(connectionString = conn,SQL2)

# Create data.frame from SQL league data 
leagues_data <- data.frame(leagues_sql) 


# Create data.frame and insert SQL data from SQL database ###
df <- data.frame() 
df <- pull_data(connectionString = conn,SQL)



##############################  UI.R  ##############################


ui <- fluidPage(
  titlePanel("Leagues"),sidebarPanel(
    radioButtons("league_id","Select a league:",choices = c("Premier League" = "Premier League","Bundesliga" = "Bundesliga","La Liga" = "La Liga","Ligue 1" = "Ligue 1","Serie A" = "Serie A"),selected = NULL)),mainPanel(
    tabsetPanel(type = "tabs",tabPanel("Standings",DT::dataTableOutput("tableoutput"))
    ))
)






##############################  SERVER.R  ##############################


server <- function(input,output) {
  
  # Connecting to & querying the SQL database 
  conn <- set_connString("server_name\\instance_name","database")
  SQL3 <- "SELECT DISTINCT League FROM dbo.leagues"
 
 
  output$tableoutput <- DT::renderDataTable({
       datatable(tableoutput)
    })
}

shinyApp(ui = ui,server = server)

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）