- Java 双重比较
- java - 比较器与 Apache BeanComparator
- Objective-C 完成 block 导致额外的方法调用?
- database - RESTful URI 是否应该公开数据库主键?
我希望我的 Shiny 选择输入:
#2f2d57
但是,我无法让应用同时遵循以上 4 条规则。我的代码如下:
数据:
table <- data.frame(col1 = c(3, 4, 8, 5, 2, 6, 7))
尝试 1
问题:用户无法在selectInput中输入和选择
ui <- fluidPage(
uiOutput("container")
)
server <- function(input, output) {
output$container <- renderUI({
fluidRow(
tags$style("#three_code_zip_selector {color: #ffffff; background-color: #2f2d57;}"),
selectInput('three_code_zip_selector', NULL, choices = c("Please Select Desired Number" = "", table$col1), selectize = F)
)
})
}
shinyApp(ui = ui, server = server)
尝试 2
问题:通过删除selectize = F
,用户可以输入选择,但是背景颜色没有改变。
ui <- fluidPage(
uiOutput("container")
)
server <- function(input, output) {
output$container <- renderUI({
fluidRow(
tags$style("#three_code_zip_selector {color: #ffffff; background-color: #2f2d57;}"),
selectInput('three_code_zip_selector', NULL, choices = c("Please Select Desired Number" = "", table$col1))
)
})
}
shinyApp(ui = ui, server = server)
我也尝试过 selectizeInput
,但似乎仍然存在与上述相同的问题。
尝试 3
问题:用户可以输入,但背景颜色没有改变,并且在 selectizeInput 的顶部有一个我不想要的标签。
ui <- fluidPage(
uiOutput("container")
)
server <- function(input, output) {
output$container <- renderUI({
fluidRow(
tags$style(".selectize-dropdown-content .active {background: #2f2d57; !important;color: #ffffff; !important;}"),
selectizeInput('three_code_zip_selector', "s", choices = c("Please Select Desired Number" = "", table$col1))
)
})
}
shinyApp(ui = ui, server = server)
有人知道我怎样才能满足所有 4 条规则吗?提前致谢!
最佳答案
这是一个纯粹 Shiny 的解决方案:
library(shiny)
table <- data.frame(col1 = c(3, 4, 8, 5, 2, 6, 7))
ui <- fluidPage(
tags$head(tags$style(HTML('
#three_code_zip_selector+ div>.selectize-dropdown{background: #2f2d57; color: #ffffff;}
#three_code_zip_selector+ div>.selectize-input{background: #2f2d57; color: #ffffff;}
'))),
selectizeInput(inputId = 'three_code_zip_selector', label = NULL, choices = table$col1, selected = NULL, multiple = TRUE, options = list('plugins' = list('remove_button'), placeholder = "Please Select Desired Number", 'create' = TRUE, 'persist' = TRUE)))
server <- function(input, output, session){}
shinyApp(ui = ui, server = server)
关于javascript - Shiny 的自定义 selectInput/selectizeInput,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/52824678/
我在下面有一些数据,用于在 R Shiny 中创建圆环图,其中 date是一个字符。我希望能够选择我想要查看其分数的电子邮件,但是在第二个下拉选择中只能看到该电子邮件具有事件的日期。 例如,如果我在第
我有两个 selectInput,我希望第一个(品牌)中的选择更改第二个(糖果)中的可能选择。因此,例如,如果有人在第一个输入框中选择“雀巢”,那么第二个框中只会显示雀巢糖果。我的数据表有一列“品牌”
每当具有不同输入 ID 的另一个 selectInput 的值发生变化时,我需要更改一个具有自己输入 ID 的 selectInput 的值。 在 javascript 中,这将是 onchage,但
下面的 R shiny 脚本创建了三个 selectInput,每个 selectInput 的值都取决于前一个 selectInput 的输入值。例如。在脚本中的数据中,“value”列的值取决于“
在下面的 R Shiny 脚本中,我试图使功能使得在第一个子菜单项中,每个 selectInput 值都取决于上一列中的项目选择。数据附上,代码也写好了。但是我无法达到预期的结果。请运行代码并检查,我
我在 .rmd 文件中使用 shiny 并从 .csv 文件中填充一个 selectInput 选择列表,从中获取唯一值一个子集。 我的问题是下拉列表包含我不想要的列标题(在我下面的示例中为“区域”)
我想删除/减少 Shiny 中 selectinput 的标签和选择选项之间的空间。我还想减少两个不同的选择输入之间的空间。 我曾尝试将 selectinputs 包装成 div 样式并将边距和填充设
如何禁用 selectInput() 下拉菜单中的项目? 例如; library(shiny) ui <- fluidPage(selectInput("id1","Select",choices=c
Shiny 的函数 selectInput() 提供了一个选项,可以从带有“multiple = TRUE”的下拉列表中选择多个项目 但是我想限制用户从基础下拉列表中最多可以选择多少个项目。 您能否建
Shiny 的 documentation提到了 selectInput() : selected The value (or, if none was supplied, the title) of
最初我创建了这个带有参数“company id”和“date”的 Shiny 界面,但这里我们遇到了一个问题:大多数人不知道他们的 id 与我们合作的公司,只知道他们的名字,即(McDonalds,R
我有一个 selectInput,其中显示了所有可能的选项。我想实现它,如果用户在框中键入内容并按回车键,它也将作为选项添加。 observeEvent(input$mykeypress, { if(
在一个 Shiny 的应用程序中,有没有办法阻止 selectInput() 中下拉菜单的文本?从包装,如下面的屏幕截图?每个选项都是一个长文本字符串。我希望下拉菜单在一行上显示每个长字符串,而不需要
我想以“可写”的方式修改我的 selectInput。例如,“位置”包含阿姆斯特丹、鹿特丹、海牙等。我想实现一个“可写”的输入选择器。因此,当有人写“Ams..”或“Amster...”时,会显示符合
目标 我想在我的 shinydashboard::box 的页脚中并排放置一个 selectInput 和一个 actionButton。该按钮应该“相对靠近”selectInput不考虑框的宽度。
我正在尝试在我的两个动态链接的 selectInput 小部件中添加一个 ALL 选项,它会过滤到我的主面板中的一个图表。基本上,我希望用户选择一项服务,例如在线或邮购,或所有服务,与 Prof.Lo
如何观察取消选择selectInput的所有元素在 shiny ? 例如 library(shiny) ui=shinyUI(fluidPage( selectInput("select","",
我正在开发一个小型的 Shiny 应用程序,它将提供对一些公开可用的劳动力市场数据的访问。我有一个长格式的相对简单的数据集,类似于下面的摘录: 数据 Geography Measure Time
我正在构建一个 Shiny 的应用程序,用户可以通过从 selectInput() 中选择船只类型来查看各种类型的船只。根据选择,血管被过滤并显示在传单 map 上。但是,selectInput 中的
我遇到嵌套 selectInput 的问题s 在 shiny 内模块。 考虑以下最小示例应用程序 library(shiny) options <- list(A = 1:3, B = 4:6) mo
我是一名优秀的程序员,十分优秀!