diff --git a/.DS_Store b/.DS_Store index e25871d..1709ca6 100644 Binary files a/.DS_Store and b/.DS_Store differ diff --git a/BalciS.Rmd b/BalciS.Rmd new file mode 100644 index 0000000..c116a0c --- /dev/null +++ b/BalciS.Rmd @@ -0,0 +1,32 @@ +--- +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") +``` + diff --git a/BalciS.nb.html b/BalciS.nb.html new file mode 100644 index 0000000..3dbfc12 --- /dev/null +++ b/BalciS.nb.html @@ -0,0 +1,1848 @@ + + + + +
+ + + + + + + + +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
+}
+}
+
+
+[1] "Code Executed"
+
+
+
+
+
+
+
+
+
+
+write((BalciSdoi, "data/BalciSdoi.txt")
+
+
+
+Error: unexpected ',' in "write((BalciSdoi,"
+
+
+NA
+
+
+
+
+
+If you want to see the code used in the analysis please click the code button on the right upper corner or throughout the page.
I would like to hear your feedback: https://goo.gl/forms/YjGZ5DHgtPlR1RnB3
-This document will be continiously updated and the last update was on 2019-01-11.
+This document will be continiously updated and the last update was on 2019-01-13.
In this analysis we aimed to identify the common research topics Turkish pathologists are interested. We extracted most common MeSH terms and keywords from PubMed articles using EDirect: MeSH Terms Pathology Articles From Turkey
Serdar Balcı, MD, Pathologist would like to hear your feedback: https://goo.gl/forms/YjGZ5DHgtPlR1RnB3
-This document will be continiously updated and the last update was on 2019-01-11.
+This document will be continiously updated and the last update was on 2019-01-13.
Article PMID downloaded as txt
.
myTerm <- rstudioapi::terminalCreate(show = FALSE)
+rstudioapi::terminalSend(
+myTerm,
+"xtract -input data/pubmed_result_TurkPath.xml -pattern PubmedArticle -element MedlineCitation/PMID -block ArticleId -if ArticleId@IdType -equals doi -element ArticleId > data/pubmed_result_TurkPath.txt \n"
+)
+Sys.sleep(1)
+repeat {
+Sys.sleep(0.1)
+if (rstudioapi::terminalBusy(myTerm) == FALSE) {
+print("Code Executed")
+break
+}
+}
+
+
+
+
+
+
+pubmed_result_TurkPath <- read_csv(file = "data/pubmed_result_TurkPath.csv")
+
+
+
+Parsed with column specification:
+cols(
+ `30632530 10.5606/ArchRheumatol.2018.6652` = [31mcol_character()[39m
+)
+
+
+
+
+
+write(pubmed_result_TurkPath_doi, "data/pubmed_result_TurkPath_doi.txt")
+
+
+
+
+vosviewer
-