R/examDownload.R

In tpemartin/examR:

examService <- function(){
  list(
    download_exam=download_exam(.root())
  )

}

download_exam <- function(path, logActivity=T){
  filename <- file.path(path,paste0("midterm1_",.id,".Rmd"))
  xfun::read_utf8(
    "https://www.dropbox.com/s/iy2p5mpgukcqk97/midterm1-link.csv?dl=1"
  ) -> linkInfo
  downloadLink=linkInfo[[1]]
  examDateTime=linkInfo[[2]]
  xfun::download_file(downloadLink,
                output=filename, quiet=T)

  if(logActivity) {
    activityReport <- list(
      timestamp=lubridate::format_ISO8601(lubridate::now(), usetz = T),
      id=.id,
      name=.name,
      type=list("exam_download")
    )
    log_activity(activityReport,
                 type="set_up",
                 studentId=.id,
                 logSysEnv=T)
  }



  # chatroom
  as.character(chatroom$id) -> chatroom$id
  loc_chatroom <- which(chatroom$id==.id)
  gitter <- ifelse(
    length(loc_chatroom)==0,
    "",
    paste0(chatroom$roomUrl[loc_chatroom],
           collapse = "\n"))

  xfun::read_utf8(filename) -> contentlines
  stringr::str_replace_all(
    contentlines,
    c("%id%"=.id,
      # "%name%"=.name,
      "%gitter%"=gitter)
  ) -> newContentLines
  xfun::write_utf8(newContentLines, con=filename)
  examDateTime
}


# helpers -----------------------------------------------------------------

upload_log <- function(filename){
  require(lubridate)
  .tempfile =file.path(tempdir(),paste0("log_",Sys.getenv("id"),"_",format_ISO8601(now()),".txt"))
  xfun::write_utf8(paste0(filename, " download at ", now()),con=.tempfile)

  drive_upload(.tempfile,
               activeFolder,
               verbose = F) -> examUpload
}
# library(googledrive)
# drive_ls()
# drive_ls(path="https://drive.google.com/drive/u/0/folders/1i0CKWCLVS99ULX5F9YM6kdtTfI4DF3v9") -> list_files
# list_files[1,] %>%
#   drive_share(
#     role = "reader",
#     type = "anyone"
#   ) -> examFile
# examFile$drive_resource[[1]]$webContentLink -> downloadLink
#
# internalData = load("~/Github/examR/R/sysdata.rda")
# internalData
#
# usethis::use_data(
#   chatroom,
#   activeFolder,
#   downloadLink,
#   rprofileContent, internal = T,
#   overwrite = T
# )