add get_models function

Example 1 Extract info from text/LLM functions.r

@@ -2,6 +2,12 @@ library(jsonlite)
 library(httr2)
 
 
+get_models <- function(url){
+  test <- request(url) %>% req_perform() %>% resp_body_json 
+  models <- test$models %>% lapply(data.frame) %>% bind_rows()
+  return(models$name)
+}
+
 ask_ollama <- function(url,model,prompt=NULL,message=NULL,sys=NULL,seed=1234, temperature=0){
 
   body_list <- list(