k-core from scratch in R

I tried to implement the k-core algorithm in R. However, the result is different from the one in igraph::coreness.