Fix hover on non-function symbol

R/hover.R

@@ -19,14 +19,6 @@ hover_reply <- function(id, uri, workspace, document, point) {
     token_result <- document$detect_token(point)
     range <- token_result$range
 
-    if (is.null(token_result$package)) {
-        signs <- workspace$guess_namespace(token_result$token)
-    } else {
-        signs <- token_result$package
-    }
-
-    sig <- workspace$get_signature(token_result$token, signs,
-        exported_only = token_result$accessor != ":::")
     contents <- NULL
     resolved <- FALSE
 
@@ -46,7 +38,7 @@ hover_reply <- function(id, uri, workspace, document, point) {
             if (token_name %in% c("SYMBOL", "SYMBOL_FUNCTION_CALL")) {
                 # symbol
                 preceding_dollar <- xml_find_first(token, "preceding-sibling::OP-DOLLAR")
-                if (length(preceding_dollar) == 0 && (is.null(signs) || signs != WORKSPACE || is.null(sig))) {
+                if (length(preceding_dollar) == 0) {
                     enclosing_scopes <- xdoc_find_enclosing_scopes(xdoc,
                         row, col, top = TRUE)
                     xpath <- glue(hover_xpath, row = row,
@@ -202,8 +194,30 @@ hover_reply <- function(id, uri, workspace, document, point) {
 
     if (!resolved) {
         contents <- workspace$get_help(token_result$token, token_result$package)
-        if (is.null(contents) && !is.null(sig)) {
+        if (is.null(contents)) {
+            def_text <- NULL
+
             doc <- workspace$get_documentation(token_result$token, token_result$package)
+            signs <- if (is.null(token_result$package)) {
+                workspace$guess_namespace(token_result$token)
+            } else {
+                token_result$package
+            }
+            sig <- workspace$get_signature(token_result$token, signs,
+                exported_only = token_result$accessor != ":::")
+
+            if (is.null(sig)) {
+                def <- workspace$get_definition(token_result$token, token_result$package,
+                    exported_only = token_result$accessor != ":::")
+                if (!is.null(def)) {
+                    def_doc <- workspace$documents$get(def$uri)
+                    def_line1 <- def$range$start$line + 1
+                    def_text <- def_doc$line(def_line1)
+                }
+            } else {
+                def_text <- sig
+            }
+
             doc_string <- NULL
             if (is.character(doc)) {
                 doc_string <- doc
@@ -214,7 +228,10 @@ hover_reply <- function(id, uri, workspace, document, point) {
                     doc_string <- doc$markdown
                 }
             }
-            contents <- c(sprintf("```r\n%s\n```", sig), doc_string)
+            contents <- c(
+                if (!is.null(def_text)) sprintf("```r\n%s\n```", def_text),
+                doc_string
+            )
         }
     }
 

R/workspace.R

@@ -154,7 +154,7 @@ Workspace <- R6::R6Class("Workspace",
 
         get_documentation = function(topic, pkgname = NULL, isf = FALSE) {
             if (is.null(pkgname)) {
-                pkgname <- self$guess_namespace(topic, isf = TRUE)
+                pkgname <- self$guess_namespace(topic, isf = isf)
                 if (is.null(pkgname)) {
                     return(NULL)
                 }

tests/testthat/test-hover.R

@@ -213,6 +213,24 @@ test_that("Hover works with local function", {
     ))
 })
 
+test_that("Hover works across multiple files", {
+    skip_on_cran()
+    client <- language_client()
+
+    withr::local_tempfile(c("defn_file", "query_file"), fileext = ".R")
+    writeLines(c("test <- 1"), defn_file)
+    writeLines(c("test + 1"), query_file)
+
+    client %>% did_save(defn_file)
+    client %>% did_save(query_file)
+
+    result <- client %>% respond_hover(query_file, c(0, 0))
+
+    expect_equal(result$range$start, list(line = 0, character = 0))
+    expect_equal(result$range$end, list(line = 0, character = 4))
+    expect_equal(result$contents, "```r\ntest <- 1\n```")
+})
+
 test_that("Simple hover works in Rmarkdown", {
     skip_on_cran()
     client <- language_client()