add functions in shiny: trim by expression values; misc