Ne smemo bit vedno tihi:)
Ne smemo bit vedno tihi:)

VezensekKaja/APPR-2015-16,MarvinHerzog/APPR-2015-16,katjakerzic/APPR-2015-16,Jan-hexit/APPR-2015-16,Anchiqua/APPR-2015-16,ZigaP/APPR-2015-16,tinarazic/APPR-2017,NabergojV/APPR-2015-16,janpristovnik/APPR-2017,jaanos/APPR-2015-16,jakov-kavcic/APPR-2015-16,PezdirM14/APPR-2015-16,VidicL13/APPR-2017,jakov-kavcic/APPR-2017,tkordis/APPR-2015-16,PirnovarA/APPR-2015-16,vesnazupanc/APPR-2015-16,marinasirk/APPR-2015-16,natasataskov/APPR-2017,janrems/APPR-2017,jernejbanevec/APPR-2017,mihapelhan/APPR-2015-16,AccipitrisArti/APPR-2017,masterlord99/APPR-2015-16,anjazavrl/APPR-2014-15,ZavbiA/APPR-2017,majorcek/APPR-2017,nastja88/APPR-2017,gasparicdejan/APPR-2015-16,Charisa/APPR-2015-16,jure310/APPR-2015-16,HovnikK15/APPR-2017,jaanos/APPR-2014-15,katykro/APPR-2015-16,PiaM123/APPR-2015-16,LeonHorvat/APPR-2017,UrosKrampelj/APPR-2015-16,stifler9/ANPP-2015-16,StangeljL12/APPR-2015-16,vidamaver/APPR-2017,anamozina/APPR-2015-16,tajadebeljak/APPR-2015-16,ZilavecM14/APPR-2015-16,aniiiim/APPR-2015-16,LampicJ15/APPR-2017,rozmanU14/APPR-2015-16,zantavcar/APPR-2015-16,pdurcik/APPR-2017,jakamun/APPR-2017,darjapet/APPR-2017,valentina2pucer/APPR-2015-16,GalDrnovsek/APPR-2015-16,aleksandrov2/APPR-2015-16,ztrojer/APPR-2017,idawitha/APPR-2017,anamariostarijas/APPR-2017,LonjaTT/APPR-2015-16
if ("silent" %in% ls() && silent) {
  dog <- function (...) {}
} else {
  dog <- cat
}

delete <- dir(pattern = "\\.pdf$", recursive = TRUE, ignore.case = TRUE)
if (length(delete) > 0) {
  cat("Pobrisane bodo sledeče datoteke:\n", delete, "\n")
  if(readline("Nadaljujem? [da/NE]") == 'da') {
    success <- file.remove(delete)
    if (any(!success)) {
      cat("Sledeče datoteke so pobrisane:\n", delete[success], "\n")
      cat("Sledeče datoteke NISO pobrisane:\n", delete[!success], "\n")
    } else {
      cat("Datoteke so pobrisane.\n")
    }
  } else {
    cat("Datoteke niso pobrisane.\n")
  }
} else {
  dog("Ne najdem nobene datoteke PDF.\n")
}
dog("Brišem delovno okolje.\n")
rm(list = ls())

if ("silent" %in% ls() && silent) {
  dog <- function (...) {}
} else {
  dog <- cat
}

delete <- dir(pattern = "\\.pdf$", recursive = TRUE, ignore.case = TRUE)
if (length(delete) > 0) {
  dog("Pobrisane bodo sledeče datoteke:\n", delete, "\n")
  if(readline("Nadaljujem? [da/NE]") == 'da') {
    success <- file.remove(delete)
    if (any(!success)) {
      dog("Sledeče datoteke so pobrisane:\n", delete[success], "\n")
      dog("Sledeče datoteke NISO pobrisane:\n", delete[!success], "\n")
    } else {
      dog("Datoteke so pobrisane.\n")
    }
  } else {
    dog("Datoteke niso pobrisane.\n")
  }
} else {
  dog("Ne najdem nobene datoteke PDF.\n")
}
dog("Brišem delovno okolje.\n")
rm(list = ls())
