cosmetic: "proper" function

maechler · maechler · commit a5baacf8f0de · 2025-06-19T12:59:34.000Z
git-svn-id: https://svn.r-project.org/R/trunk@88329 00db46b3-68df-0310-9c12-caf00c1e9a41
diff --git a/src/library/utils/R/tar.R b/src/library/utils/R/tar.R
@@ -124,11 +124,12 @@ untar <- function(tarfile, files = NULL, list = FALSE, exdir = ".",
     }
 }
 
+##' R's "internal" untar() -- called from of untar(), *not* exported
 untar2 <- function(tarfile, files = NULL, list = FALSE, exdir = ".",
                    restore_times = TRUE)
 {
     ## might be used with len = 12, so result of more than max int
-    getOctD <- function(x, offset, len)
+    getOctD <- function(block, offset, len)
     {
         x <- 0.0
         for(i in offset + seq_len(len)) {

Original file line number	Diff line number	Diff line change
`@@ -124,11 +124,12 @@ untar <- function(tarfile, files = NULL, list = FALSE, exdir = ".",`
`124`	`124`	`}`
`125`	`125`	`}`
`126`	`126`
	`127`	`+##' R's "internal" untar() -- called from of untar(), not exported`
`127`	`128`	`untar2 <- function(tarfile, files = NULL, list = FALSE, exdir = ".",`
`128`	`129`	`restore_times = TRUE)`
`129`	`130`	`{`
`130`	`131`	`## might be used with len = 12, so result of more than max int`
`131`		`- getOctD <- function(x, offset, len)`
	`132`	`+ getOctD <- function(block, offset, len)`
`132`	`133`	`{`
`133`	`134`	`x <- 0.0`
`134`	`135`	`for(i in offset + seq_len(len)) {`