IDIS.subsetting.R

#
## Filter, Piping and GREPL Using R DPLYR - An Intro
## http://neondataskills.org/R/GREPL-Filter-Piping-in-DPLYR-Using-R/
##
#
library(dplyr)
library(openxlsx)
#
IDISpublications[which((IDISpublications$yearPublication == 2017) && grepl("blocks",IDISpublications$title)),c('title')]
#
IDISpublications[grepl("resistance",IDISpublications$title),c('title')]
#
IDISpublications[grepl("resistance",IDISpublications$title),c('title')]
#
grepl("resistance",IDISpublications$title)
#
IDISpublications[which(IDISpublications$yearPublication == 2017),c('title')]
#
which(IDISpublications$yearPublication == 2017)
#
#
IDISpublications %>%  filter(yearPublication == 2017) %>% grepl("resistance",IDISpublications$title)
#
IDISpublications2017 <- filter(IDISpublications, yearPublication == 2017)
#
subsetTitle <- IDISpublications %>%  filter(yearPublication == 2017, grepl('bact', title))
subsetTitle$title
#
subset <- IDISpublications %>%  filter(grepl('Riestra|Regue|Treviño|Aguilera A|Guirao|Varela E|Molino|Bernal|Barbeito', authors), grepl('resist', title),)
subsetToBeSaved <- subset[order(subset$yearPublication, decreasing = TRUE),c('yearPublication','pmId','journalAbbre','dataPublication','title','authors')]
#
#
subsetWB <- createWorkbook()
addWorksheet(subsetWB, "item")
writeData(subsetWB, subsetToBeSaved, sheet = "item", startRow = 1, startCol = 1, colNames = TRUE)
setColWidths(subsetWB, sheet = "item", cols = 1:6, widths = "auto", ignoreMergedCells = TRUE)
saveWorkbook(subsetWB, if(.Platform$OS.type == "windows") file = paste("C:/Users/Ricardo Rodríguez/Desktop/subset",format(Sys.time(), "%Y%m%d%H%M%S"),".xlsx",sep = '') else file = paste("/Users/rrodriguez/Desktop/subset",format(Sys.time(), "%Y%m%d%H%M%S"),".xlsx",sep = ''), overwrite = TRUE)
#
#