Add forceUpdate = TRUE to deploy

schloerke · web-flow · commit d72fb181c0de · 2024-11-12T11:19:12.000-05:00
diff --git a/deploy b/deploy
@@ -146,7 +146,7 @@ if (opts$all) {
 deployApps <- function(app) {
   cat('-------- Deploying', app, '--------\n')
   if (opts$deploy) {
-    res <- try(rsconnect::deployApp(app, account = opts$account, server = opts$server))
+    res <- try(rsconnect::deployApp(app, account = opts$account, server = opts$server, forceUpdate = TRUE))
     if (inherits(res, 'try-error')) {
       return(1)
     }

Original file line number	Diff line number	Diff line change
`@@ -146,7 +146,7 @@ if (opts$all) {`
`146`	`146`	`deployApps <- function(app) {`
`147`	`147`	`cat('-------- Deploying', app, '--------\n')`
`148`	`148`	`if (opts$deploy) {`
`149`		`- res <- try(rsconnect::deployApp(app, account = opts$account, server = opts$server))`
	`149`	`+ res <- try(rsconnect::deployApp(app, account = opts$account, server = opts$server, forceUpdate = TRUE))`
`150`	`150`	`if (inherits(res, 'try-error')) {`
`151`	`151`	`return(1)`
`152`	`152`	`}`