Question

我正在尝试在Shiny中创建一个小型应用程序，该应用程序是一个界面，可根据应用程序中几个小部件的选择来创建新的数据框。

我有一个DataTable，可容纳约20个值，然后还有几个不同的单选按钮。用户单击要在DT上激活的行，然后选择其他参数（单选按钮），然后单击操作按钮以将数据追加到数据框（从空白开始并每次添加行）。我具有完整的功能-但在同时选择DT行时，将它们分组到一个选择中时遇到了麻烦。

现在，数据帧输出如下：

EVENT NAME ACTION
A     John Reset
A     Adam Reset
A     James Reset
B     John Login

在此输出中，用户将从单选按钮中选择事件和动作（在这种情况下，是事件“ A”和动作“ RESET”），然后选择所有3个名称以将事件和动作附加到这些用户。但是，当选择了多行时，我希望这些值在表中分组为一个名称。

所需的输出：

EVENT NAME              ACTION
A     John, Adam, James Reset
C     John              Login

我可以更改哪些内容，以便将DT中选择的行组合在一起，而不是附加为唯一行？

这是我的反应性字符串-我在创建最终数据帧时会使用它：

Table.Reactive1 <- reactive({  
  s=input$table1_rows_selected
  #creating table
  eventsTable1 <- data.frame(EVENT = input$checkRadio1,
                             NAME = df1[s,  ],
                             ACTION = input$checkRadio2, 
                             stringsAsFactors = FALSE)

  return(eventsTable1)
})

注意：用户的旅程去了：

1) DataTable -> Click the rows of names you want highlighted 
2) Radio button #1 -> Choose the EVENT category (A, B, C or D) 
3) Radio Button #2 -> Choose the ACTION (Reset, or login) 
4) Click action button to submit the 3 above choices and commit to a new DataTable output.

闪亮：DataTable活动行选择

0 个答案: