updated R.useWith example