#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))
}
)}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.