R shell