Extract All Function In R