add code R and refresh data