Fix pak_sitrep() on R-devel

`ver[1,4]` returns `package_version` for
a `package_version` object, and then we
cannot use `ver[1,4] > 9000` because it
cannot convert `9000` into a `package_version`
to do the comparison.

Also, it probably should be 9000 instead of
90000, that must have been a typo.

R/pak-sitrep.R

@@ -119,8 +119,8 @@ get_ver <- function(path) {
   }
   dsc <- read.dcf(desc)
   ver <- package_version(dsc[, "Version"])
-  devver <- ver[1, 4]
-  if (!is.na(devver) && devver >= 90000) {
+  devver <- as.numeric(ver[1, 4])
+  if (!is.na(devver) && devver >= 9000) {
     if ("RemoteSha" %in% colnames(dsc)) {
       sha <- dsc[, "RemoteSha"]
       return(c(ver, sha))