Selektive Erstellung von Databates in Flexmarkdown

Question

Ich versuche, einen Selektor für ein datatable Objekt in meinem flexmarkdown Blatt zu erstellen.

Also das ist mein aktuelles (Beispiel) Layout und ich versuche einen reaktiven Selektor zu bauen, der den Mineraltyp auf der linken Seite einnimmt und dann die gesamte Tabelle wiedergibt, um nur für "Rock Type =" auszuwählen Geben Sie in diesem Fall 1 ein.

Voll Quelle @pastebin hier: Link

Mein Stromselektors:

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

``` 

ich dies erreichen, konnte das unten zu tun, aber ich würde auch in einer Auswahl bauen wie für alle/keine Gruppierungen.

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

renderDataTable(dataInput()) 
``` 

Answer 1

Sie können eine Alle Option zu Ihrem selectInput hinzufügen, dass Sie in der reaktiven überprüfen:

```{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()) 
```