Jquery Remove Function In R