Now get_section_level() works also with unnumbered sections, fixing r…

…-lib#1654
gustavdelius · Apr 30, 2021 · 1be9934 · 1be9934
1 parent b94fe34
commit 1be9934
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/utils.r b/R/utils.r
@@ -265,8 +265,8 @@ remove_useless_parts <- function(links, pkg) {
 
 get_section_level <- function(section) {
     as.numeric(
-      sub(
-        ".*section level", "",
+      gsub(
+        ".*section level(\\d+).*", '\\1',
         xml2::xml_attr(section, "class")
       )
     )