Skip to content

Commit

Permalink
add #nocov tags
Browse files Browse the repository at this point in the history
  • Loading branch information
eddelbuettel committed Dec 2, 2016
1 parent a09e365 commit 3af942b
Show file tree
Hide file tree
Showing 2 changed files with 5 additions and 5 deletions.
8 changes: 4 additions & 4 deletions R/init.R
Expand Up @@ -3,18 +3,18 @@
packageStartupMessage("The littler package provides 'r' as a binary.")
packageStartupMessage("See 'vignette(\"littler-examples\") for some illustrations.")
if (Sys.info()[["sysname"]] == "Linux") {
if (unname(Sys.which("r")) == "") {
if (unname(Sys.which("r")) == "") { # nocov start
packageStartupMessage("You could link to the 'r' binary installed in\n'",
system.file("bin", "r", package="littler"), "'\n",
"from '/usr/local/bin' in order to use 'r' for scripting.")
}
} # nocov end
}
if (Sys.info()[["sysname"]] == "Darwin") {
if (Sys.info()[["sysname"]] == "Darwin") { # nocov start
packageStartupMessage("On OS X, 'r' and 'R' are the same so 'lr' is an alternate name for littler.")
if (unname(Sys.which("lr")) == "") {
packageStartupMessage("You could link to the 'r' binary installed in\n'",
system.file("bin", "r", package="littler"), "'\n",
"as '/usr/local/bin/lr' in order to use 'lr' for scripting.")
}
}
} # nocov end
}
2 changes: 1 addition & 1 deletion R/test.R
Expand Up @@ -17,6 +17,6 @@ r <- function(usecat=FALSE) {
p <- file.path(system.file(package="littler"),
"bin",
paste0("r", ifelse(.Platform$OS.type=="windows", ".exe", "")))
if (usecat) return(cat(p))
if (usecat) return(cat(p)) # nocov
p
}

0 comments on commit 3af942b

Please sign in to comment.