switchr

CRAN incoming feasibility

Maintainer: ‘Gabriel Becker <gabembecker@gmail.com>’

No Authors@R field in DESCRIPTION.
Please add one, modifying
  Authors@R: person(given = "Gabriel",
                    family = "Becker",
                    role = c("aut", "cre"),
                    email = "gabembecker@gmail.com")
as necessary.

CRAN incoming feasibility

Maintainer: ‘Gabriel Becker <gabembecker@gmail.com>’

No Authors@R field in DESCRIPTION.
Please add one, modifying
  Authors@R: person(given = "Gabriel",
                    family = "Becker",
                    role = c("aut", "cre"),
                    email = "gabembecker@gmail.com")
as necessary.

*

*

*

tests

  Running 'winpath.R' [5s]
Running the tests in 'tests/winpath.R' failed.
Complete output:
  > library(switchr)
  > ## if(getOption("repos")["CRAN"] == "@CRAN@")
  > ##     chooseCRANmirror(ind=1L)
  > graceful_inet(TRUE)
  $on
  [1] TRUE
  
  $silent
  [1] FALSE
  
  > checkUrlRoundtrip = function(pth) {
  +     pth = switchr:::normalizePath2(pth)
  +     furl = switchr:::makeFileURL(pth)
  +     pth2 = switchr:::fileFromFileURL(furl)
  +     if(pth != pth2)
  +         stop("Round trip result (", pth2, ") does not match original (", pth, ") when creating file URLs")
  + }
  > 
  > ## regression test to ensure that the roundtrip
  > ## between path and file url is working properly
  > checkUrlRoundtrip(getwd())
  > checkUrlRoundtrip(tempdir())
  > if(switchr:::isWindows())
  +     checkUrlRoundtrip("\\\\localhost\\c$")
  > 
  > ## regreossion test to ensure that package dependencies
  > ## are added to the dontunload list when a package
  > ## is specified
  > bef = switchrDontUnload()
  > af = switchrDontUnload("knitr")
  > stopifnot(all(tools::package_dependencies("knitr", recursive = TRUE)[[1]] %in% af))
  > 
  > 
  > ## regression test for unnecessary (and expensive)
  > ## lazy repo construction when install_packages
  > ## is passed urls for existing repos (the default
  > ## behavior).
  > tmplib = tempdir()
  > trace(lazyRepo, stop)
  Tracing function "lazyRepo" in environment <namespace:switchr>
  Warning: Tracing only in the namespace; to untrace you will need:
  untrace("lazyRepo", where = getNamespace("switchr"))
  [1] "lazyRepo"
  attr(,"package")
  [1] "switchr"
  > install_packages("switchr", repos = defaultRepos(), lib = tmplib)
  Error in rbind(avail1, avail2[new, ]) : 
    number of columns of matrices must match (see arg 2)
  Calls: install_packages ... install_packages -> install_packages -> .install_packages -> rbind
  Execution halted

*

*

*

*

*

*

*

*