Use expr() rather than quote()

juliasilge · juliasilge · commit 3419f0e7fbf3 · 2020-10-22T18:30:08.000-06:00
diff --git a/R/linear_reg_data.R b/R/linear_reg_data.R
@@ -168,7 +168,7 @@ set_pred(
     args =
       list(
         object = expr(object$fit),
-        newx = quote(as.matrix(new_data[, rownames(object$fit$beta)])),
+        newx = expr(as.matrix(new_data[, rownames(object$fit$beta)])),
         type = "response",
         s = expr(object$spec$args$penalty)
       )
diff --git a/R/logistic_reg_data.R b/R/logistic_reg_data.R
@@ -186,10 +186,10 @@ set_pred(
     func = c(fun = "predict"),
     args =
       list(
-        object = quote(object$fit),
-        newx = quote(as.matrix(new_data[, rownames(object$fit$beta)])),
+        object = expr(object$fit),
+        newx = expr(as.matrix(new_data[, rownames(object$fit$beta)])),
         type = "response",
-        s = quote(object$spec$args$penalty)
+        s = expr(object$spec$args$penalty)
       )
   )
 )
diff --git a/R/multinom_reg_data.R b/R/multinom_reg_data.R
@@ -79,10 +79,10 @@ set_pred(
     func = c(fun = "predict"),
     args =
       list(
-        object = quote(object$fit),
-        newx = quote(as.matrix(new_data[, rownames(object$fit$beta[[1]])])),
+        object = expr(object$fit),
+        newx = expr(as.matrix(new_data[, rownames(object$fit$beta[[1]])])),
         type = "response",
-        s = quote(object$spec$args$penalty)
+        s = expr(object$spec$args$penalty)
       )
   )
 )

Original file line number	Diff line number	Diff line change
`@@ -168,7 +168,7 @@ set_pred(`
`168`	`168`	`args =`
`169`	`169`	`list(`
`170`	`170`	`object = expr(object$fit),`
`171`		`- newx = quote(as.matrix(new_data[, rownames(object$fit$beta)])),`
	`171`	`+ newx = expr(as.matrix(new_data[, rownames(object$fit$beta)])),`
`172`	`172`	`type = "response",`
`173`	`173`	`s = expr(object$spec$args$penalty)`
`174`	`174`	`)`
Original file line number	Diff line number	Diff line change
`@@ -186,10 +186,10 @@ set_pred(`
`186`	`186`	`func = c(fun = "predict"),`
`187`	`187`	`args =`
`188`	`188`	`list(`
`189`		`- object = quote(object$fit),`
`190`		`- newx = quote(as.matrix(new_data[, rownames(object$fit$beta)])),`
	`189`	`+ object = expr(object$fit),`
	`190`	`+ newx = expr(as.matrix(new_data[, rownames(object$fit$beta)])),`
`191`	`191`	`type = "response",`
`192`		`- s = quote(object$spec$args$penalty)`
	`192`	`+ s = expr(object$spec$args$penalty)`
`193`	`193`	`)`
`194`	`194`	`)`
`195`	`195`	`)`
Original file line number	Diff line number	Diff line change
`@@ -79,10 +79,10 @@ set_pred(`
`79`	`79`	`func = c(fun = "predict"),`
`80`	`80`	`args =`
`81`	`81`	`list(`
`82`		`- object = quote(object$fit),`
`83`		`- newx = quote(as.matrix(new_data[, rownames(object$fit$beta[[1]])])),`
	`82`	`+ object = expr(object$fit),`
	`83`	`+ newx = expr(as.matrix(new_data[, rownames(object$fit$beta[[1]])])),`
`84`	`84`	`type = "response",`
`85`		`- s = quote(object$spec$args$penalty)`
	`85`	`+ s = expr(object$spec$args$penalty)`
`86`	`86`	`)`
`87`	`87`	`)`
`88`	`88`	`)`