> library(httr)

> library(xml2)

> baseUrl="https://eutils.ncbi.nlm.nih.gov/entrez/eutils/esearch.fcgi?"

> searchArticleParam=list(retstart=0,retmax=20,usehistory='Y',querykey='',webenv='',term='(cell[TA]) AND 2017[DP]',total_num=0,total_page=1, page_size=20, current_page=1) 

> r<-POST(baseUrl,body=list(db='pubmed',term=searchArticleParam$term,retmode='json',retstart=searchArticleParam$retstart,retmax=searchArticleParam$retmax,usehistory=searchArticleParam$usehistory,

+                           rettype='uilist'))

> stop_for_status(r)

> data=content(r, "parsed","application/json")

> data

$header

$header$type

[1] "esearch"

$header$version

[1] "0.3"

$esearchresult

$esearchresult$count

[1] "563"

$esearchresult$retmax

[1] "20"

$esearchresult$retstart

[1] "0"

$esearchresult$querykey

[1] "1"

$esearchresult$webenv

[1] "NCID_1_302329836_130.14.22.215_9001_1516718051_521263703_0MetA0_S_MegaStore_F_1"

$esearchresult$idlist

$esearchresult$idlist[[1]]

[1] "29336887"

$esearchresult$idlist[[2]]

[1] "29290469"

$esearchresult$idlist[[3]]

[1] "29290468"

$esearchresult$idlist[[4]]

[1] "29290467"

$esearchresult$idlist[[5]]

[1] "29290466"

$esearchresult$idlist[[6]]

[1] "29290465"

$esearchresult$idlist[[7]]

[1] "29275861"

$esearchresult$idlist[[8]]

[1] "29275860"

$esearchresult$idlist[[9]]

[1] "29275859"

$esearchresult$idlist[[10]]

[1] "29275858"

$esearchresult$idlist[[11]]

[1] "29249361"

$esearchresult$idlist[[12]]

[1] "29249360"

$esearchresult$idlist[[13]]

[1] "29249359"

$esearchresult$idlist[[14]]

[1] "29249358"

$esearchresult$idlist[[15]]

[1] "29249357"

$esearchresult$idlist[[16]]

[1] "29249356"

$esearchresult$idlist[[17]]

[1] "29245015"

$esearchresult$idlist[[18]]

[1] "29245014"

$esearchresult$idlist[[19]]

[1] "29245013"

$esearchresult$idlist[[20]]

[1] "29245012"

$esearchresult$translationset

$esearchresult$translationset[[1]]

$esearchresult$translationset[[1]]$from

[1] "cell[TA]"

$esearchresult$translationset[[1]]$to

[1] "\"Cell\"[Journal]"

$esearchresult$translationstack

$esearchresult$translationstack[[1]]

$esearchresult$translationstack[[1]]$term

[1] "\"Cell\"[Journal]"

$esearchresult$translationstack[[1]]$field

[1] "Journal"

$esearchresult$translationstack[[1]]$count

[1] "19063"

$esearchresult$translationstack[[1]]$explode

[1] "N"

$esearchresult$translationstack[[2]]

$esearchresult$translationstack[[2]]$term

[1] "2017[DP]"

$esearchresult$translationstack[[2]]$field

[1] "DP"

$esearchresult$translationstack[[2]]$count

[1] "1269572"

$esearchresult$translationstack[[2]]$explode

[1] "N"

$esearchresult$translationstack[[3]]

[1] "AND"

$esearchresult$querytranslation

[1] "\"Cell\"[Journal] AND 2017[DP]"

> esearchresult=data$esearchresult

> count=esearchresult$count

> print(count)

[1] "563"

> baseUrl2="https://eutils.ncbi.nlm.nih.gov/entrez/eutils/efetch.fcgi?"

> pubmedid="29275861,29275860";

> searchArticleParam$total_num=esearchresult$count

> searchArticleParam$querykey=esearchresult$querykey

> searchArticleParam$webenv=esearchresult$webenv

> r2<-POST(baseUrl2,body=list(db='pubmed',id=pubmedid,retmode='xml',querykey=searchArticleParam$querykey,webenv=searchArticleParam$webenv))

> data2=content(r2,"parsed")

> article=xml_children(data2) 

> count=length(article)

> cnt=1

> while(cnt<=count){title=xml_find_first(article[cnt],".//ArticleTitle")

+ abstract=xml_find_first(article[cnt],".//AbstractText")

+ print(xml_text(title))

+ print(xml_text(abstract))

+ cnt = cnt + 1

+ }

[1] "Natural Killer Cells Control Tumor Growth by Sensing a Growth Factor."

[1] "Many tumors produce platelet-derived growth factor (PDGF)-DD, which promotes cellular proliferation, epithelial-mesenchymal transition, stromal reaction, and angiogenesis through autocrine and paracrine PDGFRβ signaling. By screening a secretome library, we found that the human immunoreceptor NKp44, encoded by NCR2 and expressed on natural killer (NK) cells and innate lymphoid cells, recognizes PDGF-DD. PDGF-DD engagement of NKp44 triggered NK cell secretion of interferon gamma (IFN)-γ and tumor necrosis factor alpha (TNF-α) that induced tumor cell growth arrest. A distinctive transcriptional signature of PDGF-DD-induced cytokines and the downregulation of tumor cell-cycle genes correlated with NCR2 expression and greater survival in glioblastoma. NKp44 expression in mouse NK cells controlled the dissemination of tumors expressing PDGF-DD more effectively than control mice, an effect enhanced by blockade of the inhibitory receptor CD96 or CpG-oligonucleotide treatment. Thus, while cancer cell production of PDGF-DD supports tumor growth and stromal reaction, it concomitantly activates innate immune responses to tumor expansion."

[1] "Antigen Identification for Orphan T Cell Receptors Expressed on Tumor-Infiltrating Lymphocytes."

[1] "The immune system can mount T cell responses against tumors; however, the antigen specificities of tumor-infiltrating lymphocytes (TILs) are not well understood. We used yeast-display libraries of peptide-human leukocyte antigen (pHLA) to screen for antigens of \"orphan\" T cell receptors (TCRs) expressed on TILs from human colorectal adenocarcinoma. Four TIL-derived TCRs exhibited strong selection for peptides presented in a highly diverse pHLA-A∗02:01 library. Three of the TIL TCRs were specific for non-mutated self-antigens, two of which were present in separate patient tumors, and shared specificity for a non-mutated self-antigen derived from U2AF2. These results show that the exposed recognition surface of MHC-bound peptides accessible to the TCR contains sufficient structural information to enable the reconstruction of sequences of peptide targets for pathogenic TCRs of unknown specificity. This finding underscores the surprising specificity of TCRs for their cognate antigens and enables the facile indentification of tumor antigens through unbiased screening."

>