我想使用Shiny中的reactive函数过滤我的数据。但是我没有得到任何输出
在使用Shiny中的reactive函数过滤数据时，如果没有得到任何输出，可能是由于以下几个原因：
- 数据源问题：首先，确保你的数据源是正确的，并且包含了你想要过滤的数据。可以使用R语言的相关函数（如read.csv()）来读取数据，并使用print()函数确认数据是否成功加载。
- 过滤条件问题：检查你在reactive函数中设置的过滤条件是否正确。确保你使用了正确的语法和逻辑运算符。例如，如果你想要过滤出年龄大于等于18岁的数据，可以使用类似于
filtered_data <- reactive({ data[data$age >= 18,] })的代码。 - 输出问题：确认你正确地将过滤后的数据输出到了Shiny应用程序的UI界面上。可以使用renderTable()函数将数据以表格的形式展示出来，或者使用其他适合的输出函数（如renderPlot()）。
- 前端界面问题：检查你的Shiny应用程序的前端界面是否正确设置了与reactive函数相关的输出位置。确保你在UI界面中使用了正确的输出函数（如tableOutput()）来显示数据。
如果以上步骤都没有解决问题，可以尝试在reactive函数中添加一些调试信息，例如使用print()函数打印中间结果，以便进一步排查错误。另外，你还可以参考Shiny官方文档和示例代码，以获取更多关于reactive函数的使用方法和最佳实践。
推荐的腾讯云相关产品：腾讯云服务器（https://cloud.tencent.com/product/cvm）和腾讯云容器服务（https://cloud.tencent.com/product/tke）可以提供稳定的云计算环境和容器化部署方案，帮助你快速搭建和部署Shiny应用程序。
相关·内容
我正试着过滤一个数据框，然后对数据做一些简单的素描。我已经试着在这个主题上利用了R studio的例子和下面的文章：
这是我的代码。
---
title: "Shiny Filter Test"
author: "Novice"
date: "12/13/2019"
output: html_document
runtime: shiny
---
```{r setup, include=FALSE}
knitr::opts_chunk$set(echo =真)
```{r}
库(Tidyverse)
库(闪亮)
inputPanel(
se
浏览 2提问于2019-12-14得票数 0
1回答
我想要设置一个小的闪亮的应用程序，以简化我的一个函数的使用。所以我想使用的函数是
create_rating <- function(data_path, x, y, z)
输入是String, int, int int输出是matrix
library(shiny)
library(NLP)
create_rating <- function(data_path, x, y, z){}
ui <- fluidPage(
titlePanel("Review"),
sidebarLayout(
sidebarPanel(
浏览 3提问于2017-03-03得票数 0
回答已采纳
1回答
我一直在做一个可视化的项目。我试图通过给定的输入-状态数和滑块范围来过滤数据集。不幸的是，r省略了代码部分并输出了整个数据集。我还收到警告：“data”不是图形参数。
library(shiny)
library(Ecdat)
u <- shinyUI(pageWithSidebar(
headerPanel("Social benefits"),
sidebarPanel(
selectInput("variable", "Variable:",
list("Unemploym
浏览 2提问于2017-12-26得票数 0
回答已采纳
我想用ggvis从一组可过滤的数据中绘制一个有光泽的应用程序的叠加直方图。
当过滤器返回一个空的data.frame时，我希望显示一个空的地块。
以下工作与预期的“非堆叠”直方图：
server <- function(input, output, session) {
library(shiny)
library(ggvis)
library(dplyr)
data(diamonds, package = "ggplot2")
diamonds_sub <- reactive({
d <- diamonds
浏览 0提问于2017-02-20得票数 0
回答已采纳
1回答
闪亮的柔性仪表板，数据作为变量
、、、、
使用Flexdashboard中的Flexdashboard，我想绘制并显示一个dataframe，其中这个dataframe是我侧栏中输入的一个变量：
Inputs {.sidebar}
-----------------------------------------------------------------------
```{r}
selectInput("df"，标签=h3(“选择df")，选择=列表(”一月“= "df1"，”二月“= "df2"))
然后，我将在一个表集中绘制并显示我的数据：
Row {.tabse
浏览 4提问于2016-11-22得票数 1
回答已采纳
我正在建立一个闪亮的应用程序在R，我有一个多个复选框在顶部，以过滤水平的一个因素。然后显示过滤后的数据的各种表/图。但是，在“闪亮”中，我只知道如何通过重新过滤每个反应性中的整个数据集来过滤其中的每个反应。例如,
数据集>过滤器>构造表1
数据集>过滤器>构造表2
..。
数据集>过滤器>构造表N
相反，为了提高效率，我想只运行一次过滤器。例如。
数据集>过滤器>构造表1，.，N.
这个是可能的吗？我给出了一个使用mtcars的小示例代码，并从一个筛选的多个复选框中创建了一个图和一个表。
#install.packages(c("shin
浏览 2提问于2022-03-23得票数 0
回答已采纳
我尝试使用从shiny输入传递过来的列表元素来填充shiny上的列表。该列表应累积所有已做的选择。该列表最终应该被发送到闪亮的输出。实际上，我已经得到了一个可以发送到输出的列表。但是，该列表的长度始终为1，并且该单个元素会随着输入内容的更新而更新。实际上我只对列表的“名称”感兴趣，这就是为什么我给每个名称元素赋值为1的原因：
UI.R
shinyUI(
fluidRow(
column(1,
# reactive input
selectInput("Input1",
浏览 2提问于2015-06-10得票数 1
我正在开发一个闪亮的仪表板。我需要从登录模块中获得用户名。我使用callModule()来执行仪表板的身份验证。
ui.R代码如下所示：
library(shiny)
library(shinyauthr)
library(shinyjs)
shinyUI(
fluidPage(
# must turn shinyjs on
shinyjs::useShinyjs(),
# add logout button UI
div(class = "pull-right", shinyauthr::logoutUI(id = "logout")
浏览 1提问于2019-03-07得票数 1
回答已采纳
2回答
我正在尝试执行需要响应式上下文的代码(但不是整个服务器) library(shiny)
library(testthat)
test_that("test ", {
withReactiveDomain(MockShinySession$new(), {
v <- reactiveVal()
v("abc")
val <- v()
expect_equal("abc", val)
})
}) 然后我得到以下错误： Operation not allowed without an active
浏览 25提问于2020-10-27得票数 1
如果数据存在，那么只在shiny中呈现数据表的最佳方式是什么？现在，我得到了以下错误，因为我告诉shiny呈现一个数据表，即使它是空的。 Warning in file(file, "rt") :
cannot open file '\': No such file or directory
Warning: Error in file: cannot open the connection 我的代码是这样拆分的，一旦用户选择了csv文件，我就会读取数据。用户选择csv文件后，错误就会消失，一切都会正常工作。如何告诉Shiny在选择有效
浏览 9提问于2020-09-08得票数 1
回答已采纳
1回答
修改用户输入数据
、、
library(shiny)
ui <- fluidPage(
checkboxGroupInput("data", "Select data:",
c("Iris" = "iris",
"Cars" = "mtcars")),
plotOutput("myPlot")
)
server <- function(input, output) {
dat <- rea
浏览 1提问于2017-03-13得票数 0
回答已采纳
1回答
好的，我按照@Pork建议修改了脚本：
server.R
library(shiny)
library(DT)
library(RMySQL)
con <- dbConnect(MySQL(), user="myuser", host="myhost", dbname="mydb")
shinyServer(function(input, output) {
sqlOutput <- reactive({
sqlInput <- paste0(
浏览 3提问于2015-09-16得票数 0
回答已采纳
我正在试验R中的数据处理包。
这个包可以在这里找到：
我的目标是为指定的所有变量(在vars变量中)动态创建交互式过滤器。我正在用mtcar数据集测试这个。
我的守则：
library(shiny)
library(shinyWidgets)
library(datamods)
library(ggplot2)
library(dplyr)
ui <- fluidPage(
tags$h2("Filter data.frame"),
fluidRow(
column(
width = 3,
filter_data_ui(&
浏览 4提问于2021-05-04得票数 1
回答已采纳
我有一个复杂的源代码，它使用了几个packages.Is，有一种方法可以获得函数的列表和它关联的包吗？例如在我的代码中：
uploaded.data.Factors.Included <- reactive({
inFile <- input$datafile
if (is.null(inFile)) {return(NULL)}
SPY <- read.csv(inFile$datapath, header = input$header, sep = input$sep, quote = "")
我怎样才能得到像这样的东西
浏览 0提问于2016-06-20得票数 0
1回答
我有一个包含两个数据帧的Shiny应用程序。用户按下在数据帧中创建新列的按钮
我还有一个selectInput框，我想用闪亮的应用程序中出现的数据框列的名称来填充它(即，如果用户按下了按钮，那么SlectInput框将包含新的列名)。
我到目前为止的尝试是：
---
title: "GUI"
output: html_document
runtime: shiny
---
```{r, echo=FALSE}
库(EndoMineR)
RV <- reactiveValues(数据=mtcar)
shinyApp(
ui = fluidPage(
selectInput
浏览 0提问于2018-05-14得票数 0
1回答
我试着用闪闪发亮的眼镜：
1)上传数据集
2)让用户选择2列(x，y)
3)从上传的数据集返回显示(x，y)的ggvis图。
我尝试过从闪亮的页面以及示例中编辑示例。然而，没有显示图表。
我想我的问题是上传数据集，但我不知道从哪里开始.有什么建议吗？
注意-我也尝试过使用rCharts，但我遇到了类似的问题，没有显示图表。
server.R
library(shiny)
library(dplyr)
library(ggvis)
shinyServer(function(input, output, session) {
fileHeaderNames <- reactive({
浏览 0提问于2015-01-27得票数 4
回答已采纳
通过调整的代码，我正在努力学习如何使用ggvis和闪亮。
我遇到了一个问题，当用户的交互将新数据添加到图形中时，如果有键，悬停效应对新数据就不起作用。我希望能够保留这个键，因为我也想要一个工具提示。
下面是一个简单的例子。繁殖臭虫：
1)运行闪亮的应用程序。
2)使用选中框添加"b“点。
( 3)现在"a“点在悬停时会增加，但"b”点不会增加。
为了得到正确的行为，我可以在server.r中注释掉行，但我不想这样做(因为我想添加工具提示)。有什么我可以做的反应得到所有点的悬停行为吗？
谢谢!
server.r
library(ggvis)
# Set up data
浏览 2提问于2014-12-12得票数 1
回答已采纳
我正试图用flex_dashboard构建一个数据重、计算量大的闪亮的runtime: shiny_prerendered。我希望在服务器端和客户端进行所有的计算和过滤。shiny_prerendered允许我为客户端和服务器节省启动时间。在下面，我有一个简化的版本，我所做的。我有一个大型数据集(下面是faithful)。我正在根据客户的需要过滤这些数据。应该在仪表板的所有图样和结果中使用过滤后的数据。我将库放在context="setup"中，即带有context="render"的UI (默认情况下不需要)。
我也想做过滤和绘图反应一个按钮点击。所以我加入了
浏览 3提问于2019-09-17得票数 0
回答已采纳
我正在写一个R-Shiny应用程序。有人能告诉我如何在R Shiny中执行Microsoft SQL查询吗？
这就是我到目前为止所做的：
data <- reactive({
conn <- reactive ({ databaseOpen(serverName="[serverName]", databaseName=[dbName])})
qr <- reactive ({ SELECT * from myTable })
res <- reactive ({databaseQuery(conn = conn,query =
浏览 0提问于2015-10-15得票数 2
1回答
试图使滑块反应
、、
我第一次尝试实现闪亮和ggvis。
我想添加一个简单的滑块来过滤mtcar数据集中的mpg。
server.R
library(shiny)
library(ggvis)
library(dplyr)
data("mtcars")
shinyServer(function(input, output){
filtercar <- reactive({
mpgs <- input$mpg
m <- mtcars %>%
filter(
mpg >= mpgs
)
m <- as.data.frame(m)
})
mt
浏览 2提问于2017-10-26得票数 1
回答已采纳
我有一个简单的shiny应用程序，我正在测试SHINY pro，我想访问会话$user，就像文档建议的那样：
。请参见第4.1节，其中显示了此代码：
shinyServer(function(input, output, session) {
output$username <- reactive({
session$user
})
该代码可以工作，但我需要通过GetUser()函数访问ui.r文件中的会话$user
这是我的ui.r文件：
library(shiny)
shinyUI(fluidPage(
textOutput("HeaderTime"
浏览 1提问于2015-03-25得票数 1
我试图构建一个简单的shiny应用程序，该应用程序基于输入创建数据表，并使用ggplot2输出行图。我收到以下错误：
错误: ggplot2不知道如何处理packageIQR类的数据
在这个应用程序中，用户使用一个滑块来定义时间周期或X的长度，以及通过定义起始值和X上值的变化来定义值的变化。我是shiny的新手，所以如果有更好的方法来设置这个方法，我也希望就设置服务器代码的最佳方法提出建议，但是现在我只是得到了一个错误，并且没有产生任何情节。
server.R
library(shiny)
library(ggplot2)
shinyServer(function(input, ou
浏览 5提问于2013-12-04得票数 9
回答已采纳
我正在创建一个Shiny应用程序，在selectizeInput框中选择多个输入并尝试使用这些选择对数据进行子集时遇到了问题。
这是预期的输出
testDT <- data.table(
L = (1:32),
M = rep(letters[23:26], each = 64),
N = rep(LETTERS[1:2], times = 2, each = 512),
O = rnorm(2048, 1))
testDT$L <- factor(testDT$L, levels = seq(from = 1, to = 32, by = 1
浏览 1提问于2015-12-06得票数 2
回答已采纳
我有一个数据集，看起来如下(但实际的数据集要大得多，并包含一些额外的列)：
"month","year","id","hour","count"
1,2015,"place001",13,10.2319100637371
6,2015,"place001",14,42.2066290129154
10,2015,"place002",18,34.5326964651126
3,2015,"place002",8,23.0217976434084
3,2
浏览 1提问于2016-02-19得票数 1
回答已采纳
我正在熟悉ggvis，我正在尝试使用它在闪闪发亮。我很难理解ggvis是如何从反应性的闪亮表达式中获取数据的。以下是ggvis存储库中的基本应用程序：
ui.R:
shinyUI(pageWithSidebar(
div(),
sidebarPanel(
sliderInput("n", "Number of points", min = 1, max = nrow(mtcars),
value = 10, step = 1),
uiOutput("plot_ui")
),
main
浏览 6提问于2014-07-29得票数 10
回答已采纳
你好，闪亮的仪表板专家，
下面是reprex的原理。也就是说，一旦文件上传到侧栏: mod1中，我们就可以导航到侧栏: mod2并查看上传的数据。
下面是代码: 1.模块显示与其UI 2。模块读取数据与其UI服务器和UI调用模块。
，我们能自动化这个吗?
，即一旦数据上传到侧栏: mod1，
侧边栏:应该通过上传的数据向用户显示mod2。
library(shiny)
library(tidyverse)
# Module UI to read content
mod_readUI <- function(id) {
ns <- shiny::NS(id)
shiny::
浏览 0提问于2020-02-21得票数 1
回答已采纳
1回答
我想在我闪亮的应用程序中使用反应性数据集，这样任何其他使用该数据集的对象都可以根据reactiveDf中的值重新呈现。
在本例中，我只输出一个表，但在我的应用程序中我有其他图表和表，其想法是只通过添加reactiveDf来触发呈现。另外，我想使用dplyr来实现这一点。
library(shiny)
library(dplyr)
ui <- shinyUI(fluidPage(
sidebarLayout(
sidebarPanel(
checkboxGroupInput('Category', '',
浏览 2提问于2016-03-24得票数 6
回答已采纳
我对R Shiny中的输入和输出函数感到困惑。我需要根据select input下的输入绘制stem函数并显示忠实数据集的汇总表。但是下面的代码并没有得到我需要的结果。请指教 library(shiny)
ui <- fluidPage(
sidebarLayout(
sidebarPanel(selectInput("x","Operations",choices = c("summary","stem")),
plotOutput("x")),
mainPanel(
浏览 9提问于2019-06-05得票数 2
我试图概括闪亮的模块，使不同的功能可以通过，但预期的反应行为不起作用-有人能指出正确的方向吗？下面有一个解释说明了我的问题。
我希望动态选择view_id来更改renderShiny()函数中的值。它工作在应用程序加载，但改变选择不会流过。
这与模块函数在其中创建的环境有关吗？
library(shiny)
create_shiny_module_funcs <- function(data_f,
model_f,
outputShin
浏览 0提问于2019-03-12得票数 2
回答已采纳
1回答
我有一个大的闪亮的应用程序，多个元素改变reactiveVals。现在我想移植应用程序使用闪亮的模块，以便能够更合适地测试它。但是，我无法访问服务器函数中定义的反应性值。
米维
到目前为止，一个简单的应用程序突出了我的思维过程，就是这个计数器应用程序。应用程序由两个模块组成：counter和display。
counter在单击buttondisplay时增加反应性计数器值，监视计数器并将其输出显示给文本字段。
应用程序的主要部分是一个名为counter_reactive的“中央”反应性值，它保存当前的计数。此值由counter设置，由display模块元素读取。
library(shiny)
浏览 0提问于2020-08-26得票数 0
1回答
我想调用一个基于响应式输入的嵌套模块服务器，并在主面板上显示返回输出。当函数callModule依赖于反应式输入时，它在这里似乎不起作用。
当你在构建一个复杂的应用程序时，我假设这是一个常见的场景，但我一直在努力寻找解决方案。
以下是我的代码，或者你可以通过在R中输入以下命令来运行该应用程序：
shiny::runGist("23abbb50a1df6a91af990a7401919044")
提前谢谢你。
library(shiny)
# innerModule 1
csvFile_Input <- function(id, label = ".csv fil
浏览 1提问于2018-03-29得票数 0
我想上传一个文件到我的闪亮的应用程序，我想用dateInput过滤这个文件，并将结果添加到传单地图，然而，我找不到一个例子，我所有的尝试都不起作用。它说文件是不可子集的。如果有任何帮助，我将不胜感激！
我认为问题出在发球区。我需要上传一个CSV文件，然后，我必须以某种方式应用日期过滤器，以此CSV我上传。然后，这些过滤后的数据将进入Leaflet。
下面是我的代码：
..。
library(shiny)
library(shinydashboard)
library(leaflet)
library(RColorBrewer)
library(leaflet.extras)
library(
浏览 2提问于2020-04-22得票数 0
例如
dataReactive<-reactive({data[, c(input$selectCol)]})
dataReactive %>%
ggvis(x=~x,y=~y) %>%
layer_points() %>%
bind_shiny("plot1")
dataReactive %>%
ggvis(x=~x) %>%
layer_histograms(width=1) %>%
bind_shiny("plot2")
当您尝试输出时，在UI中，它将只生成与b
浏览 2提问于2015-01-14得票数 0
1回答
我尝试将中给出的答案应用于节约情节，而则试图应用于下载反应性输出，但都没有成功。我不确定我的反应性函数是否输出了错误的数据类型，或者我的downloadHandler()是否写得不正确。
此外，链接的问题将function()s传递给reactive()，我被警告说这是不可取的，所以我在这里避免了它。(不过这种行为并没有改变。)
ui.R：
library(shiny)
# Define UI for application
shinyUI(pageWithSidebar(
# Application title
headerPanel("App"),
sid
浏览 1提问于2014-03-28得票数 1
回答已采纳
1回答
我有两个多个CSV文件，我正在使用一个名为Daff()的包来比较每个文件。现在，我确实想从这个闪亮的应用程序的两个下拉列表中选择CSV。CSV存储在数据文件夹中。
我已经尝试过这段代码，但是我得到了一个错误，目录中没有文件，文件中的错误:无法打开连接
UI.R
library("shiny")
library(daff)
library(dplyr)
ui <- fluidPage(
fluidPage(
titlePanel("Automated Data Dictionary Comparison"),
sidebarLayout
浏览 0提问于2019-08-08得票数 0
我是个新手，如果这是显而易见的，并且已经被问了无数次，我很抱歉，但我已经被困在这个问题上好几天了。我一直在修改仪表板以处理分析化学数据，例如，它读取多个csv文件，处理数据(平滑等)。使用Shiny中的各种滑块和函数，但不保存/下载处理后的数据/输出，这是我一直在尝试做的。我似乎无法访问“输出”或处理过的数据，例如作为矩阵列表，然后我将其写出为新的.csv文件。(我得到了“类型为'closure‘的对象不是子集的”)我在R中很胜任，并且有工作良好的脚本，但将这种更改更改为Shiny是有问题的。如何访问detectedPeaks或baselineCorrectedSpectra的输出数
浏览 24提问于2020-07-16得票数 0
回答已采纳
我想输入一个category和一个number来建立一个模型，以预测不同类别的销售排名的日销售额。第一个输入是将我的数据子集来构建模型，第二个输入是作为模型输入的排名。最后，输出是模型的预测结果，即日销售额。
这是我的ui.r和server.r
library(shiny)
shinyUI(fluidPage(
titlePanel("Daily Sales Prediction by Sales Rank "),
selectInput("select", label = h3("Select Category"),
浏览 0提问于2016-10-21得票数 0
我在for loop中使用assign来创建新的变量，我希望在shiny ui中的多个输出中使用这些变量。以下是示例代码：
library(shiny)
ui <- fluidPage(
mainPanel(fluidRow(textOutput("a")),
fluidRow(textOutput("b")))
)
server <- function(input, output) {
m <- reactive({1:5})
output$a <- renderPrint({
for
浏览 0提问于2015-09-03得票数 3
我想查询一个SQL Server数据库。用户必须选择一些带有一些小部件的项来构建SQL查询，然后，通过操作按钮触发查询结果，将查询结果存储为数据框架，并由renderTable函数用作输入。不管我做了什么来修复它，我总能得到这样的信息：
不能强迫类型‘闭包’到类型‘字符’的向量。
你能给我一些建议吗？
这是我的代码：
library(shiny)
library(RODBC)
# Builds conection chain ----
conection <- paste0('driver={', DriverDB, '}; ',
浏览 2提问于2020-10-04得票数 0
回答已采纳
我得到了一个错误：
Error in UseMethod("xtable") :
no applicable method for 'xtable' applied to an object of class "reactive"
UI.R
library(shiny)
shinyUI(pageWithSidebar(
headerPanel("Test App"),
sidebarPanel(
textInput(inputId="text1",
label =
浏览 2提问于2014-12-29得票数 4
回答已采纳
3回答
具有自带功能的闪亮应用
、、、
我想在Shiny应用程序中实现一个函数。我自己的函数get_calculate()将参数、数据和容差作为输入，并返回一个带有data.frame和plot的list。
我想根据容差来显示输出。在我的服务器函数中，我使用reactive()来运行get_calculate()，但它不工作。
如果我用renderPlot()和renderDataTable()编写代码，get_calculate()就能正常工作。然而，对于大型数据集，它的效率很低，因为Shiny必须运行get_calculate()两次。
library(shiny)
library(shinydashboard)
library
浏览 2提问于2016-11-21得票数 0
我想要创建一个闪亮的应用程序，它使用ggvis来绘制一个交互式图形，并使用linked_brush选择图形中的点。根据输入改变绘图数据。
但是当我试图把所有的东西组合在一起时，我会收到一条错误信息。
Error : Length of calculated column 'reactive_185425318' (0)
is not equal to 1 or the number of rows in data (32).
我试图通过ggvis中的“基本”演示来创建一个最小的示例：
ui.R
library(ggvis)
shinyUI(pageWithSidebar(
浏览 2提问于2015-02-13得票数 2
回答已采纳
1回答
我对闪亮/ggvis很陌生，我想创建一个散点图，允许用户从X和Y下拉列表中选择。我曾尝试过这一壮举，但几次都无济于事，我非常希望得到一些帮助。请看下面的代码。
library(shiny)
library(ggvis)
library(dplyr)
# Define the user interface
shinyUI(pageWithSidebar(
# Add a title to this page
headerPanel(
h1("Test the Header Panel!")),
sidebarPanel(
浏览 1提问于2016-06-01得票数 1
回答已采纳
1回答
Shiny似乎只接受mainPanel在ui.R中提供的任何最终输出。提出了这一问题，但没有达成令人满意的解决方案。mainPanel的文档表明，这应该是可能的：
描述:创建一个包含输出元素的主面板
以下代码说明：
server.R
library(shiny)
shinyServer(
function(input, output) {
plotInput <- reactive({
list(plot = plot(1:10),
txt = "My reactive title")
})
output$m
浏览 1提问于2014-12-09得票数 4
回答已采纳
1回答
我使用一个函数返回n个数据帧的列表:n是可变的，取决于变量的层数。
我想使用一个循环for in server.R来显示这n个表
下面是我的代码：
outlist2 <- reactive(label="toto", ({
if(is.null(input$datafile)){return()}
if(is.null(input$varinteret)
|| is.null(input$vartemps)
# ||is.null(input$apparie)
浏览 3提问于2016-03-07得票数 2
我想做一个闪亮的应用程序，它可以检索一些反应值(用reactiveVal初始化)，这样，当出现错误时，我可以在应用程序崩溃之前保存我的“反应值”的值。
我用"shiny.error“(options(shiny.error = function(){...}))选项尝试了一些东西，但我可以得到这些值……
这是一个简单的应用程序的框架：
library(shiny)
options(shiny.error = function() {
previous_frames <- sys.frames()
## Some code that enables to get the v
浏览 13提问于2019-08-06得票数 2
1回答
我有一个闪亮的应用程序，用户可以将文本写入textInput字段，每当文本出现在我的数据中时，文本就会显示在tableOutput中。然后，应该以特定的颜色高亮显示来自用户的textInput，比如输出表中的红色。我该怎么做？
library(shiny)
df = tibble(Text=c("The quick brown fox", "jumps over", "the lazy dog"))
ui =fluidPage(
fluidRow(
textInput("input&
浏览 2提问于2020-08-10得票数 0
回答已采纳
我有这个shiny应用程序，我想使用一组radioBuottons来确定另一组radioBuottons的选择向量。我尝试过使用conditionalPanel，但我不知道如何将不同集的radioBuottons绑定到单个输出条目(如果可能的话)。因此，我为第二组radioBuottons定义了一个列表，并尝试根据第一组radioBuottons的选择来选择它们。
下面是一个代码示例：
ui.r:
library(shiny)
secondInput <- list(
"a" = c("one", "two", "three&
浏览 0提问于2018-06-18得票数 1
回答已采纳
1回答
我有一个单选按钮，我想在ui.R文件中使用它来打开和关闭ggvis绘图。当单选按钮设置为on时，我将显示ggvis图。当它关闭时，我想显示一个表输出。我有以下代码。
if(input$check==on){
vis %>% bind_shiny("plot1")}
我得到以下错误。
Operation not allowed without an active reactive context.
我想知道如何检查输入$ check (收音机已打开)，然后决定显示ggvis，否则显示一个表。
浏览 0提问于2015-10-17得票数 2
2回答
我想更新选项的选择输入时，有人选择过滤的圆筒。但是，每当我通过对圆柱的过滤更新select输入中的选项时，反应性就会触发两次。我怎么才能避免呢？
library(tidyverse)
library(shiny)
library(DT)
data("mtcars")
mtcars <- mtcars %>% tibble::rownames_to_column(var = "cars")
ui <- fluidPage(
shiny::selectInput(
inputId = "cars",
label
浏览 4提问于2022-06-21得票数 0
回答已采纳
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
对象存储
即时通信 IM
实时音视频活动推荐
腾讯云开发者
