example(groupingsets): limit the number of threads (#7632)

aitap · web-flow · commit c90c52ef64ff · 2026-01-26T10:45:41.000-08:00
diff --git a/man/groupingsets.Rd b/man/groupingsets.Rd
@@ -47,6 +47,7 @@ groupingsets(x, \dots)
 \url{https://www.postgresql.org/docs/9.5/static/functions-aggregate.html#FUNCTIONS-GROUPING-TABLE}
 }
 \examples{
+\dontshow{.dt_threads <- setDTthreads(2)}
 n = 24L
 set.seed(25)
 DT <- data.table(
@@ -83,5 +84,6 @@ cube(DT, j = c(list(count=.N), lapply(.SD, sum)), by = c("color","year","status"
 # groupingsets
 groupingsets(DT, j = c(list(count=.N), lapply(.SD, sum)), by = c("color","year","status"),
              sets = list("color", c("year","status"), character()), id=TRUE)
+\dontshow{setDTthreads(.dt_threads); rm(.dt_threads)}
 }
 \keyword{ data }

Original file line number	Diff line number	Diff line change
`@@ -47,6 +47,7 @@ groupingsets(x, \dots)`
`47`	`47`	`\url{https://www.postgresql.org/docs/9.5/static/functions-aggregate.html#FUNCTIONS-GROUPING-TABLE}`
`48`	`48`	`}`
`49`	`49`	`\examples{`
	`50`	`+\dontshow{.dt_threads <- setDTthreads(2)}`
`50`	`51`	`n = 24L`
`51`	`52`	`set.seed(25)`
`52`	`53`	`DT <- data.table(`
`@@ -83,5 +84,6 @@ cube(DT, j = c(list(count=.N), lapply(.SD, sum)), by = c("color","year","status"`
`83`	`84`	`# groupingsets`
`84`	`85`	`groupingsets(DT, j = c(list(count=.N), lapply(.SD, sum)), by = c("color","year","status"),`
`85`	`86`	`sets = list("color", c("year","status"), character()), id=TRUE)`
	`87`	`+\dontshow{setDTthreads(.dt_threads); rm(.dt_threads)}`
`86`	`88`	`}`
`87`	`89`	`\keyword{ data }`