R/get_digar_overview.R

In peeter-t2/digar.txts: Gets and searches texts from digar.txts

#' Get dataset overview function
#'
#' This function gets the most recent metadata from the file servers and stores it as a variable
#' @keywords data
#' @import data.table
#' @export
#' @examples
#' all_issues <- get_digar_overview()
#'

get_digar_overview <- function(){
  all_issues <- data.table::fread("unzip -p /gpfs/space/projects/digar_txt/text/all_issues_access.zip",sep="\t")[access_now==T]
  if(nrow(all_issues)>100000){print("Issue metadata read")}
  system('printf "readmeta \t $USER \t read_all_issues_metadata \t" >> /gpfs/space/projects/digar_txt/logs/log1.txt; date +"%Y-%m-%d %T" >> /gpfs/space/projects/digar_txt/logs/log1.txt')
  return(all_issues)
}