moved TODO

douwe · douwe · commit 0cd29664a44c · 2025-04-02T11:01:40.000+02:00
diff --git a/R/read.R b/R/read.R
@@ -118,6 +118,7 @@ read_table <- function(drfile, sheet, ranges, translate = FALSE, translations =
 #' @noRd
 #'
 plate_to_df <- function(d) {
+  # TODO: handle plate formats generically
   var <- names(d)[1]
   newdf <- tibble::tibble(
     row = rep(LETTERS[1:8], 12),
@@ -126,7 +127,6 @@ plate_to_df <- function(d) {
       as.vector()
   )
 
-  # TODO: handle plate formats generically
   names(newdf) <- c("row", "col", var)
   newdf
 }

Original file line number	Diff line number	Diff line change
`@@ -118,6 +118,7 @@ read_table <- function(drfile, sheet, ranges, translate = FALSE, translations =`
`118`	`118`	`#' @noRd`
`119`	`119`	`#'`
`120`	`120`	`plate_to_df <- function(d) {`
	`121`	`+ # TODO: handle plate formats generically`
`121`	`122`	`var <- names(d)[1]`
`122`	`123`	`newdf <- tibble::tibble(`
`123`	`124`	`row = rep(LETTERS[1:8], 12),`
`@@ -126,7 +127,6 @@ plate_to_df <- function(d) {`
`126`	`127`	`as.vector()`
`127`	`128`	`)`
`128`	`129`
`129`		`- # TODO: handle plate formats generically`
`130`	`130`	`names(newdf) <- c("row", "col", var)`
`131`	`131`	`newdf`
`132`	`132`	`}`