Question

我正在使用Shiny / ShinyDashboard-package中的checkboxGroupInput()来让用户（de-）选择图表的元素（MorrisJS）。选择从命名列表作为选项 -Argument传递给更新data.frame（添加和删除元素）的函数。

但是，input$NameOfTheCheckboxGroup仅返回带有所选选项的向量，但不返回列表中成员的标签/名称作为输入。这意味着我只能使用我指定给选择的值来命名元素。

有没有办法改进，所以input$NameOfTheCheckboxGroup也会返回标签/名称？到目前为止，我已经尝试替换绘图中的“y”-Argument以返回列表成员的标签，但这不起作用，因为绘图无法找到数据列。

取代了这个：

y = colnames(de_solar)[2:NCOL(de_solar)]

使用：

y = names(list1[match(colnames(df)[2:NCOL(df)],list1)])

遗憾的是，重命名列表成员不是一种选择。

[UI]

checkboxGroupInput("check_de_solar", label = h3("Label"), 
                                   choices = list("Option1" = 2097,
                                                  "Option2" = 409,
                                                  "Option3" = 410,
                                                  "Option4" = 411,
                                                  "Option5" = 412,
                                                  "Option6" = 2106,
                                                  "Option7" = 2107,
                                                  "Option8" = 2108,
                                                  "Option9" = 2109, 
                                                  "Option10" = 731),
                                                  selected = 2097)

[SERVER]

  output$de_solar <- renderChart2({

    de_solar <<- checkbox_call(df_data,"de_solar",input$check_de_solar)
    grph2 <- mPlot(x = "Date", y = colnames(de_solar)[2:NCOL(de_solar)], data = de_solar, type = "Line")

  })

为了进一步说明，当前的data.frame de_solar 和list 选项如下所示：

 de_solar = data.frame(replicate(10,sample(0:50,10,rep=TRUE)))
choices = list("Option1" = 2097,
             "Option2" = 409,
             "Option3" = 410,
             "Option4" = 411,
             "Option5" = 412,
             "Option6" = 2106,
             "Option7" = 2107,
             "Option8" = 2108,
             "Option9" = 2109, 
             "Option10" = 731)
 names(de_solar) <- choices

这给了我这个输出：

但我想要相同的输入：

感谢您的帮助。

Answer 1

有没有办法改进，所以input$NameOfTheCheckboxGroup也会返回标签/名称？

不是真的。标签信息不是生成的请求的一部分，因此除非您想要实现自定义客户端逻辑，否则它不是一个选项。只要值是唯一的，它应该不是问题。您可以简单地匹配值并提取名称，例如：

names(choices[choices %in% input$check_de_solar])

其中，choice是字符值的列表：

list("Option1" = "2097", "Option2" = "409", ..., "Option10" = "731")

checkGroupInput返回输入选择的名称（在plot中使用命名列表）

1 个答案: