小编Adr*_*nte的帖子

我正在尝试构建一个闪亮的应用程序，它根据用户条目过滤数据框，但是，我正在努力使用我创建的函数来执行此任务，错误Problem with 'filter()' input '..1'. x Input '..1' must be of size 9 or 1, not size 0.不断出现。我在这里发现了类似的问题，但答案没有帮助。

这是我的代码。这里还有带有示例数据的xlsx和csv文件。

我非常感谢你的帮助

library(shiny)
library(dplyr)
library(shinythemes)
library(shinydashboard)
library(shinyjs)

ui <- fluidPage(
  useShinyjs(),
  theme = shinytheme("flatly"),
  tabsetPanel(
    id = "tabs",
    tabPanel("Portafolio",
             sidebarLayout(
               sidebarPanel(
                 titlePanel("Seleccione las variables deseadas"),
                 uiOutput('fondo'),
                 uiOutput('reg'),
                 uiOutput('seguro'),
                 uiOutput('prod_sap'),
                 hr(),
                 actionButton("addbutton","Añadir")
               ),
               mainPanel(
                 titlePanel("Vista previa del portafolio"),
                 tableOutput('courseTable'),
                 actionButton(inputId = "continue", label = "Cotizar")
               )
             )
    ),
    tabPanel("Cotización",
             tableOutput('envio'))
  )
  )


server …