kos59125 / dym Goto Github PK

options(error = DYN::DYM)
logg(10)
## Error: could not find function "logg"
## Did you mean: ['log', 'log2', 'logb']

findSimilarName <- function (x, names, threshold = 2, max_n = 10) 
{
    if (is.na(x)) {
        character(0)
    }
    else {
        names <- na.omit(names)
        d <- as.integer(adist(x, names))
        distance_data <- data.frame(
          names = names, 
          distance = d,
          stringsAsFactors = FALSE
        )[order(d), ]
        distance_data <- distance_data[distance_data$distance <= threshold, ]
        head(distance_data, max_n)$names
    }
}

# Example usage
x <- "logg"
names <- DYM:::getNames(x)

for(i in 0:4)
{
  message("i = ", i)
  print(findSimilarName(x, names, threshold = i))
}
## i = 0
## character(0)
## i = 1
## [1] "log"  "log2" "logb"
## i = 2
## [1] "log"   "log2"  "logb"  "lag"   "load"  "log10" "log1p"
## i = 3
##  [1] "log"   "log2"  "logb"  "lag"   "load"  "log10" "log1p" "aov"   "Arg"   "args" 
## i = 4
##  [1] "log"   "log2"  "logb"  "lag"   "load"  "log10" "log1p" "aov"   "Arg"   "args"

options(error = DYM(option.a=1, option.b=2))