r - DT::renderTable 闪亮验证
问题描述
我想验证一个闪亮的数据表。但是下面的验证语句似乎不起作用????怎么了
output$tablepermanovapw <- DT::renderDataTable(
validate(
need(values$pwsummarydisplay ==1 , "Need at least 1 row")),
DT::datatable(values$pw) %>% formatStyle(
names(values$pw),
filter = 'top',
backgroundColor = styleInterval(0.05, c('orange','white'))
))
当表至少包含一行时,输出如下。如果表为空,则正确返回消息。
Warning: Error in &&: invalid 'x' type in 'x && y'
请注意,我删除了它起作用的 validate 语句,这意味着当返回表时它会被呈现。如果没有返回表格,则不显示表格。但是我想合并验证消息。
解决方案
好的,这是缺少括号和额外逗号的问题....上面的代码有效....
output$tablepermanovapw <- DT::renderDataTable({
validate(
need(values$pwsummarydisplay ==1 , "Need at least 1 row"))
DT::datatable(values$pw) %>% formatStyle(
names(values$pw),
filter = 'top',
backgroundColor = styleInterval(0.05, c('orange','white')))
)
})
推荐阅读
- javascript - 在 js 中使用类与创建独立函数有什么好处
- arrays - 切割一根棍子,使成本最小化
- python - django-storages S3boto3 上传状态
- python - Django PasswordChangeView 抛出“密码与电子邮件地址太相似”。错误
- c++ - C++使用模板类调用非静态成员函数
- javascript - 响应无效事件 onClick
- html - 在兄弟 div 的子元素中定位 div
- esp32 - Esp32 基于 Arduino SPIFFS 的静态 Web 地址区分大小写
- javascript - 为什么这个正则表达式会在行首剪切?
- angular - Angular 8 和在订阅中设置 observable