Thanks for prompting me to re-visit the S-G algorithm. As a result I found https://cran.r-project.org/web/packages/ADPF/ADPF.pdf
which describes an implementation which automatically optimizes the polynomial order. The window width still needs to be chosen by hand.