title: Shiny App: "Error: no applicable method for 'filter_' applied to an object of class "function""
body: <p>I'm trying to share an app to shinyapps.io but report de following error:</p>
  
  <blockquote>
    <p>Error: no applicable method for 'filter_' applied to an object of
    class "function".</p>
  </blockquote>
  
  <p>The erros reports when I publish my app. When I run de app in R studio, dosen´t report any error</p>
  
  <p>The App is in the following code:</p>
  
  <pre><code>data&lt;-read.csv("data3.csv", encoding = "UTF-8", sep = ";")
  ui&lt;-(fluidPage( theme = shinytheme("journal"), tags$head(
    tags$style(HTML("
        @import url('//fonts.googleapis.com/css?family=Lobster|Cabin:400,700');
  
        h1 {
          font-family: 'Lobster', cursive;
          font-weight: 500;
          line-height: 1.1;
          color: blue4;
        }
  
      "))
  ),
  
  headerPanel("Ejecucion de los indicadores"),
      sidebarPanel(
      sliderInput("Ano", "Ano", min = 2012, max = 2016, value = 1), width=3),
    mainPanel(
      plotlyOutput(outputId = "p", height=550, width = 100)
    )
  ))
  
  
  Server&lt;-function(input, output) {
  
    output$p &lt;- renderPlotly({ df_term &lt;- data  %&gt;% dplyr::filter(Ano %in% input$Ano)
  
    g&lt;-ggplot(data = df_term, aes(x =Provincia , y = Indicador)) +
      geom_tile(aes(fill = Cumplio, text = txt), colour = 'white') +theme_classic()+
      theme(axis.text.x = element_text(angle = 90, family="Officina Serif ITC", size = 10), 
            axis.text.y = element_text(family="Officina Serif ITC", size = 10),
            legend.title = element_blank(),
            legend.text=element_text(family="Officina Serif ITC", size = 10),
             axis.title =element_text(colour="black", size = 12, family = "Officina Serif ITC", face = "bold"),
            legend.key.height = unit(10, "cm"), 
            legend.key.width  = unit(1, "cm"),legend.position="bottom")+
  
      scale_fill_manual(values = c("palegreen2","firebrick1","lightgoldenrod1") , na.value="cornsilk3",
                        breaks = c("No cumplio la meta",'Proximo a cumplir la meta','Cumplio la meta'))+ 
  
       labs(x = "", y="")  
  
  
    m &lt;- list(
     l = 200,
     r = 80,
     b = 100,
     t = 100  )
  
    a&lt;-ggplotly(g, tooltip = "text")%&gt;%   layout(autosize = F, width = 1000, height = 600, margin = m)
    a  
    })
  }
  
  shinyApp(ui, Server)
  </code></pre>
  
  <p>I think  the error is in the following line of code:</p>
  
  <pre><code>Server&lt;-function(input, output) {
          output$p &lt;- renderPlotly({ df_term &lt;- data  %&gt;% dplyr::filter(Ano %in% input$Ano)
  </code></pre>
  
  <p>Thanks for all your help! </p>