Android MediaPlayer выдает ошибку на некоторых mp3-файлах

В списке рассылки R-Help есть сообщение точно так же, как и ваше (ранее я упоминал список CRAN).

Здесь ссылка . Существует два предложенных решения:

• В среднем 365,25 / 12 дней в месяц, поэтому следующее выражение дает количество месяцев между d1 и d2:

#test data 
d1 <- as.Date("01 March 1950", "%d %B %Y")    
d2 <- as.Date(c("01 April 1955", "01 July 1980"), "%d %B %Y")
# calculation 
round((d2 - d1)/(365.25/12))

• Другая возможность состоит в том, чтобы получить длину seq.Dates следующим образом:

as.Date.numeric <- function(x) structure(floor(x+.001), class = "Date")
sapply(d2, function(d2) length(seq(d1, as.Date(d2), by = "month")))-1