flexmarkdown 내 선택적 데이터 테이블 생성

Question

datatable 개체의 선택자를 내 flexmarkdown 시트에 작성하려고합니다.

이것은 현재 (레이아웃 예)입니다. 왼쪽에 광물질 입력을 받아서 다시 렌더링하는 반응식 선택기를 작성하려고합니다. 전체 테이블을 "Rock Type = 유형 1 "이 경우. 여기

전체 소스 @pastebin : Link이

나의 현재 선택 : 나는 아래의 일이 아니라 이것을 달성 할 수 있었다있어

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

``` 

이 나는 ​​또한에 대한 선택에 구축하고 싶습니다 전체/그룹 없음.

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

renderDataTable(dataInput()) 
``` 

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