add R grid code
add basic slide