从R Shiny中的选定输入过滤

问题描述

尝试根据选定的输入过滤数据库时，我总是遇到错误。我根据虹膜数据集制作了一个非常简单的示例，向大家展示了我的问题：

    ```{r}
    library(flexdashboard)
    library(tidyverse)
    ```
    
    Sidebar {.sidebar}
    =====================================
    
    ```{r}
    
    fluidRow(
      column(7,selectInput("Species","Choose a species",choices = c("setosa","versicolor","virginica"))))
    
    mydata <- reactive({
    iris %>% filter(Species == input$Species)
    })
    
    ```
    
    Results
    ===================================== 
    
    ```{r}
    head(mydata)
    ```

解决方法

由于belongs_to :product belongs_to :country has_one :currency belongs_to :user 是反应式的，因此您必须在反应式上下文中（例如mydata）用mydata()对其进行评估。有关更多信息，请参见flexdashboard with shiny和a shiny tutorial。

renderDT