罗马历史迷在这里。因此，我创建了一个包含军团legions (fifth和tirteenth)以及它们的morale (high、medium、low)部分的小数据。
我想想象军团在士气上的差异。为此，我将为军团创建一个酒吧，通过士气过滤。
因此，在X轴上，我将有fifth和tirteenth，以及我们的士气选择过滤的浓度。
这就是我所拥有的。(请注意，这是一个玩具例子，在现实中有许多变量的x，y和因子变量，不幸的是没有罗马人)
# Shiny
library(shiny)
library(shinyWidgets)
# Data
library(readxl)
library(dplyr)
浏览 5提问于2021-12-13得票数 0
1回答
我有一个多个组的数据集，每个组有不同的主题，我想构建一个闪亮的应用程序来显示每个主题在各自的组中的结果，每个组都表示为shiny应用程序中的一个选项卡。我觉得我大概有95%在那里，只是不明白为什么第二个选项卡拒绝选择数据(第一个选项卡工作得很好)。
下面是我的数据：
library(tidyverse)
library(reshape2)
library(shiny)
groupID <- rep(1:2, each = 5)
Subject <- LETTERS[1:10]
var1 <- rnorm(n = length(Subject), mean = 0, sd =
浏览 10提问于2020-05-13得票数 0
回答已采纳
1回答
我有一个包含几个分类变量的数据。
>library(vcd)
>data(Arthritis)
>colnames(Arthritis)
"ID" "Treatment" "Sex" "Age" "Improved"
我想看看有“明显”改善(“改善”)的病人人数和“治疗”组之间的差异。(你可以在下面看到)
Arthritis1 <- Arthritis %>%
filter(Improved == "Marked") %>
浏览 3提问于2021-12-16得票数 0
回答已采纳
在闪亮输入(selectizeInput)中使用动态/条件过滤( multiple = TRUE )的正确方法是什么？
在本例中，我试图显示受祖父母过滤器(any，all，none)限制的父过滤器，然后显示受父过滤器限制的子过滤器。
.getReactiveEnvironment()$currentContext中的错误:不允许在没有活动反应上下文的情况下进行操作。(您试图做一些只能在反应性表达式或观察者中完成的事情。)
---
title: "Example"
runtime: shiny
output:
flexdashboard::flex_dashboard:
浏览 1提问于2019-10-07得票数 1
回答已采纳
我正在制作一个使用菱形数据集的应用程序，除非选择了输入，否则我希望显示完整的表格。但是，如果我选择，比方说，自己剪切，什么也不会出现。而且，如果我选择了很多东西，就不会出现额外的菱形。下面是我的代码： library(shiny)
library(DT)
library(tidyverse)
diamonds <- diamonds
#Shiny App
ui = fluidPage(
fluidRow(
column(2, selectizeInput(inputId = 'carat',
浏览 25提问于2020-11-28得票数 2
回答已采纳
我想要创建一个r shiny应用程序，其中为每个y变量生成一个选项卡(因此必须动态生成选项卡)，并且在每个选项卡中，图位于两列和n行(如图中所示)。但是，我收到了以下错误：
`x` must contain exactly 1 expression, not 2
实际上，我想结合这两段代码来创建我上面描述的代码：代码1:这段代码为每个y变量创建一个选项卡
library(shiny)
ui <- fluidPage(
sidebarLayout(
sidebarPanel(
selectInput(inputId = "x", label = &
浏览 5提问于2022-10-09得票数 0
我有一个应用程序，正在创建一个动态数量的图像，基于各种用户输入。绘图是在this link之后使用renderUI完成的，但需要对我自己的设置进行修改。我现在需要导出这些图，但不知道如何实现。我知道如何导出单个图(包含在下面的示例中)，但我希望修改下面的代码，以便能够导出动态数量的模型。 如果有任何建议，将不胜感激！ library(shiny)
library(dplyr)
library(ggplot2)
# fake data
df <- data.frame(x = 1:10, y = letters[1:10]) %>%
mutate(
浏览 10提问于2021-03-25得票数 0
回答已采纳
1回答
我正在开发一个闪亮的应用程序，我正在尝试根据复选框的输入来过滤数据帧，它是，如果复选框被点击，数据帧将被过滤，否则数据帧保持不变。如果选中该复选框，则只有那些值为"YES“的行才能在”CANONICAL“列中被选中。 我也读过类似的问题(比如这里：Condition Filter in dplyr based on Shiny input)，但我一直没能解决我的问题。 我的代码如下： library(shiny)
library(DT)
library(dplyr)
library(shinyWidgets)
options(shiny.maxRequestSize = 100*
浏览 11提问于2019-05-16得票数 1
回答已采纳
我正在尝试使用sidebarMenu和menuItems构建一个闪亮的应用程序。当前菜单项被复制，
单击第一个和第二个菜单项不会显示表或图。只有最后两个显示输出。我如何修改它，使其只有两个项目- 1)绘图菜单，2)表菜单(与子项目)，并点击它显示各自的输出。使用mtcars数据集，下面粘贴代码
data(mtcars)
ibrary(shiny)
library(shinydashboard)
library(dplyr)
ui <- dashboardPage(
dashboardHeader(title = "Dynamic sidebar"),
浏览 3提问于2017-09-05得票数 0
回答已采纳
1回答
我想要一个带有动作按钮的具有竞争光泽的应用程序(我想自动显示每个最后选择中的选项)。例如，如果我在过滤器1中选择"A“，我想在过滤器2中显示"1”、"27“和"All”选项，而不激活"go“按钮。
这是我的代码：
library(shiny)
library(dplyr)
library(DT)
ui <- fluidPage(
titlePanel("Title"),
sidebarLayout(
sidebarPanel(width=3,
selectInput("
浏览 1提问于2017-03-06得票数 0
回答已采纳
我正在尝试做一个类似于这个闪亮的应用程序:动态数据架构()；renderUI，Shiny，reactiveValues。我想创建一个选项来选择，例如，在列表中的钢瓶数量。以便在选择数字后自动更新表。有人能解释一下我做错了什么吗？正如您在图形程序上所看到的那样，它不能很好地工作。
我的代码：
ui：
library(shiny)
hw <- mtcars
shinyUI(fluidPage(
title = 'Examples of DataTables',
sidebarLayout(
sidebarPanel(
rad
浏览 3提问于2017-11-26得票数 1
回答已采纳
我有一个闪亮的应用程序，使用UpdateselectInput，我想添加一个actionButton，因为有一些错误与updateselectInput本身。它似乎不起作用，我只想在我的应用程序类似于这个按钮的情况下显示表格：
library(shiny)
library(dplyr)
library(DT)
ui <- fluidPage(
titlePanel("Title"),
sidebarLayout(
sidebarPanel(width=3,
selectInput("filter1",
浏览 6提问于2017-02-27得票数 1
回答已采纳
我有两个引用同一实验的数据帧(bmdat1，plots1)。我需要从plots1$Bucket中找到唯一值，并使用它们根据plots1#Bucket中的唯一值过滤第二个数据帧。
以下是我尝试过的方法
bm1dat1 <- filter(bmdat1, bucket == as.vector(unique(plots1$Bucket)))
这将返回
Warning messages:
1: In `==.default`(bucket, as.vector(unique(plots1$Bucket))) :
longer object length is not a multiple
浏览 8提问于2020-02-27得票数 0
回答已采纳
1回答
我创建了一个Shinydashboard，并想生成一个输出，但是我得到了错误对象“outputTable”not found。我完全不知道为什么会发生这种情况。在服务器函数中，我有一个“输出”，数据流也应该可以工作。你能帮帮我吗?代码如下：
### Notwendige Pakete laden.
rm(list = ls())
if (!require('dplyr')) install.packages('dplyr'); library('dplyr')
if (!require('shiny')) install.pa
浏览 0提问于2018-03-15得票数 0
1回答
无法做出类似功能的过滤器，这应该是相互依存的。因此，这意味着如果用户从一个过滤器中选择一个输入，那么所有其他过滤器都应该得到更新。
我尝试过多种方法，但无法做到这一点，但是在堆栈溢出上发现了一些具有类似功能的代码。唯一的挑战是，我不想将表显示为输出，不幸的是，如果我们不将输出传递给表的#制表符，代码就无法工作。
任何帮助都会很感激的。
library(shiny)
library(dplyr)
library(DT)
ui <- fluidPage(
titlePanel("Title"),
sidebarLayout(
sidebar
浏览 1提问于2018-01-11得票数 1
回答已采纳
1回答
我正在编写一个R shiny app，它可以显示一个plotly图形，也可以显示一个datatable，并带有一些子设置选项。输入的数据是这个data.frame
set.seed(1)
df <- rbind(data.frame(contrast = rep("c1",10000),gene = paste0("g",1:10000), effect = rnorm(10000), p.value = runif(10000,0,1),stringsAsFactors = F),
data.frame(contrast = re
浏览 14提问于2022-04-13得票数 0
回答已采纳
我有一个工作应用程序:这是对以前的一些问题的跟进问题：
library(shiny)
library(vtree)
df <- tibble(A = c(rep("nature", 18), rep("not nature", 9)),
B = rep(c("animal", "plant", "machine"), each=9),
C = c(rep(c("dog", "cat", 'mouse'), 3),
r
浏览 11提问于2022-11-27得票数 2
回答已采纳
1回答
我到目前为止所取得的成就:我有一个完全可复制的闪亮应用程序(使用iris数据集)，它根据一个或多个选定的下拉值(在本例中为Species)生成动态绘图(不知道将输出多少个绘图)。
我的问题：我想从一个名为new的列中添加一个动态字幕。为了详细说明，每个Species都有两个唯一的值(例如，a和b表示Species = setosa)。有没有一种方法可以添加这些独特的值，以便将其集成到动态图中？
我试过什么
df() %>% select(new) %>% distinct() %>% pull()
但是，这不会产生我想要的输出。
library(shiny)
lib
浏览 3提问于2022-01-10得票数 1
回答已采纳
是否有一种方法可以将一个闪亮的小部件作为selectInput()添加到datatable列标题中，用户可以从其中选择他想要的Species并查看相关数据。
## app.R ##
library(shiny)
library(shinydashboard)
library(DT)
Species<-unique(iris$Species)
value<-c(5,6,7)
df<-data.frame(Species,value)
ui <- dashboardPage(
dashboardHeader(title = "My Chart"),
浏览 9提问于2022-07-25得票数 0
我有两个问题: 1)我想知道是否有可能根据之前的输入进行一列选择。请看代码，我会解释我的意思： library(shiny)
Country <- c("USA", "Mexico", "Canada", "China", "Vietnam", "India", "France", "Germany", "Poland")
Region <- c("Americas", "Americas", "
浏览 31提问于2020-04-30得票数 1
回答已采纳
1回答
一定很晚了因为我搞不懂这件事。当我运行下面这个闪亮的应用程序时，DataTable显示为空白。
你能帮我找出我的错误吗？
据我所知，如果没有选择输入，df_filtered应该返回df。它被renderDataTable调用为一个反应性函数。
library(shiny)
library(shinydashboard)
library(DT)
library(dplyr)
# Test data
LANZ <- c(1,2,3,4,5)
TIPO <- c('V5', 'V5', 'V10', 'V10', '
浏览 1提问于2020-09-15得票数 1
回答已采纳
如何在另一个observeEvent中重用observeEvent处理的数据？
#ui.r
library(shiny)
library(ggplot2)
library(shinyWidgets)
library(DT)
dataset <- diamonds
shinyUI(fluidPage(
sidebarLayout(
sidebarPanel(
actionButton("read", "read_diamonds"),
pickerInput('filter1&#
浏览 0提问于2021-11-23得票数 0
1回答
我有一个闪亮的应用程序，我正在用它来可视化各种数据。其中一张图是一张地图。我允许用户下载所有的绘图一次作为一个单独的Word文档使用针织文档。我希望在文档中包含地图，但不知道如何做到这一点。我可以用一个单独的downloadHandler导出地图本身的png (或pdf)，但理想情况下希望地图包含在主文档中。任何帮助都将不胜感激。如果有人对下载的地图的范围有提示(似乎与屏幕上的地图范围不匹配)，那也是很棒的。 我愿意使用officer将下载的地图导入到新创建的文档文件中，但我不知道如何a)使用单个downloadHandler执行此操作，以及b)告诉R如何处理最新下载的地图的名称。 # re
浏览 15提问于2021-03-19得票数 0
回答已采纳
1回答
我目前正在尝试制作一个交互式应用程序，在我的数据框架" keep_df“上，您可以选择要使用哪种图形，以及对于x和y轴，您可以从keep_df中选择任何列。下面是我的密码。我没有收到任何错误消息，但是代码没有按需要运行。我在想有没有人有什么建议。谢谢!
ui <- navbarPage ("Title",
tabPanel("Chart builder",
sidebarLayout(
sidebarPanel(
p
浏览 1提问于2022-07-08得票数 1
回答已采纳
1回答
无反应图例
、、、、
如何在这个闪亮的应用程序中创建一个静态的传奇呢？
图例必须包含所有4种异常因子水平，无论它们是否存在于反应图中。因子水平为正常、暂定、低和高。
输入数据帧在下面的脚本中自动创建。图例点和情节点的颜色和形状应该匹配。
我还必须将当前编码的悬停信息保存在aes_string()中。
# Load libraries
library(dplyr)
library(shiny)
library(plotly)
library(ggplot2)
library(dplyr)
library(scales)
library(shinyWidgets)
library(lubridate)
# Crea
浏览 6提问于2022-04-05得票数 2
回答已采纳
我试着在柔性仪表板的同一个标签上有两个图表。这两个变量具有相同的输入变量，应该由用户选择，但是输出应该是独立的。我想选择单独显示一幅图，还是把两幅图放在一起。
我找到了一些闪亮的资源，但我一直在努力在代码中实现它们。到目前为止，我提供了一个代码示例：
---
title: "Untitled"
runtime: shiny
output:
flexdashboard::flex_dashboard:
orientation: columns
vertical_layout: fill
---
```{r}
df <- data.frame(
频率
浏览 12提问于2022-11-08得票数 1
我想要创建一个表，该表将接受selectizeInput和手动输入的值。然后出口到CVS。我已经准备好了表，但是当我尝试导出(单击"CVS")时，它不会接受手动输入所做的更改。下面是一个例子。如何使csv导出同时采用selectizeInput和手动输入？我还觉得我的代码有点多余。是否有一种创建表的简化方法？谢谢!
library(shiny)
library(shinydashboard)
library(DT)
ui <- dashboardPage(
dashboardHeader(title = "test"),
dashboardSid
浏览 9提问于2022-07-06得票数 0
回答已采纳
当用户单击小部件时，我希望从selected=中删除初始值( selectizeInput )。
下面是一个示例代码：
library(shiny)
library(dplyr)
ui= fluidPage(
sidebarLayout(
sidebarPanel(
selectizeInput(inputId= "cyl", label= "cyl",
choices= NULL,
selected= sort(unique(mtcars$cyl)
浏览 3提问于2017-02-20得票数 0
回答已采纳
1回答
如何通过多个变量过滤数据帧的行，在转换后的数据框架上运行模型，并呈现结果？
我已经知道了如何简单地将数据帧过滤成多个变量并显示为一个表：
server <- function(input, output) {
output$summary <- renderTable({
df <- Heating
if (input$regiontype != "All") {
df <- df[df$region == input$regiontype,]
}
if (input$roomsize != "All")
浏览 0提问于2018-05-07得票数 0
回答已采纳
1回答
我有一个包含n列的表(所有列都是分类变量)。我想要使用plotly和R-shiny为每一列绘制饼图。
代码如下：
.R Server.R Server.R
df_data<-read.csv("file.csv")
df_data_num <- df_data[,sapply(df_data,is.numeric)]
var_list <- data.frame(colnames(df_data_num))
shinyServer(function(input, output) {
output$plots <- renderUI({
plot
浏览 26提问于2017-08-08得票数 1
我在R Shiny应用程序中有4个PickerInputs，输出是从这些输入中过滤出来的数据帧。有时选择这些输入，有时不选择(表示不应用任何过滤器)。
问题:我希望所有这些输入都通过选择彼此来级联。
column(width=2, id="filters",
shinyWidgets::pickerInput(
inputId = "filter_a",
label = 'Filter A',
choices = c(""),
m
浏览 7提问于2021-06-09得票数 0
回答已采纳
我目前正在开发闪亮的应用程序，我需要过滤基于用户选择的数据。使用的输入控件是pickerInput()。我尝试了下面的代码，但它不起作用。
library("shiny")
library("dplyr")
library("shinyWidgets")
mychoices <- c("A", "B", "C", "D", "E","F", "G", "H", "I", "J",
浏览 1提问于2019-04-26得票数 1
回答已采纳
我有一个包含多个变量的数据格式。其中一个是连续的，另一个是绝对的。
我想得到这两个变量之间的wilcoxon检验，这基本上是比较两组样本之间差异的一个度量。当您知道要比较哪些因素时，这是非常容易的。
在基本r中，使用脚本非常容易：
# Pairwise Wilcox Test allow us to obtain multiple tests at the same time
multiple_wilcox <- function(response, factor) {
pairwise.wilcox.test(response, factor, p.adjust.method =
浏览 3提问于2022-02-25得票数 0
1回答
我想为图表上的每一条线设置不同的颜色。目前，当我从两个列表中选择相同的产品时，我在图表上得到相同的颜色。如何为不同年份的同一产品设置不同的颜色？下面是我的代码和示例图： library(plotly)
library(dplyr)
library(shiny)
library(shinyWidgets)
library(readxl)
library(tidyr)
df1 <- data.frame(Month = rep(month.abb[1:12],10,replace = TRUE), Product = rep(LETTERS[1:10], each = 12),
浏览 7提问于2019-10-07得票数 0
回答已采纳
我一直在处理shiny中的一个过滤图，并希望合并Plotly图。但是，每当我尝试使用Plotly绘图时，我都会得到一个空白图形。下面是我的尝试(没有Plotly)我如何尝试集成Plotly。 工作(不是插图) library(shinydashboard)
library(tidyverse)
library(plotly)
library(shiny)
#______________________________________________________________________________#
server <- function(input, output, s
浏览 6提问于2021-07-01得票数 0
我正在构建一个小应用程序来总结一些数据。我的结果表中有多个类别的值，这些类别的总和为给定的总数。现在我希望用户能够输入不同的类别，并获得这些类别的统计数据的总和，或者向他们显示所有类别的总和(因此，选择所有类别与选择总和相同)。为了让应用程序看起来更干净一点，我想简单地使用一个selectizeInput。然而，这意味着如果用户选择类别total，他们应该不能选择其他3个类别中的任何一个，并且如果选择了这3个类别中的任何一个，则应该取消选择total。否则，如果用户选择包括总和在内的所有输入，则sum为2*Total (在我的示例中为20而不是10)。 小示例(基于https://shiny
浏览 12提问于2021-06-24得票数 0
1回答
我对此感到有点困惑，我一直在寻找和阅读更多的早晨。试过几件事，但似乎做错了。
我正在尝试制作一个shiny图，它基于选定的输入创建一个ggplot。
下面是我所做工作的一个例子：
library(tidyverse)
library(shiny)
library(shinyWidgets)
subject <- c("A", "A", "A", "B", "B", "B", "C", "C", "C", "D", "D&
浏览 3提问于2020-08-06得票数 0
回答已采纳
2回答
我正在构建一个闪亮的应用程序，允许我的一些非数据人员上传一些文件，一些转换，连接和摘要来自这些文件，并显示一些图形。 这里将使用一个文件和输出作为示例。我试图在列上使用dplyr执行过滤条件，但在上传文件后遇到此错误。 Listening on http://xxx.x.x.x:xxxx
Warning: Error in UseMethod: no applicable method for 'filter_' applied to an object of class "character"
[No stack trace available] 请注意
浏览 20提问于2019-09-06得票数 3
回答已采纳
1回答
对于数据中的两个分类变量，我想根据用户对变量的选择、这些变量的特定因素(以及另一列过滤)来计算fisher测试。
为此，我需要获得应急表，然后应用fisher.test函数。
为了可视化它，这里是如何在R基中实现的：
library(vcd)
library(dplyr)
a <- Arthritis %>%
dplyr::filter(Treatment == "Treated") %>%
dplyr::filter(Improved == "Some") %>%
count() %>%
as.numeric()
浏览 5提问于2021-12-18得票数 0
回答已采纳
1回答
如果我想先得到fisher测试，我需要一个符合条件的表。对于Arthritis包，我可以这样做，只需：
library(vcd)
data(Arthritis)
freq <- as.data.frame.matrix(table(Arthritis$Treatment, Arthritis$Improved))
> freq
None Some Marked
Placebo 29 7 7
Treated 13 7 21
所以我可以举个例子，做一个fisher测试：
Not marked Marked
Place
浏览 3提问于2021-12-17得票数 0
我的许多闪亮应用程序的一个常见场景是，有大量潜在有趣的筛选变量(通常为10到20个)，但我希望避免将用户与太多输入小部件混淆。
因此，我的策略通常如下：1.用户可以选择筛选变量。2.如果选择了至少一个筛选器变量，则会触发一个renderUI，该renderUI包含每个选定变量的一个输入小部件。3.滤波准则应用于数据，并产生一些输出。
问题是，步骤一中的任何更改(通过添加或删除筛选器变量)都消除了第二步中所有先前作出的选择。这意味着所有输入小部件都被无意地重置为其默认值。这妨碍了用户体验的顺利进行。知道怎么改进吗？
在这里，您可以看到发生了什么：
下面是再现这种行为的代码：
libra
浏览 0提问于2018-02-09得票数 6
回答已采纳
我有下面的数据框架： DF2 = data.frame(agency_postcode = factor(rep(c(12345,45678,24124,32525,32325),2)),
car_group=factor(rep(c("Microcar","City car","Supermini","Compact","SUV"),2)),
transmission=factor(rep(c("automatic","
浏览 8提问于2019-09-17得票数 0
回答已采纳
1回答
刷新过滤器和表
、、
我有以下代码：
library(shiny)
library(shinydashboard)
library(rhandsontable)
header <- dashboardHeader(title = "Sample", titleWidth = 375)
sidebar <- dashboardSidebar(width = 270,
sidebarMenu(id="mymenu",
menuItem(t
浏览 1提问于2019-11-25得票数 0
回答已采纳
根据第三个选项的选择，尝试更新两个pickerInput的选定值会导致小部件本身出现故障(无法选择/取消选择某些值，其他选择器不更新)。
使用下面的starwars数据集和预期结果的示例。
if (interactive()) {
library(shiny)
library(shinyWidgets)
library(dplyr)
df <- head(starwars, 20)
ui <- fluidPage(
pickerInput(inputId = "p1",
label = "Hair color",
浏览 12提问于2022-04-28得票数 1
回答已采纳
我通过reactive返回一个分组的绘图对象，并希望交替渲染超链接和绘图。 我试着制作一个带有交替标签的标记表 #UI Snippet
mainPanel(uiOutput("plots"))
#Server Snippet
plots2 <- data.test.consecutive.filter %>%
group_by(SupplierKey, MaterialKey, TareRange,URL) %>%
arrange (SupplierKey, MaterialKey, TareRange, ShipmentD
浏览 33提问于2019-09-12得票数 1
我正在尝试构建一个叶地图，用户可以在其中单击一次多边形来表示它的重要性较低，两次表示中等重要性，三次表示高度重要性。我想第一次点击多边形变成黄色，第二次点击它变成橙色，第三次点击变成红色。 我发现这两个帖子一旦多边形最初被选中，就会变成红色，然后双击它就会删除它。 Changing styles when selecting and deselecting multiple polygons with Leaflet/Shiny Select multiple items using map_click in leaflet, linked to selectizeInput() in sh
浏览 25提问于2021-10-18得票数 2
回答已采纳
我已经创建了一个基本的闪亮应用程序，它使用不同的过滤器将数字输出绘制到条形图；一个过滤器，允许用户选择一个“名称”和一个与该名称相关联的“类型”。“名称”筛选器已启用多选，而“类型”筛选器未启用。一切都运行得很好，除了我意识到我的代码结构方式不允许我绘制所有我想要的不同组合。
#----df creation
name<-c("a","a","b","b","c","c")
type<-c("red","blue","blue","
浏览 13提问于2018-12-20得票数 1
2回答
我正在尝试用相互依赖的selectInput()做一个闪亮的应用程序，它看起来在“小”数据帧上工作得很好，但在“大”数据帧上崩溃了。下面是我的示例，其中包含两个数据帧:首先，您可以使用这两个数据帧启动应用程序，只需注释您不想在输出中显示的数据帧。性能有问题吗?我必须使用data.table吗？或者是updateSelectInput()函数的问题？
谢谢
library(shiny)
library(dplyr)
library(DT)
# df <- tibble(LETTERS = rep(LETTERS, 2), Numbers = as.character(1:52),
#
浏览 15提问于2019-08-13得票数 1
回答已采纳
示例：
下面的示例app.R文件包含一个selectizeInput UI。可以使用options = list(plugins= list('remove_button'))删除选定的元素。
library(shiny)
library(dplyr)
ui= fluidPage(
sidebarLayout(
sidebarPanel(
selectizeInput(inputId= "cyl", label= "cyl",
choices= sort(unique
浏览 6提问于2017-02-11得票数 4
我正在尝试用can过滤datatable构建一个动态应用程序，我想要的是，当我为我的第一个varible选择一个模式时，我的下一个过滤器将被更新，并且只使用与我的第一个过滤器相对应的模式，而对于第三个过滤器，我从一个反应性的应用程序开始，但是它似乎不起作用，因为我必须始终保留“所有”选项来显示其他模式，并在...is之后删除它--这是可能的吗？因此，我决定添加一个动作按钮，但似乎对我的更新输入不起作用。
我怎么才能修好它？谢谢
我的应用程序的一个例子：
library(shiny)
library(dplyr)
library(DT)
ui <- fluidPage(
title
浏览 1提问于2017-01-09得票数 1
回答已采纳
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
对象存储
腾讯会议
实时音视频活动推荐
腾讯云开发者
