@@ -37,7 +37,7 @@ parse_icov <- function(lines, package_path = "") {
3737        nums  <-  c(idx1 [2L : length(idx1 )]- 1L , length(r1 )) -  idx1 
3838        stopifnot(sum(nums ) ==  nrow(m1 ))
3939        m1 $ functions  <-  unlist(mapply(rep , r1 [idx1 ], nums ,
40-                                       SIMPLIFY = FALSE , USE.NAMES = FALSE ))  
40+                                       SIMPLIFY = FALSE , USE.NAMES = FALSE ))
4141      }
4242    }
4343  }
@@ -65,7 +65,7 @@ parse_icov <- function(lines, package_path = "") {
6565run_icov  <-  function (path , quiet  =  TRUE ,
6666                     icov_path  =  getOption(" covr.icov" " " 
6767                     icov_args  =  getOption(" covr.icov_args" NULL )) {
68-    
68+ 
6969  src_path  <-  normalize_path(file.path(path , " src" 
7070  if  (! file.exists(src_path )) {
7171     return ()
@@ -85,7 +85,7 @@ run_icov <- function(path, quiet = TRUE,
8585  icov_inputs  <-  list.files(path , pattern  =  rex :: rex(" .dyn" end ),
8686                            recursive  =  TRUE , full.names  =  TRUE )
8787  if  (length(icov_inputs ) ==  0L ) {
88-     warning(" no icc .dyn files are generated"    
88+     warning(" no icc .dyn files are generated" 
8989    return ()
9090  }
9191
@@ -97,11 +97,11 @@ run_icov <- function(path, quiet = TRUE,
9797  system_check(icov_path ,
9898        args  =  c(" -prj" " tmp" " -spi" src_path , " pgopti.spi" 
9999                 " -dpi" src_path , " pgopti.dpi" 
100-                  " -include-nonexec"   
100+                  " -include-nonexec" 
101101                 " -txtbcvrg" " bcovg.log" 
102102        quiet  =  quiet , echo  =  ! quiet )
103103  })
104-    
104+ 
105105  lines  <-  readLines(file.path(src_path , " bcovg.log" 
106106
107107  #  generate line coverage
0 commit comments