R : Rshiny: Refactoring code

Published --