24 lines
833 B
R
24 lines
833 B
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)
|
|
}
|