restrict the deletion to bookdown.org records only: #1512 (comment)

yihui · yihui · commit fa7ca782315c · 2025-12-02T09:52:18.000-06:00
diff --git a/R/publish.R b/R/publish.R
@@ -23,8 +23,9 @@ publish_book = function(name = NULL, ...) {
       if (x1) rsconnect::removeAccount(server = 'bookdown.org')
       if (x2) rsconnect::removeServer('bookdown.org')
     }
-    if (readline('Do you want to delete local records of the Connect deployment? Your book will _not_ be deleted (y/n) ') == 'y') {
-      rsconnect::forgetDeployment()
+    if (file.exists(d <- 'rsconnect/documents/index.Rmd/bookdown.org') &&
+        readline('Do you want to delete local records of the bookdown.org deployment? Your book will _not_ be deleted (y/n) ') == 'y') {
+      unlink(d, recursive = TRUE)
     }
   }
   # if no accounts other than shinyapps.io and bookdown.org have been set up on

Original file line number	Diff line number	Diff line change
`@@ -23,8 +23,9 @@ publish_book = function(name = NULL, ...) {`
`23`	`23`	`if (x1) rsconnect::removeAccount(server = 'bookdown.org')`
`24`	`24`	`if (x2) rsconnect::removeServer('bookdown.org')`
`25`	`25`	`}`
`26`		`- if (readline('Do you want to delete local records of the Connect deployment? Your book will _not_ be deleted (y/n) ') == 'y') {`
`27`		`- rsconnect::forgetDeployment()`
	`26`	`+ if (file.exists(d <- 'rsconnect/documents/index.Rmd/bookdown.org') &&`
	`27`	`+ readline('Do you want to delete local records of the bookdown.org deployment? Your book will _not_ be deleted (y/n) ') == 'y') {`
	`28`	`+ unlink(d, recursive = TRUE)`
`28`	`29`	`}`
`29`	`30`	`}`
`30`	`31`	`# if no accounts other than shinyapps.io and bookdown.org have been set up on`