show_rd2.r

library(tools)
show_rd2 <- function(pkg = NULL, file, ...) {
  pkg <- as.package(pkg)
  if (file_ext(file) == "") file <- paste(file, ".Rd", sep ="")

  path <- file.path(pkg$path, "man", file)
  stopifnot(file.exists(path))
  
  temp <- Rd2HTML(path, out = tempfile("Rtxt"), package = pkg$package, 
    ...)
  
  temp_html <- paste0(temp, ".html")
  file.rename(temp, temp_html)  
  
  browseURL(paste0("file://", temp_html))
}
environment(show_rd2) <- environment(load_all)