typo

NAMESPACE

@@ -4,5 +4,6 @@ S3method(print,algdoor)
 S3method(print,algoli_core)
 S3method(print,algoli_service)
 export(algdoor)
+export(copy_model)
 export(do_fit)
 export(do_predict)

R/utils.R

@@ -32,3 +32,24 @@ print.algoli_core <- function(x, ...) {
     cat("*",function_id, "\n  ", fun_def$description, "\n")
   }
 }
+
+
+#' copy_model
+
+#' copy_model
+#' @param from  from
+#' @param to to
+#' @param model_id model_id
+#' @keywords algoli
+#' @export
+#' @examples
+#' \dontrun{
+#' copy_model()
+#' }
+copy_model <-function(from, to, model_id){
+  from <- file.path(from,"model",model_id)
+  to <- file.path(to,"model",model_id)
+  dir.create(to, showWarnings = TRUE, recursive = TRUE)
+  file.copy(file.path(from,list.files(from)), to)
+  return(to)
+}

inst/template/model.json

@@ -15,8 +15,6 @@
     }
   },
   "flow" : {
-    "path_store" : "$path_store",
-    "git_store" : "$git_store",
     "friendly": "$friendly$",
     "algoli"  : {
       "service" : {
@@ -26,8 +24,8 @@
       "algorithm" : "$algorithm$",
       "target"    : "$target",
       "predictors" : "$predictors$",
-      "arguments" : "$arguments$",
-      "metrics"   : "$metrics"
-      }
+      "arguments" : "$arguments$"
+    },
+    "metrics"   : "$metrics"
     }
 }

man/copy_model.Rd

+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/utils.R
+\name{copy_model}
+\alias{copy_model}
+\title{copy_model
+copy_model}
+\usage{
+copy_model(from, to, model_id)
+}
+\arguments{
+\item{from}{from}
+
+\item{to}{to}
+
+\item{model_id}{model_id}
+}
+\description{
+copy_model
+copy_model
+}
+\examples{
+\dontrun{
+copy_model()
+}
+}
+\keyword{algoli}