if (FALSE) {
# Basic usage - auto-detect and test all GGUF models
models_info <- edge_find_gguf_models()
if (!is.null(models_info) && length(models_info$models) > 0) {
# Load the first compatible model
ctx <- edge_load_model(models_info$models[[1]]$path)
result <- edge_completion(ctx, "Hello", n_predict = 20)
edge_free_model(ctx)
}
# Search specific directories
models_info <- edge_find_gguf_models(source_dirs = c("~/Downloads", "~/models"))
# Skip compatibility testing (faster but less reliable)
models_info <- edge_find_gguf_models(test_compatibility = FALSE)
# Copy files instead of creating links
models_info <- edge_find_gguf_models(create_links = FALSE)
# Filter for specific models
models_info <- edge_find_gguf_models(model_pattern = "llama")
}
Run the code above in your browser using DataLab