Fix Rtools detection from the registry

Rtools version numbers have now three parts
in the registry, we need to drop the last part when
matching compatible versions.

NEWS.md

@@ -3,6 +3,9 @@
 * pkgbuild now does a better job at finding Rtools 4.3 and 4.4 if they
   were not installed from an installer.
 
+* pkgbuild now detects Rtools correctly from the Windows registry
+  again for Rtools 4.3 and 4.4
+
 # pkgbuild 1.4.4
 
 * pkgbuild now supports R 4.4.x and Rtools44 (#183).

R/rtools.R

@@ -211,6 +211,12 @@ has_rtools <- function(debug = FALSE) {
   }
 
   # Otherwise it must be ok :)
+
+  # Recently Rtools is versioned properly
+  from_registry$version <- sub(
+    "^([0-9]+[.][0-9]+)[.].*$", "\\1",
+    from_registry$version
+  )
   rtools_path_set(from_registry)
   TRUE
 }
@@ -282,7 +288,9 @@ is_compatible <- function(rtools) {
   }
 
   stopifnot(is.rtools(rtools))
-  info <- version_info[[rtools$version]]
+  version <- rtools$version
+  version <- sub("^([0-9]+[.][0-9]+)[.].*$", "\\1", version)
+  info <- version_info[[version]]
   if (is.null(info)) {
     return(FALSE)
   }