SmokeVIP_carousel (R)