oop code snippets in r

how do i change a s4 into a data frame in r