当数据表没有列时，DT :: renderDataTable中的formatCurrency

问题描述

我在闪亮的应用程序中使用renderDataTable来显示data.table vals $ content4table的内容，这是一个reactValues。

可能会发生vals $ content4table等于没有列的数据表。 在那种情况下，在使用formatCurrency时出现错误，因为它搜索不存在的列。 有什么方法可以检查数据表中是否有带有ifelse的列，以避免错误？

这是我服务器的一部分代码。

#initialising vals$content4table when launching the app
 vals <- reactiveValues(content4table = if(someBoolean) {data.table(NULL)} else {data.table("Column1" = "whatever","Currency" = 1000}
  )
 
output$TableInUI <- DT::renderDataTable(datatable(vals$content4table) %>% ifelse(nrow(vals$content4table)>0,formatCurrency(2,currency = "",interval = 3,mark = ",",digits = 0),fnothing()))

#where fnothing is defined as
fnothing<-function(df) return(df)

上面的代码不起作用，并给出此错误： 警告：ifelse错误：未使用的参数（fnothing（））

解决方法

您可以使用req：

output$TableInUI <- DT::renderDataTable({
   req(isTRUE(ncol(vals$content4table)>0))
   vals$content4table
})