DT表格在shiny中未显示。

Question

DT表格在shiny中未显示。

4

我有一个闪亮的应用程序，可以通过一个简单的.bat文件开启，在后台执行R和脚本run.r。该应用程序广泛使用包DT来呈现所有表格。我的问题是，如果我从Rstudio运行应用程序，则显示所有表格，但如果我使用.bat文件执行应用程序，则它根本不显示表格。我已经尝试了4次，这是第一次出现这种情况，我不知道问题出在哪里。我拥有CRAN可用的最新版本的DT包。

因此，我的server.r如下：

server <- function(input, output,session) {
  observeEvent(input$run,{

TablasVaR <- function(mat,DT = T){
      mat_tbl <- data.frame(Activos = rownames(mat),Porcentaje = mat[,"Porcentaje"],
                            VaR = mat[,"Nivel"])

      tabla <- datatable(mat_tbl, escape = T,rownames = FALSE, 
                         selection = list(target = 'row'),
                         options = list(dom = 'tip', paging = TRUE))%>%
        formatStyle(1:ncol(mat_tbl),fontSize = '100%')%>%
        formatCurrency(3,digits = 0)%>%
        formatPercentage(2,digits = 1)
      if(DT){
        return(tabla)
      } else{
        return(mat_tbl)
      }

    }

    matr <- data.frame(Porcentaje=rnorm(19),Nivel = rnorm(19))



  output$table <- renderDataTable({TablasVaR(matr)})
  })
  session$onSessionEnded(function() {
    stopApp()
  })  
}

the ui.r is

ui <- fluidPage(
  sidebarLayout(
    sidebarPanel(),
    wellPanel(style = "background-color: #ffffff;",
              bsButton("run","run1",block=F, style="default"),
              fluidRow(column(4,align="center",offset = 4,
                              dataTableOutput("table"))))
  ))

run.r是什么：

librerias <- c("openxlsx","ggplot2","scales","rugarch","zoo","data.table","stringr",
               "DT","plotly","lubridate","knitr","gridExtra","grid","shinyBS",
               "rmarkdown","nloptr","shiny")
if(length(setdiff(librerias, rownames(installed.packages()))) > 0){
  install.packages(setdiff(librerias, rownames(installed.packages())))
}
invisible(sapply(librerias, require, character.only = TRUE))
CAMINO <<- "D:/Users/aandr/Documents/Ejemplo/"
runApp(CAMINO, launch.browser=TRUE)

而 .bat 文件包含以下内容：

"C:\Program Files\R\R-3.5.1\bin\R.exe" CMD BATCH "run.r"

如果我从run.r中运行shiny应用程序，则会显示DT，但如果我从.bat文件运行它，则不会显示。要使其运行，您需要将server.r、ui.r、run.r和.bat文件保存在同一个文件夹中。

- Alejandro Andrade

如果没有可重现的东西，我们可能无法提供帮助。您能否在问题中添加一个代表性但较小的漂亮应用程序？ - r2evans

@r2evans 刚刚添加了一个最小化的例子，导致我的电脑出现了问题。 - Alejandro Andrade

不错的最小工作示例，顺便说一句，它起了很大的作用。 - r2evans

1个回答

网页内容由stack overflow 提供, 点击上面的

可以查看英文原文，
原文链接

- r2evans · Accepted Answer

如果您阅读RStudio的在Shiny中使用DT页面，您可能没有注意到：

请注意，在 DT 中， DTOutput() 是 dataTableOutput() 的别名，而 renderDT() 是 renderDataTable() 的别名。建议您使用 DTOutput() 和 renderDT() ，以避免与 shiny 中同名函数（ shiny :: dataTableOutput() 和 shiny :: renderDataTable() ）可能发生的冲突。

冲突，这是您的问题。要确认一下，如果您看到以下内容：

find("dataTableOutput")
# [1] "package:DT"    "package:shiny"
find("renderDataTable")
# [1] "package:DT"    "package:shiny"

如果出现函数名称冲突，很可能是原因。请尝试用DT::dataTableOutput(...)或DTOutput(...)替换dataTableOutput(...)；并用DT::renderDataTable(...)或renderDT(...)替换renderDataTable(...)。请注意保留HTML标签。