Question

上下文：尝试有效解决我的no visibile binding CMD检查问题。

我尝试了两种if(++a>2 ...：

captureOutput

并下沉

cmd_output <- R.utils::captureOutput(devtools::check(args="--no-tests"))
cmd_output <- utils::capture.output(devtools::check())

无济于事。当我想要CMD注意事项和警告时，我最终得到sink("cmd_output.txt") devtools::check(args="--no-tests") sink() unlink("cmd_output.txt")的输出。

Answer 1

这是我为构建和检查包而遵循的非devtools工作流程。请注意，必须在tarball上执行检查，而不是包目录，因此必须先构建。 devtools无形地做到这一点，但你必须明确这一点。

假设您位于包含目录的目录中（即，从程序包目录向上一级）。

pkg <- "packagename"
version <- read.dcf(paste('.',pkg,'DESCRIPTION',sep='/'))[,'Version']
# build
system2("R", paste0("CMD build ", pkg), stdout = "build.txt", stderr = "build.txt")
# check
system2("R", paste0("CMD check ", pkg, "_", version, ".tar.gz --as-cran"), stdout = "check.txt", stderr = "check.txt")
# install
system2("R", paste0("CMD INSTALL -l ",Sys.getenv('R_HOME'),"/library ", pkg), stdout = "install.txt", stderr = "install.txt")

这会将每个命令的输出转储到自己的文本文件中。

你也可以指定wait = FALSE在不占用你的R的情况下在一个单独的过程中运行它们。如果你的检查需要很长时间，因为你可以从R中继续进行其他工作，这可能很有用。

Hadley还建议，如果您使用check()，则可以访问R CMD check自动生成的检查文件，该文件位于此处：

chk <- check()
# install log
file.path(chk, paste0(as.package(".")$package, ".Rcheck"), "00install.out")
# check log
file.path(chk, paste0(as.package(".")$package, ".Rcheck"), "00check.log")

这可能更方便。

Answer 2

可能并非在所有情况下都有用，但快速简便的解决方案是简单地reprex() check() 的输出：

check_output <- reprex::reprex(devtools::check(), wd = ".")

请注意，如果您不希望输出带有 comment = "" 前缀，则可以使用 "#>"。

编辑：我在尝试解决同样的问题时找到了这个解决方案 - 有效地解决了“无可见绑定”警告。对于其他想要做同样事情的人，这里有一个函数可以提取变量的字符向量，可以将其放入对 globalVariables() 的调用中：

# Helper function to get global variables to specify before running devtools::check()
get_missing_global_variables <- function(wd = getwd()) {
  
  # Run devtools::check() and reprex the results
  check_output <- reprex::reprex(input = sprintf("devtools::check(pkg = '%s', vignettes = FALSE)\n", wd), 
                                 comment = "")
  
  # Get the lines which are notes about missing global variables, extract the variables and 
  # construct a vector as a string
  missing_global_vars <- check_output %>% 
    stringr::str_squish() %>% 
    paste(collapse = " ") %>% 
    stringr::str_extract_all("no visible binding for global variable '[^']+'") %>% 
    `[[`(1) %>% 
    stringr::str_extract("'.+'$") %>%
    stringr::str_remove("^'") %>%
    stringr::str_remove("'$") %>%
    unique() %>%
    sort()
  
  # Get a vector to paste into `globalVariables()`
  to_print <- if (length(missing_global_vars) == 0) {
    "None" 
  } else { 
    missing_global_vars %>% 
      paste0('"', ., '"', collapse = ", \n  ") %>% 
      paste0("c(", ., ")")
  }
  
  # Put the global variables in the console
  cat("Missing global variables:\n", to_print)
  
  # Return the results of the check
  invisible(missing_global_vars)
  
}

如何将R CMD检查的输出发送到文件或变量？

2 个答案: