从R Shiny中的选定输入过滤

Ruben 发表于 Dev

鲁本

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


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

斯塔贾

与mydata反应式一样，您必须mydata()在反应式上下文（例如renderDT）中对其进行评估。有关更多信息，请参阅带有光泽的flexdashboard和光泽教程。

---
title: "test"
runtime: shiny
output:
  flexdashboard::flex_dashboard:
  orientation: columns
vertical_layout: fill
theme: bootstrap
---
  

    ```{r global, include = FALSE}
    
    library(flexdashboard)
    library(tidyverse)
    library(DT)
    
    ```
    
    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}
    renderDT({head(mydata())})
    ```

本文收集自互联网，转载请注明来源。

如有侵权，请联系 [email protected] 删除。