R implementation October 21, 2025 by jlamprecht https://github.com/caijun/geoChina/blob/5c6284b/R/cst.R#L101-L107
