making use of R.keys and R.keysIn