在flexmarkdown中创建选择性数据表

Question

我正在尝试为E/JavaBinder: !!! FAILED BINDER TRANSACTION !!! (parcel size = 1026104) D/AndroidRuntime: Shutting down VM I/art: Compiler allocated 6MB to compile void com.example.ExampleModel.writeToParcel(android.os.Parcel, int) E/UncaughtException: java.lang.RuntimeException: android.os.TransactionTooLargeException: data parcel size 1026104 bytes 表单中的datatable对象构建一个选择器。

所以这是我当前的（示例）布局，我正在尝试构建一个反应选择器，它在左侧获取矿物类型输入，然后重新渲染 在这种情况下，整个表只能选择“Rock Type = Type 1”。

完整来源@pastebin在这里：Link

我当前的选择器：

flexmarkdown

我已经能够通过以下方式实现这一点，但我也想为所有/没有分组建立选择。

```{r}
selectInput("input_type","Mineral Type:", data$`Rock Type`)

```

Answer 1

您可以在selectInput中添加所有选项，并检查被动反应：

```{r}
selectInput("input_type","Mineral Type:", c("All", unique(data$`Rock Type`))
```

```{r}
dataInput <- reactive({
  if(input$input_type=="All")
    data
  else
    subset(data,`Rock Type` == input$input_type)
  })

renderDataTable(dataInput())
```