Remove unused internal utilities

IndrajeetPatil · IndrajeetPatil · commit 0bcfa84578fe · 2022-08-25T18:36:42.000+02:00
diff --git a/R/utils.R b/R/utils.R
@@ -48,24 +48,13 @@ two_cols_match <- function(col1, col2, data) {
   all(unlist(data[col1]) == unlist(data[col2]))
 }
 
-odd <- function(x) {
-  x[odd_index(x)]
-}
-
 odd_index <- function(x) {
   if (length(x) < 1) {
     return(NULL)
   }
   seq(1L, length(x), by = 2)
 }
 
-even <- function(x) {
-  if (length(x) < 2) {
-    return(NULL)
-  }
-  x[even_index(x)]
-}
-
 even_index <- function(x) {
   seq(2L, length(x), by = 2)
 }

Original file line number	Diff line number	Diff line change
`@@ -48,24 +48,13 @@ two_cols_match <- function(col1, col2, data) {`
`48`	`48`	`all(unlist(data[col1]) == unlist(data[col2]))`
`49`	`49`	`}`
`50`	`50`
`51`		`-odd <- function(x) {`
`52`		`- x[odd_index(x)]`
`53`		`-}`
`54`		`-`
`55`	`51`	`odd_index <- function(x) {`
`56`	`52`	`if (length(x) < 1) {`
`57`	`53`	`return(NULL)`
`58`	`54`	`}`
`59`	`55`	`seq(1L, length(x), by = 2)`
`60`	`56`	`}`
`61`	`57`
`62`		`-even <- function(x) {`
`63`		`- if (length(x) < 2) {`
`64`		`- return(NULL)`
`65`		`- }`
`66`		`- x[even_index(x)]`
`67`		`-}`
`68`		`-`
`69`	`58`	`even_index <- function(x) {`
`70`	`59`	`seq(2L, length(x), by = 2)`
`71`	`60`	`}`