Revert

Author: renkun-ken

R/completion.R

@@ -468,17 +468,6 @@ completion_reply <- function(id, uri, workspace, document, point, capabilities)
 
     completions <- list()
 
-    if (token_result$accessor == "") {
-        call_result <- document$detect_call(point)
-        if (nzchar(call_result$token)) {
-            completions <- c(
-                completions,
-                arg_completion(uri, workspace, point, token,
-                    call_result$token, call_result$package,
-                    exported_only = call_result$accessor != ":::"))
-        }
-    }
-
     if (nzchar(full_token)) {
         if (is.null(package)) {
             completions <- c(completions,
@@ -494,6 +483,17 @@ completion_reply <- function(id, uri, workspace, document, point, capabilities)
                 workspace, token, package, token_result$accessor == "::", snippet_support))
     }
 
+    if (token_result$accessor == "") {
+        call_result <- document$detect_call(point)
+        if (nzchar(call_result$token)) {
+            completions <- c(
+                completions,
+                arg_completion(uri, workspace, point, token,
+                    call_result$token, call_result$package,
+                    exported_only = call_result$accessor != ":::"))
+        }
+    }
+
     if (is.null(token_result$package)) {
         existing_symbols <- vapply(completions, "[[", character(1), "label")
         completions <- c(