Merge pull request #92 from bburns632/feature/passCran

Changes to Remain in CRAN Compliance

Author: bburns632

DESCRIPTION

@@ -1,7 +1,7 @@
 Package: pkgnet
 Type: Package
 Title: Get Network Representation of an R Package
-Version: 0.1.0.9000
+Version: 0.2.0.9000
 Authors@R: c(
     person("Brian", "Burns", email = "brian.burns@uptake.com", role = c("aut", "cre")),
     person("James", "Lamb", email = "james.lamb@uptake.com", role = c("aut")),
@@ -25,7 +25,7 @@ Imports:
     methods,
     mvbutils,
     R6,
-    rmarkdown,
+    rmarkdown(>= 1.9),
     tools,
     visNetwork
 Suggests:

NAMESPACE

@@ -46,6 +46,7 @@ importFrom(mvbutils,foodweb)
 importFrom(rmarkdown,render)
 importFrom(tools,file_path_as_absolute)
 importFrom(tools,package_dependencies)
+importFrom(utils,browseURL)
 importFrom(utils,installed.packages)
 importFrom(utils,lsf.str)
 importFrom(visNetwork,visEdges)

R/CreatePackageReport.R

@@ -12,12 +12,13 @@
 #'                   report will be produced in working directory.
 #' @importFrom assertthat assert_that is.string
 #' @importFrom methods is
+#' @importFrom utils browseURL
 #' @return A list of instantiated pkg_reporters fitted to \code{pkg_name}
 #' @export
 CreatePackageReport <- function(pkg_name
                                 , pkg_reporters = DefaultReporters()
                                 , pkg_path = NULL
-                                , report_path = file.path(getwd(), paste0(pkg_name, "_report.html"))
+                                , report_path = tempfile(pattern = pkg_name, fileext = ".html")
                                 ) {
     # Input checks
     assertthat::assert_that(
@@ -51,6 +52,8 @@ CreatePackageReport <- function(pkg_name
       , pkg_name = pkg_name
     )
 
+    utils::browseURL(report_path)
+    
     return(invisible(builtReporters))
 }
 

inst/package_report/header.html

@@ -0,0 +1,4 @@
+<!-- This is HTML code for the header at the top of the page -->
+<nav class="navbar navbar-expand-lg navbar-dark bg-primary">
+    <a class="navbar-brand" href="http://uptakeopensource.github.io/pkgnet">pkgnet</a>
+</nav>

inst/package_report/package_dependency_reporter.Rmd

@@ -1,7 +1,3 @@
----
-title: "Package Dependency Report"
-output: html_document
----
 
 ## Dependency Network
 

inst/package_report/package_report.Rmd

@@ -1,30 +1,22 @@
 ---
-name: "pkgnet"
+title: "`r params$pkg_name`" 
 output:
   html_document:
     self_contained: TRUE
     theme: flatly
     include:
+      in_header: header.html
       after_body: footer.html
 params:
    reporters: params$reporters
    pkg_name: params$pkg_name
 ---
 
-<!-- This is HTML code for the header at the top of the page -->
-<nav class="navbar navbar-expand-lg navbar-dark bg-primary">
-  <a class="navbar-brand" href="http://uptakeopensource.github.io/pkgnet">pkgnet</a>
-</nav>
-
 ```{r setup, include=FALSE}
 knitr::opts_chunk$set(echo = FALSE)
 pkgnet:::silence_logger()
 ```
 
-```{r title, results="asis"}
-cat(sprintf("# %s", pkg_name))
-```
-
 ```{r}
 reportTabs <- lapply(params$reporters, function(reporter) {
   report_env <- list2env(list(reporter = reporter))
@@ -33,6 +25,7 @@ reportTabs <- lapply(params$reporters, function(reporter) {
     , envir = report_env
   )
 })
+
 ```
 
 ```{r results="asis"}

inst/package_report/package_summary_reporter.Rmd

@@ -1,7 +1,3 @@
----
-title: "Package Summary Report"
-output: html_document
----
 
 ## Package Summary