fix: no space after left parenthesis

Author: maelle

R/unleash.R

@@ -118,7 +118,8 @@ handle_text <- function(text) {
   next_sibling <- xml2::xml_find_all(text, "following-sibling::*[1]")
   if (length(next_sibling) > 0 && xml2::xml_name(next_sibling) == "link") {
     end_space <- endsWith(xml2::xml_text(text), " ")
-    if (!end_space) {
+    end_left_parenthesis <- endsWith(xml2::xml_text(text), "(")
+    if (!end_space && !end_left_parenthesis) {
       xml2::xml_text(text) <- paste0(xml2::xml_text(text), " ")
     }
   }

inst/example.md

@@ -29,4 +29,6 @@ This is a footnote [^ok].
 
 [^ok]: Some more information.
 
-R has well-developed plotting capabilities, and the `ggplot2` package is one of, if not the most powerful pieces of plotting software available today!!! We will begin learning to use `ggplot2` in the next episode.
+R has well-developed plotting capabilities, and the `ggplot2` package is one of, if not the most powerful pieces of plotting software available today!!! We will begin learning to use `ggplot2` in the next episode.
+
+This is a link in parentheses ([example](https://example.com)).

tests/testthat/_snaps/unleash.md

@@ -34,4 +34,6 @@
       [29] ""                                                                                                                                                        
       [30] "R has well-developed plotting capabilities, and the `ggplot2` package is one of, if not the most powerful pieces of plotting software available today!!!"
       [31] "We will begin learning to use `ggplot2` in the next episode."                                                                                            
+      [32] ""                                                                                                                                                        
+      [33] "This is a link in parentheses ([example](https://example.com))."