如何解决当数据表没有列时,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
})
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。