0

首先，我需要使用 R 从 HANA 数据库中获取 SQL 查询结果，我通过在 Rstudio 中使用 RODBC 来完成。

其次，我需要与其他人分享我的代码，我使用 shinyapps.io 来完成。

但是，我需要使用 shinyapps 在其他计算机上显示我的 SQL 查询结果，我有以下错误消息：

error first argument is not an open rodbc channel

我使用了来自R shiny RODBC connection Failing的答案，但它仍然无法正常工作。

这是我附加的 ui.R 和 sever.R 代码：

ui.R:

library(dplyr)
library(RODBC)
library(stringr)
library(ggplot2)
fluidPage(
  titlePanel("Basic DataTable"),
  fluidRow(
    DT::dataTableOutput("table")
  )
)

服务器.R：

library(dplyr)
library(RODBC)
library(stringr)
library(ggplot2)
ch<-odbcConnect('HANARB1P',uid='****',pwd='****')
options(scipen = 200)
myOffice <- 0
StartDate <- 20170601
EndDate <- 20170610
office_clause = ""
if (myOffice != 0) {
  office_clause = paste(
    'AND "_outer"."/BIC/ZSALE_OFF" IN (',paste(myOffice, collapse=", "),')'
  )
}
function(input, output) {
  output$table <- DT::renderDataTable(DT::datatable({
  data <- sqlQuery(channel=ch,query=paste(' SELECT TOP 100
                                                   "/BIC/ZSALE_OFF" AS "SalesOffice",
                                                   "/BIC/ZHASHPAN" AS "CreditCard"
                                            FROM "SAPB1P"."/BIC/AZ_RT_A212"
                                            WHERE "CALDAY" BETWEEN',StartDate,'AND',EndDate,'
                                                  ',office_clause,'
                               '))
    data
  }))
}

如何使用shinyapps.io和RODBC在网页上展示SQL查询结果进行分享？

根据答案，我稍微修改了我的代码。但是奇怪的事情又发生了。当我使用代码时：

function(input, output) {
  output$table <- DT::renderDataTable(DT::datatable({
    data <- sqlQuery(channel=ch,query=paste(' SELECT TOP 50
                                                 "/BIC/ZSALE_OFF" AS "SalesOffice",
                                                     "/BIC/ZHASHPAN" AS "CreditCard"
                                              FROM "SAPB1P"."/BIC/AZ_RT_A212"
                                              WHERE "CALDAY" BETWEEN',StartDate,'AND',EndDate,'
                                                    ',office_clause,'
                                            '))
    data
  }))
}

我有错误信息：

在此处输入图像描述

当我使用代码时：

shinyServer(
function(input, output) {
  data <- sqlQuery(channel=ch,query=paste(' SELECT TOP 50
                                                 "/BIC/ZSALE_OFF" AS "SalesOffice",
                                                     "/BIC/ZHASHPAN" AS "CreditCard"
                                              FROM "SAPB1P"."/BIC/AZ_RT_A212"
                                              WHERE "CALDAY" BETWEEN',StartDate,'AND',EndDate,'
                                                    ',office_clause,'
                                            '))
  output$table <- DT::renderDataTable(data)
}
)

我有错误信息：

在此处输入图像描述

我确信该频道有效。如果我只是使用 run app 来执行此操作：

shiny::runApp('//paper/fchen4/feng.officeworks/mycode/myShiny')

它工作正常。但是我在一家公司工作，我不知道我的防火墙是否与这个错误有关。但是如果我这里不使用SQL，也可以。

4

1 回答 1

2

那么，您检查过频道是否真的打开了？错误消息可能是由于错误的凭据、无法访问的服务器或任何其他会阻止 SQL 连接成功的原因。

使用以下代码显示表格内容没有问题：

用户界面

library(shiny)

# Define UI for application that draws a histogram
shinyUI(fluidPage(

  # Application title
  titlePanel("Basic Data Table"),       
     fluidRow(
        dataTableOutput("table")
     )
))

服务器.R

library(shiny)
library(RODBC)

ch <- odbcConnect("S12")

# Define server logic to provide table output
shinyServer(
    function(input, output) {

        query_result <- sqlQuery(channel = ch, query = 'SELECT * FROM M_DATABASE')
        output$table <- renderDataTable(query_result)
    }
)

没有理由DT::datatable()围绕 SQL 查询的结果进行调用，因为它已经返回了一个可以输入renderDataTable().

一些一般提示：

  • 永远不要将您的登录数据放入应用程序代码中。在SCN 博客“HANA 快速说明 - 检查我的连接并安全地使用它们……”中，我解释了如何安全地存储和使用 SAP HANA 系统的连接和登录数据。这也为您提供了一种非常简单的方法来检查与您的 HANA 实例的连接。此外，仅指向 ODBC DSN 连接而不是提供所有参数看起来更清晰。

  • 您不需要文件中的所有 R 库，ui.R因为使用类似库的代码RODBC在server.R文件中。确保每个文件中都包含最少的所需库，以使您的生活更轻松。

  • 分解长嵌套函数参数调用并没有什么坏处，就像我使用您的“调用-SQL-statement-convert-resultset-data-type-feed-it-into-render-function”所做的那样。当一行中没有太多命令时，跟踪在哪里发生了什么以及在哪里失败了要容易得多。

这应该适合你。

于 2017-06-26T06:45:37.173 回答