Выборочное создание данных в flexmarkdown

Question

Я пытаюсь построить селектор для datatable объект в моем flexmarkdown простынь.

Так что это мой текущий (пример) макет, и я пытаюсь создать реактивный селектор, который принимает ввод минерального типа с левой стороны, а затем повторно визуализирует всю таблицу, чтобы выбрать только "Rock Type = Type 1" в этом дело.

Полный источник @pastebin здесь: Ссылка

Мой текущий селектор:

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

```

Я смог добиться этого, выполнив следующие действия, но я также хотел бы создать выборку для всех / без группировок.

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

renderDataTable(dataInput())
```

Answer 1

Вы можете добавить опцию All в свой 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())
```