chore: fix some comments

averissimo · averissimo · commit b326567f29ad · 2025-11-05T17:41:08.000Z
diff --git a/R/tm_rmarkdown.R b/R/tm_rmarkdown.R
@@ -99,7 +99,7 @@ tm_rmarkdown <- function(label = "RMarkdown Module",
   ans
 }
 
-# UI function for the outliers module
+# UI function for the rmarkdown module
 ui_rmarkdown <- function(id, rmd_file, allow_download, ...) {
   args <- list(...)
   ns <- NS(id)
@@ -129,8 +129,7 @@ ui_rmarkdown <- function(id, rmd_file, allow_download, ...) {
   )
 }
 
-# Server function for the outliers module
-# Server function for the outliers module
+# Server function for the rmarkdown module
 srv_rmarkdown <- function(id, data, rmd_file, allow_download) {
   checkmate::assert_class(data, "reactive")
   checkmate::assert_class(isolate(data()), "teal_data")

Original file line number	Diff line number	Diff line change
`@@ -99,7 +99,7 @@ tm_rmarkdown <- function(label = "RMarkdown Module",`
`99`	`99`	`ans`
`100`	`100`	`}`
`101`	`101`
`102`		`-# UI function for the outliers module`
	`102`	`+# UI function for the rmarkdown module`
`103`	`103`	`ui_rmarkdown <- function(id, rmd_file, allow_download, ...) {`
`104`	`104`	`args <- list(...)`
`105`	`105`	`ns <- NS(id)`
`@@ -129,8 +129,7 @@ ui_rmarkdown <- function(id, rmd_file, allow_download, ...) {`
`129`	`129`	`)`
`130`	`130`	`}`
`131`	`131`
`132`		`-# Server function for the outliers module`
`133`		`-# Server function for the outliers module`
	`132`	`+# Server function for the rmarkdown module`
`134`	`133`	`srv_rmarkdown <- function(id, data, rmd_file, allow_download) {`
`135`	`134`	`checkmate::assert_class(data, "reactive")`
`136`	`135`	`checkmate::assert_class(isolate(data()), "teal_data")`