dev version suffix (#7340)

Author: jangorecki

.github/workflows/pkgup.yaml

@@ -12,7 +12,7 @@ on:
     branches:
       - 'master'
 
-name: pkgup-deploy
+name: pkgup
 
 jobs:
   build:
@@ -39,6 +39,7 @@ jobs:
           Rscript -e 'stopifnot(file.copy("DESCRIPTION", file.path(tdir<-tempdir(), "PACKAGES"))); db<-available.packages(paste0("file://", tdir)); deps<-setdiff(tools::package_dependencies(read.dcf("DESCRIPTION", fields="Package")[[1L]], db, which="most")[[1L]], installed.packages(priority="high")[,"Package"]); if (length(deps)) { ap<-available.packages()[,"Version"]; ap<-ap[names(ap) %in% deps]; if (!all(deps%in%names(ap))) stop("dependencies are not avaiable in repository: ",paste(setdiff(deps, names(ap)), collapse=", ")); ip<-installed.packages()[,"Version"]; ip<-ip[names(ip) %in% deps]; pkgs<-ap[deps]>ip[deps]; install.packages(names(pkgs[pkgs|is.na(pkgs)]), INSTALL_opts="--html") }'
       - name: build
         run: |
+          sed -i "0,/^Version: [0-9.]\+$/s//&-$(TZ=UTC git log -1 --format=%ct)/" ./DESCRIPTION
           echo "Revision:" $GITHUB_SHA >> ./DESCRIPTION
           R CMD build .
       - name: check

.gitlab-ci.yml

@@ -77,6 +77,8 @@ build:
     - rm -r bus
   script:
     - sed -i '/^[[:space:]]*$/d' ./DESCRIPTION ## make last line end abruptly; i.e. without a final \n
+    - |
+      sed -i "0,/^Version: [0-9.]\+$/s//&-$(TZ=UTC git log -1 --format=%ct)/" ./DESCRIPTION
     - echo "Revision:" $CI_COMMIT_SHA >> ./DESCRIPTION
     - R CMD build .
     - mkdir -p bus/$CI_JOB_NAME/

R/onLoad.R

@@ -14,6 +14,10 @@
     # check when installed package is loaded but skip when developing the package with cc()
     dllV = if (is.loaded("CdllVersion",PACKAGE="data_table")) .Call(CdllVersion) else "before 1.12.0"
     RV = as.character(packageVersion("data.table"))
+    if (sum(.dots <- charToRaw(RV) == charToRaw(".")) > 2L) {
+      ## trim dev version suffix 1.17.99-1234567890, note that base:::package_version turns `-` into `.` #7339
+      RV = substring(RV, 1L, which(.dots)[3L]-1L)
+    }
     if (dllV != RV) {
       dll = if (.Platform$OS.type=="windows") "dll" else "so"
       # https://bugs.r-project.org/bugzilla/show_bug.cgi?id=17478