R能否查看C或C++源码

最近在搞SNA，由于内存限制，想改一下源代码：

geo <- .Call("geodist_R", dat, n, m, as.integer(1), count.paths,

predecessors, NAOK = TRUE, PACKAGE = "sna")

如上面的代码，在R中能否查看到geodist_R的源代码。

比较急，希望各位大牛指点一二，先谢过

回复第1楼的 ziyenano：

R 是开源的，其包多数也都是开源的，可以直接从 r-project 上下到。

回复第2楼的 lyxmoo：先谢过版主~ 包可以下到，调用的C代码也可以下到么

回复第3楼的 ziyenano：

你下过了，你看了，你看到了木有？

我从来就是小马过河，试了再说。