How to subset SummarizedExperiment object with multiple experiments?

I have a big SummarizedExperiment object. I want to subset all of the tables based on the information in the colData. I think there should be an efficient way rather than piping filters like:

filter <- colData(dat)[id ,which(colData(dat)$parameter) == "cancer" ]
cancer <- assays(dat)[,filter]

Now, I need to do that for all the values of parameter. There should be a complete function somewhere to automate this process and be memory efficient.

Any ideas?