tabla %>%
        group_by_at(input$SelectProfesional) %>%
        summarise_at(input$SelectTiempo,median,na.rm=T)

Necesito que calcule la mediana pero solo para los profesionales que aparecen mas de 20 veces