问题标签 [shinybs]

我想使用 R 创建一个带有子类别的下拉菜单 - 应该如何引入子类别？

实际输出：实际输出 期望输出：期望输出

如何创建类似于所需输出的内容？

谢谢！

我用Shiny 包中的popify函数创建了一个弹出窗口。shinyBS我想在过滤器底部弹出一个与过滤器本身一样宽的弹出窗口。我在文档中找不到任何关于此的内容。

截屏：

示例代码：

我之前在我的代码中成功使用了 bsModal。但是，我似乎无法在默认情况下仅在用户访问应用程序的第一页时显示模式弹出窗口。我认为这样的事情会起作用，但不是。知道如何在页面访问时触发 bsModal 吗？

我只需要在用户访问应用程序时用一条消息提醒他们，然后允许他们关闭模式弹出窗口并自由浏览应用程序的其余部分。我正在使用 Shinydashboard。所以，最终，这必须与它一起工作。

我已经开始编写一个闪亮的应用程序。

我想要实现的是在一行中加载一个带有字符串的文本文件 - 像这样：

如果文本被加载，元音在数据框中设置为值 1 并与shinyBS包一起突出显示。

我想要实现的是能够通过单击切换按钮来更改数据框中的值。可以切换按钮，但更改的值不会传输到数据框或绘图。

如何做到这一点？我希望问题很清楚，如果没有，请询​​问，我会尝试重新表述问题并使其更清楚。

这是 和 的ui.R代码server.R。

用户界面

服务器.R

我试图切换显示/隐藏列按钮的标签，并跟踪单击它的次数以更改表格显示的列数。我做到了，但我不能使用计数器值的直接奇/偶微分。相反，我不得不使用这个：(vars$counter+1)/2) %% 2 == 0)让它工作，因为每次点击都会改变计数器 2 次。我想要求一个更简单的程序，也许有一个闪亮的BS？

请运行此代码。当您单击数据表中的一行时，您将看到“a”列中的数字被绘制出来。这是使用回调和观察事件完成的。这很好用。

但您也会看到“NUMBER”滑块输入。当用户更改滑块时，我希望绘图更新，以便绘图显示滑块中选择的数字的倍数。所以：

注释掉这一行：

并取消注释这一行：

现在重新运行代码，您将看到当您从滑块中选择不同的数字时，但没有任何反应。这是因为

位于 ObserveEvent 函数内，并且未单击表...只是更改了滑块。那么如何使 NUMBER() 可用以使其有效？

谢谢你。

我想创建一个显示当前下拉选项的弹出窗口。我的代码似乎适用于第一次点击，但是当第二次点击时，第一个模式出现，我无法关闭弹出窗口。示例代码粘贴在下面，任何建议将不胜感激。

我正在尝试使用 CRAN 包向闪亮元素添加工具提示/弹出框shinyBS。这是我的代码：

用户界面

服务器.R：

这是 www/styles.css 下的 css 文件：

我的问题是我无法设置工具提示和弹出内容的字体颜色和背景颜色。弹出内容在白色背景上显示为白色字体颜色 - 即使我在 styles.css 文件中指定了字体颜色和不透明度。此外，工具提示内容似乎是固定的 - 黑色背景上的白色字体颜色。

这是它的外观截图：

第一个元素上的工具提示（在字段旁边，工具提示被标记为标签）：

在第二个元素上弹出：

我正在 Shiny 中创建一个应用程序，其中用户可以使用滑块输入两个值。之后，用户可以按下操作按钮并查看散点图，该散点图仅包括与数据框的行相对应的点，这些点的值高于滑块输入的值。应用程序的那部分似乎正在工作。

但是，如果用户选择较小的滑块输入值，数据框可能会非常大。因此，如果用户选择的滑块输入值会导致超过 50 行的数据框被绘制，那么当用户单击操作按钮时，应该会出现一条警告消息（指示数据框的行数可能很大（大于 50）并建议用户选择较小的滑块输入值）。如果用户收到此消息，但仍再次单击操作按钮（不更改滑块输入），则仍会绘制 >50 个点。

我一直在对方法进行一些研究，并且正在尝试使用 shinyBS 方法 popify()。但是，我的算法（下面的第 40-49 行）使用 if/else 语句来决定是否应该发出警告消息，并且该部分似乎不起作用。此外，我不确定如何防止 >50 点被绘制，除非用户忽略警告消息并再次单击操作按钮。

任何关于如何实现这一目标的建议将不胜感激！

我只需要在按下按钮并且满足变量条件时显示 BS 模态。

这是一个简单的应用程序，展示了挑战是什么。我需要在触发时显示 BS 模态num_rows >= 500，并且触发提交按钮，而不仅仅是触发提交按钮时。

我知道这可以通过conditionalPanel使用input.slider作为条件之一来完成，但在我的实际项目中它比这复杂得多，并且 BS 模态/条件面板需要同时依赖于按钮（用户输入）和变量分配在server.