Fix #976: Republishing to RPubs is broken from RStudio

rstudio · Oct 12, 2023 · 13f1000 · 13f1000
1 parent 55a7ea3
commit 13f1000
Showing 1 changed file with 10 additions and 2 deletions.
diff --git a/R/rpubs.R b/R/rpubs.R
@@ -144,8 +144,16 @@ rpubsUpload <- function(title,
     recordName <- ifelse(is.null(title) || nchar(title) == 0,
                          basename(recordSource), title)
 
-    rpubsRec <- deploymentRecord(recordName, "", "", "rpubs", "rpubs.com", "rpubs.com", id, id,
-                                 url, as.numeric(Sys.time()))
+    rpubsRec <- deploymentRecord(name=recordName,
+                                 title="",
+                                 username="",
+                                 account="rpubs",
+                                 server="rpubs.com",
+                                 hostUrl="rpubs.com",
+                                 appId=id,
+                                 bundleId=id,
+                                 url=url,
+                                 version=as.numeric(Sys.time()))
     rpubsRecFile <- deploymentConfigFile(recordSource, recordName, "rpubs",
                                    "rpubs.com")
     write.dcf(rpubsRec, rpubsRecFile, width = 4096)