r - 通知用户他在 Shiny 应用中的错误输入

Question

让我们看一个演示。

runExample("09_upload")

我正在使用提供的文件来执行一些计算并显示所有上传文件的聚合性能。因此，我使用类似的东西

tryCatch(compute.smth(), error=function(e){})

使显示的结果不受输入错误的影响。但是，我想以某种方式指出上传坏文件会导致错误，通知用户他的输入有问题。会是这样的

tryCatch(compute.smth(), error=badFile())

badFile ()应该修改一些可显示的输出。有任何想法吗？作为最后的手段，这可能是一种选择，但我想要一些原生的 Shiny。

Answer 1

您可以使用 ShinySky 包显示如下警报：https ://github.com/AnalytixWare/ShinySky

您可以使用安装包

install.packages("devtools")#if not alrady installed
devtools::install_github("ShinySky","AnalytixWare")

在 ui.R 中放置一个shinyalert(id)用于您希望出现警报的位置。

在你的 server.R

1. 确保将 3 个参数函数传递给 shinyServer egshinyServer(function(input, output,session) {
2. 使用showhinyalert(id,HTMLText,session)显示警报。单击警报将关闭它。
3. 请参阅此要点，例如https://gist.github.com/xiaodaigh/7707701

运行这个也看一个例子

shinysky::run.shinysky.example()