#'
#' Funktsioon qgis'i algoritmi leidmiseks fraasi järele.
#'
qgis_algorithm_search_by_word <- function(str = NULL) {
  if (is.null(str)) {
    return(NULL)
  }
  # str = "filedownloader"
  ## QGIi algoritmide nimekiri. Jätame 6 esimest päiserida ja viimase rea välja.
  algs <- qgis_algorithms(query = FALSE, quiet = TRUE)
  # Algoritmi otsimine fraasi järele ja vastava indeksi leidmine
  ids <- grep(str, algs$algorithm)
  # leitid algoritmid
  algs.id <- cbind2(ids, algs[ids, ])
  colnames(algs.id) <- c("id", colnames(algs))
  algs.id
}
# qgis_algorithm_search_by_word(str="centroid")
# qgis_algorithm_search_by_word(str="filedownloader")
# qgis_algorithm_search_by_word(str="")
# qgis_algorithm_search_by_word()