gadgets

MarkEdmondson1234 · Dec 6, 2019 · 4186bce · 4186bce
1 parent 7f2bc11
commit 4186bce
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 5 deletions.
diff --git a/R/buildsteps_templates.R b/R/buildsteps_templates.R
@@ -307,7 +307,6 @@ cr_buildstep_pkgdown <- function(
   pd <- system.file("cloudbuild/cloudbuild_pkgdown.yml",
                     package = "googleCloudRunner")
 
-
   # In yaml.load: NAs introduced by coercion: . is not a real
   pdb <- suppressWarnings(cr_build_make(pd))
 
@@ -321,11 +320,12 @@ cr_buildstep_pkgdown <- function(
                           cipher = cipher),
     cr_buildstep_git(c("clone",repo, "repo")),
     pkg_env,
-    cr_buildstep_git(c("add", "."), dir = "repo"),
+    cr_buildstep_git(c("add", "--all"), dir = "repo"),
     cr_buildstep_git(c("commit", "-a", "-m",
                        "[skip travis] Build website from commit ${COMMIT_SHA}: \
 $(date +\"%Y%m%dT%H:%M:%S\")"),
                      dir = "repo"),
+    cr_buildstep_git(c("status"), dir = "repo"),
     cr_buildstep_git("push", repo, dir = "repo")
   )
 

diff --git a/R/rstudio_gadget.R b/R/rstudio_gadget.R
@@ -52,17 +52,17 @@ cr_deploy_gadget <- function(){
 
     ## Your reactive logic goes here.
     output$rSourceDyn <- shiny::renderUI({
-      shiny::req(input$rSourceDyn)
+      shiny::req(input$rSource)
 
-      ss <- input$rSourceDyn
+      ss <- input$rSource
       if(ss == "None"){
         return(NULL)
       } else if(ss == "CloudRepository"){
         return(
           shiny::tagList(
             shiny::textInput("source1", label = "repoName",
                              placeholder = "MarkEdmondson1234/googleCloudRunner"),
-            shiny::textInput("source2", label = "branchName",
+            shiny::textInput("source2", label = "branchName regex",
                              value = ".*")
           )
         )