Question

我正在尝试使用selectInput函数，并在下拉菜单中要添加空格/空白选项供用户选择。例如：

shinyApp(
  ui = fluidPage(
    selectInput('selalpha', "Select Alpha", choice=c("", "a", "b", "c"), selected ="a")
  ),
  server = function(input, output, session) {

  }
)

在此函数的Choice参数中，我正在传递矢量，例如 choice = c("", "a","b","c")。但是在运行时，我仅在下拉菜单中看到a,b,c选项。

下拉菜单的默认值必须为a，但用户可以选择将其从下拉菜单更改为空格。

Answer 1

而不是使用“”（不带空格的引号），而是“”（它们之间有空格的引号）。

Answer 2

一个小技巧就可以做到。

shinyApp(
  ui = fluidPage(
    selectInput('selalpha', "Select Alpha", choices = c("\a", "a", "b", "c"), selected = "a")
  ),
  server = function(input, output, session) {
  }
)

这会为您提供适当的空白空间，以便您选择。另一种选择：使用\n代替\a。在这种情况下，很难检入selectInput输出，但是肯定会出现空白。因此，要确认使用choices = c("\nz", "a", "b", "c")，您可以在下拉选项中仅看到z。

如何在R中的selectInput中添加空格/空白选项

2 个答案: