ourMELONS/R/kldiv2str.R

kldiv2str <- function(div, max_chars = 6L) {
  if (max_chars > 6L) message("max_chars > 6L, truncating to 6L")
  mjono <- rep(" ", max_chars)
  if (abs(div) < 100) {
    # Ei tarvita e-muotoa
    if (max_chars >= 6) mjono[6] <- as.character((floor(div * 1000)) %% 10)
    if (max_chars >= 5) mjono[5] <- as.character((floor(div * 100)) %% 10)
    if (max_chars >= 4) mjono[4] <- as.character((floor(div * 10)) %% 10)
    mjono[3] <- "."
    mjono[2] <- as.character((floor(div)) %% 10)
    arvo <- (floor(div / 10)) %% 10
    if (arvo > 0) {
      mjono[1] <- as.character(arvo)
    }
  } else {
    suurinYks <- floor(log10(div))
    mjono[6] <- as.character(suurinYks)
    mjono[5] <- "e"
    mjono[4] <- palautaYks(abs(div), suurinYks - 1)
    mjono[3] <- "."
    mjono[2] <- palautaYks(abs(div), suurinYks)
  }
  return(mjono)
}