Filter out vignettes without output

Fixes r-universe-org/help#442
r-universe-org · Jul 2, 2024 · b7a09ff · b7a09ff
1 parent 610611c
commit b7a09ff
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/R/buildtools.R b/R/buildtools.R
@@ -115,6 +115,7 @@ latest_tags <- function(repo = '.'){
 vignettes_info <- function(repo, pkg, subdir = ""){
   repo <- gert::git_open(repo = repo)
   vignettes <- as.data.frame(tools::getVignetteInfo(pkg))
+  vignettes <- vignettes[nchar(vignettes$PDF) > 0,] #workaround Sweave bug
   if(nrow(vignettes) > 0){
     df <- vignettes[c('File', 'PDF', 'Title')]
     names(df) <- c("source", "filename", "title")