I often get errors like this when my object is grouped. Try first to ungroup:

phy1 %>%
    ungroup() %>%
    filter(sampleType == input$sample.type, site == input$cave)