我正在尝试使用 制作一个应用程序shiny
,当我使用下面的代码运行该应用程序时出现错误。
错误:
\nWarning: Error in : Problem with `filter()` input `..2`.\n\xe2\x84\xb9 Input `..2` is `site == input$cueva`.\nx Input `..2` must be of size 672 or 1, not size 0.\n 202: <Anonymous>\n\n
Run Code Online (Sandbox Code Playgroud)\nlibrary(shiny)\nlibrary(shinyWidgets)\n\nsampleTypeVector <- c("Tapete microbiano", "Estromatolito", "Sedimento", "Suelo")\ncaves <- c("Chimalacatepec", "Iglesia")\n\nui <- fluidPage(\n titlePanel("Taxonomic composition"),\n \n fluidRow(\n column(4, " ", \n pickerInput("sample.type", label = "Sample", \n choices = sampleTypeVector,\n multiple = TRUE,\n options = pickerOptions(\n actionsBox = TRUE\n ))),\n column(8, " ",\n pickerInput("cave", label …
Run Code Online (Sandbox Code Playgroud)