R/publish.R

In kismet303/lopo3000: LoPo 3000 Experimental package using RShiny for interactive LoPo

#library(entiPub)


toGdrive <- function(study,s_path,output_file) {
  
  ###to a lopo is associated a grdive folder (one by clinical event)###
  entiPub:: setup_googledrive_auth(reset = T)  ##only once ??
  
  
  lopo_gdive_path<-"https://drive.google.com/drive/folders/1wqXsNafX272E-EmmY3jhvtu79O9Wjmmg/"
  
  chicken_pdf <- drive_upload(paste0(s_path,"output/",output_file), as_id(paste0(lopo_gdive_path,"l_ae_DSCALL_SE-upload.pdf"))
    
  )
 }



promote_git <- function(study,s_pathhh,program_file,my_commit_comment) { 
  ###to a lopo is associated a github repository (one by clinical event) ###
 
  
  withProgress(message = paste0("Push ",program_file," in production") , value = 0, {
    incProgress(1/2, detail = paste("", 1))
  
   repo<-repository(s_pathhh)
  # print(repo)
   config(repo, 
          user.name = "remusatp",
          user.email = "philippe.remusat@roche.com")
   config(repo)
  
   print(getwd())
   print("AAAA")
   git2r::add(repo,"*")
  
   try(commit(repo,my_commit_comment))
   print(getwd())
 
   git2r::push(repo,credentials = git2r::cred_token())
   
   
   
   #   print(head(repo))
   #   print(config(repo))
   #  print(commits(repo))
  }
 
 
)}