How many?
library(readxl)
library(DT)
library(dplyr)
library(reshape2)
library(data.table)
library(tidyr)
setwd("C:/Users/s-das/Syncplicity Folders/MyProjects_IMP/MY_Papers_V2/TRB 2021/00_Topics/XML")
### PRESENCE OF 'Aritiifial Intelligence or Machine Learning' in paper titles
dat1 <- read.csv("Pedestrian1.csv")
dat2 <- dat1[,c("Item.Type", "Publication.Year", "Author","Title" ,
"Publication.Title", "Abstract.Note" )]
datatable(
dat2[,c(2,3, 4, 5)], extensions = c('Select', 'Buttons'), options = list(
select = list(style = 'os', items = 'row'),
dom = 'Blfrtip',
rowId = 0,
buttons = c('selectRows', 'csv', 'excel')
),
selection = 'none'
)
datatable(
dat2[,c(2,3,5, 6)], extensions = c('Select', 'Buttons'), options = list(
select = list(style = 'os', items = 'row'),
dom = 'Blfrtip',
rowId = 0,
buttons = c('selectRows', 'csv', 'excel')
),
selection = 'none'
)