insert binary package - bug when detecting pkgname about drat HOT 4 CLOSED

Can you cook up a patched reg.exp?

Ie some (local) tests would we welcome.

from drat.

I'm not good in regex, maybe strsplit?

f = function(file){
    pkgname = strsplit(file, "_", fixed=TRUE)[[1L]]
    paste(pkgname[-length(pkgname)], collapse="_")    
}
sapply(c("my_pkg_1.0.0.zip","my.pkg_1.0.0.zip"), f)
# my_pkg_1.0.0.zip my.pkg_1.0.0.zip 
#         "my_pkg"         "my.pkg" 

from drat.

Try adding ._ in the first square bracket term here: gsub("^([a-zA-Z0-9]*)_.*", "\\1", "my_pkg_1.0.0.zip")

It may break detection of the package version though.

from drat.

fix already merged in #40

from drat.