This pull request takes care of the file structure and uploading of files to sharepoint. Still needs to be tested thoroughly. If you want to test the workflow, use:
remotes::install_github(repo = "esciencecenter-digital-skills/training-infrastructure@upload-files", force=T)
library(traininginfrastructure)
ds_xlsx <- read_from_drive()
dat_struct <- get_future_workshops(ds_xlsx)
create_local_folders(dat_struct)
info <- dat_struct[8,] # should be replaced with select function
instr_team <- Microsoft365R::get_team("Instructors")
debrief_doc_info <- get_debrief_doc_info(info)
plan_doc_info <- get_planning_doc_info(info)
comms_doc_info <- get_comms_doc_info(info)
render_debrief_doc(debrief_doc_info)
render_planning_doc(plan_doc_info)
render_comms_doc(comms_doc_info)
create_data_file(info)
upload_docs(instr_team, info, comms = TRUE, debriefing = TRUE, planning = TRUE, data = TRUE) #to be made
#23 below here: these are part of another PR
#create_sharepoint_folder(instr_drv, info)
#create_ws_channel(instr_team, info)
This pull request takes care of the file structure and uploading of files to sharepoint. Still needs to be tested thoroughly. If you want to test the workflow, use: