cleaning comments for basic conversion test

RhysPeploe · RhysPeploe · commit 95e624652098 · 2026-01-09T09:54:50.000Z
diff --git a/tests/testthat/test-convert_age_to_years.R b/tests/testthat/test-convert_age_to_years.R
@@ -1,7 +1,8 @@
 test_that("convert_age_to_years: basic conversions", {
   df <- tibble::tibble(
     USUBJID = c("P1", "P2", "P3", "P4"),
-    AGE = c(365, 104, 24, 30.7),    # 365 days -> 1 year; 104 weeks -> floor(104/52)=2; 24 months -> floor(24/12)=2; 30.7 years -> floor(30.7)=30
+    AGE = c(365, 104, 24, 30.7),
+    # 365 days -> 1 year; 104 weeks -> floor(104/52)=2; 24 months -> floor(24/12)=2; 30.7 years -> floor(30.7)=30
     AGEU = c("DAYS", "WEEKS", "MONTHS", "YEARS")
   )
 

Original file line number	Diff line number	Diff line change
`@@ -1,7 +1,8 @@`
`1`	`1`	`test_that("convert_age_to_years: basic conversions", {`
`2`	`2`	`df <- tibble::tibble(`
`3`	`3`	`USUBJID = c("P1", "P2", "P3", "P4"),`
`4`		`- AGE = c(365, 104, 24, 30.7), # 365 days -> 1 year; 104 weeks -> floor(104/52)=2; 24 months -> floor(24/12)=2; 30.7 years -> floor(30.7)=30`
	`4`	`+ AGE = c(365, 104, 24, 30.7),`
	`5`	`+ # 365 days -> 1 year; 104 weeks -> floor(104/52)=2; 24 months -> floor(24/12)=2; 30.7 years -> floor(30.7)=30`
`5`	`6`	`AGEU = c("DAYS", "WEEKS", "MONTHS", "YEARS")`
`6`	`7`	`)`
`7`	`8`