Add more logging to R/hover.R to trace SYMBOL_SUB

Author: randy3k

R/hover.R

@@ -96,6 +96,9 @@ hover_reply <- function(id, uri, workspace, document, point) {
                 # function parameter
                 funct <- xml_text(xml_find_first(token,
                     "preceding-sibling::expr/SYMBOL_FUNCTION_CALL/text()"))
+                package <- xml_text(xml_find_first(token,
+                    "preceding-sibling::expr/SYMBOL_PACKAGE/text()"))
+                logger$info("SYMBOL_SUB detected, funct:", funct, "package:", package)
                 if (!is.na(funct)) {
                     package <- xml_text(xml_find_first(token,
                         "preceding-sibling::expr/SYMBOL_PACKAGE/text()"))
@@ -105,7 +108,9 @@ hover_reply <- function(id, uri, workspace, document, point) {
                             row, col, top = TRUE)
                         xpath <- glue(signature_xpath, row = row,
                             token_quote = xml_single_quote(funct))
+                        logger$info("signature_xpath:", xpath)
                         all_defs <- xml_find_all(enclosing_scopes, xpath)
+                        logger$info("all_defs length:", length(all_defs))
                         if (length(all_defs)) {
                             last_def <- all_defs[[length(all_defs)]]
                             func_line1 <- as.integer(xml_attr(last_def, "line1"))