Как вычислить контрольную цифру для большого числа в R?

Question

Я должен добавить двузначную проверку (оставшуюся деление на 97) на такие цифры, как 52/200005/0001 (слэши должны игнорироваться).

Мой код заключается в следующем, но она не из-за слишком большого числа:

AppendCheckDigits <- function (x) { 
    stopifnot(is.character(x) & length(x) == 1 & nchar(x) == 14) 
    cd <- as.integer(paste(substring(x, 1, 2), 
         substring(x, 4, 9), 
         substring(x, 11, 14), sep="")) %% 97 
    paste(x, "/", cd, sep="") 
} 

проверить его с:

AppendCheckDigits("52/200005/0001") 

Как я могу решить эту проблему?

Answer 1

Объекты класса integer ограничены примерно 2 * 10^9. Вы должны использовать as.numeric вместо as.integer в функции:

AppendCheckDigits <- function (x) { 
    stopifnot(is.character(x) & length(x) == 1 & nchar(x) == 14) 
    cd <- as.numeric(paste(substring(x, 1, 2), 
         substring(x, 4, 9), 
         substring(x, 11, 14), sep="")) %% 97 
    paste(x, "/", cd, sep="") 
} 

Тогда:

> AppendCheckDigits("52/200005/0001") 
[1] "52/200005/0001/43" 

Обратите внимание, что вы могли бы векторизации и упростить вашу функцию так, например:

AppendCheckDigits <- function (x) { 
    stopifnot(is.character(x) & nchar(x) == rep(14,length(x))) 
    num <- as.numeric(gsub("/","", x)) %% 97 
    return(paste0(x, "/", num)) 
} 

Тогда :

> AppendCheckDigits(c("52/200005/0001", "52/200005/0021")) 
[1] "52/200005/0001/43" "52/200005/0021/63" 

Answer 2

Вариант ответа @ Джуба, используя путь к файлу и заменял все не цифры:

AppendCheckDigits <- function (x) { 
    stopifnot(is.character(x) & nchar(x) == rep(14,length(x))) 
    num <- as.numeric(gsub("\\D","", x)) %% 97 
    file.path(x, num) 
} 

AppendCheckDigits(c("52/200005/0001", "52/200005/0021")) 
## [1] "52/200005/0001/43" "52/200005/0021/63" 

Больше для различных способов, которыми это может быть приближенным, если будущая поисковой была аналогичной проблема, это может дать альтернативы.