From 1be993447ebecdd31167e9afa44a16ac225dd5b2 Mon Sep 17 00:00:00 2001 From: Gustav Delius Date: Fri, 30 Apr 2021 19:41:33 +0100 Subject: [PATCH] Now `get_section_level()` works also with unnumbered sections, fixing #1654 --- R/utils.r | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/R/utils.r b/R/utils.r index f88f13e0c..572638567 100644 --- 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") ) )