-
Notifications
You must be signed in to change notification settings - Fork 0
/
BalciS.Rmd
31 lines (26 loc) · 673 Bytes
/
BalciS.Rmd
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
---
title: "Data For Balci Serdar"
output: html_notebook
---
```{r extract journal names from all data xml, message=FALSE, warning=FALSE}
myTerm <- rstudioapi::terminalCreate(show = FALSE)
rstudioapi::terminalSend(
myTerm,
"xtract -input data/BalciS.xml -pattern PubmedArticle -sep '\t' -def 'na' -element MedlineCitation/PMID -block ArticleId -if ArticleId@IdType -equals doi -element ArticleId > data/BalciS.csv \n"
)
Sys.sleep(1)
repeat {
Sys.sleep(0.1)
if (rstudioapi::terminalBusy(myTerm) == FALSE) {
print("Code Executed")
break
}
}
```
```{r}
BalciS <- rio::import("data/BalciS.csv")
BalciSdoi <- BalciS$V2
```
```{r}
write(BalciSdoi, "data/BalciSdoi.txt")
```