Added control for R