FUMS/updatePythonScripts.R at master · NMarkgraf/FUMS · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
#
# Quick-Update of the Pandoc Python filter.
#
# (C) in 2018 by Norman Markgraf (nmarkgraf@hotmail.com)
#

filterlist <- c("style.py", "typography.py", "include_exclude.py")

updatePythonFiles <- function(
    master="",
    tmp="tmp-python",
    dest="pandoc-filter",
    repositoryMain="https://github.com/NMarkgraf/",
    repositorySuffix="/archive/master.zip") {
  url <- paste0(repositoryMain, master, repositorySuffix)
  # erzeuge ein temporeres Verzeichnis
  if (dir.exists(tmp)) {
    unlink(tmp, recursive=TRUE, force=TRUE)
  }
  dir.create(tmp)
  # Erzeuge ggf. das Zielverzeichnis
  if (!dir.exists(dest)) {
    dir.create(dest)
  }

  zipfilename <- paste0(master, ".zip")
  # lade ZIP-Datei in das temporäre Verzeichnis
  download.file(url, file.path(tmp, zipfilename))

  # Entpacke die ZIP Datei
  unzip(file.path(tmp, zipfilename), exdir=tmp)

  # Erzeuge Dateiliste
  files <- file.path(tmp, paste0(master, "-master"), list.files(file.path(tmp,paste0(master, "-master")), ".py$"))
  print(files)
  file.copy(files, dest, overwrite = TRUE)
  Sys.chmod(file.path(dest,"*.py"), mode="755")
  unlink(tmp, recursive = TRUE, force = TRUE)
}

for(filter in filterlist) {
    updatePythonFiles(filter)
}