Create str-switch.R