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
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
|
#! /usr/bin/Rscript
library(desc)
description <- desc("DESCRIPTION")
citation <- readCitationFile("inst/CITATION")
pkg <- description$get("Package")
debmetadata <- "debian/upstream/metadata"
cat(paste("Contact:",description$get("Maintainer"))
, file = debmetadata, append = FALSE, fill=TRUE)
cat(paste("Name:",description$get("Package"))
, file = debmetadata, append = TRUE, fill=TRUE)
cat("Reference:"
, file = debmetadata, append = TRUE, fill=TRUE)
list_authors <- citation$author
family_name <- list_authors[seq(from = 1, to = length(list_authors), by = 2)]
first_name <- list_authors[seq(from = 2, to = length(list_authors), by = 2)]
list_names <- paste(paste(family_name, first_name), collapse = " and ")
cat(paste(" - Author:",list_names)
, file = debmetadata, append = TRUE, fill=TRUE)
cat(paste(" Title:",citation$title)
, file = debmetadata, append = TRUE, fill=TRUE)
cat(paste(" Journal:",citation$journal)
, file = debmetadata, append = TRUE, fill=TRUE)
cat(paste(" Year:",citation$year)
, file = debmetadata, append = TRUE, fill=TRUE)
cat(paste(" Volume:",citation$volume)
, file = debmetadata, append = TRUE, fill=TRUE)
cat(paste(" Number:",citation$number)
, file = debmetadata, append = TRUE, fill=TRUE)
cat(paste(" Pages:",citation$pages)
, file = debmetadata, append = TRUE, fill=TRUE)
cat(paste(" URL:",citation$url)
, file = debmetadata, append = TRUE, fill=TRUE)
cat(paste(" DOI:",citation$doi)
, file = debmetadata, append = TRUE, fill=TRUE)
if( !is.na(description$get("biocViews")) ){
cat("Registry:"
, file = debmetadata, append = TRUE, fill=TRUE)
cat(" - Name: bio.tools"
, file = debmetadata, append = TRUE, fill=TRUE)
cat(paste0(" Entry: NA FIXME: manually check: https://bio.tools/?page=1&q=",pkg)
, file = debmetadata, append = TRUE, fill=TRUE)
cat(" - Name: OMICtools"
, file = debmetadata, append = TRUE, fill=TRUE)
cat(paste0(" Entry: NA FIXME: manually check: https://omictools.com/search?q=",pkg)
, file = debmetadata, append = TRUE, fill=TRUE)
cat(" - Name: SciCrunch"
, file = debmetadata, append = TRUE, fill=TRUE)
cat(paste0(" Entry: NA FIXME: manually check: https://scicrunch.org/scicrunch/Resources/search?q=",pkg)
, file = debmetadata, append = TRUE, fill=TRUE)
}
|
