add space after # to unify comments for @linksto tag

m7pr · m7pr · commit 3ce2f8c1a4f4 · 2024-10-28T12:50:31.000+01:00
diff --git a/R/module_filter_data.R b/R/module_filter_data.R
@@ -58,7 +58,7 @@ srv_filter_data <- function(id, datasets, active_datanames, data_rv, is_active)
       ".raw_data <- list2env(list(",
       toString(sprintf("%1$s = %1$s", sapply(datanames, as.name))),
       "))\n",
-      "lockEnvironment(.raw_data) #@linksto .raw_data" # this is environment and it is shared by qenvs. CAN'T MODIFY!
+      "lockEnvironment(.raw_data) # @linksto .raw_data" # this is environment and it is shared by qenvs. CAN'T MODIFY!
     )
   )
   filtered_code <- .get_filter_expr(datasets = datasets, datanames = datanames)

Original file line number	Diff line number	Diff line change
`@@ -58,7 +58,7 @@ srv_filter_data <- function(id, datasets, active_datanames, data_rv, is_active)`
`58`	`58`	`".raw_data <- list2env(list(",`
`59`	`59`	`toString(sprintf("%1$s = %1$s", sapply(datanames, as.name))),`
`60`	`60`	`"))\n",`
`61`		`- "lockEnvironment(.raw_data) #@linksto .raw_data" # this is environment and it is shared by qenvs. CAN'T MODIFY!`
	`61`	`+ "lockEnvironment(.raw_data) # @linksto .raw_data" # this is environment and it is shared by qenvs. CAN'T MODIFY!`
`62`	`62`	`)`
`63`	`63`	`)`
`64`	`64`	`filtered_code <- .get_filter_expr(datasets = datasets, datanames = datanames)`