chore: Adapt script

Author: krlmlr

tools/80-unsupported.R

@@ -1,7 +1,7 @@
 check_r_script <- function(path) {
   lines <- readLines(path)
 
-  not_implemented <- any(grepl("No relational implementation for ", lines))
+  not_implemented <- any(grepl("No relational implementation for |instead of ..code group_by... and ..code ungroup...", lines))
 
   if (not_implemented) {
     return(tools::file_path_sans_ext(basename(path)))
@@ -22,10 +22,10 @@ lines <- c(
   "#' Verbs not implemented in duckplyr",
   "#'",
   "#' The following dplyr generics have no counterpart method in duckplyr.",
-  "#' If you want to help add a new verb, ",
+  "#' If you want to help add a new verb,",
   "#' please refer to our contributing guide <https://duckplyr.tidyverse.org/CONTRIBUTING.html#support-new-verbs>",
-  "#' @rdname not-supported",
-  "#' @name not-supported",
+  "#' @rdname unsupported",
+  "#' @name unsupported",
   "#' @section Unsupported verbs:",
   "#' For these verbs, duckplyr will fall back to dplyr.",
   paste(paste0("#' - [", not_implemented, "()]"), collapse = "\n"),