Tabular Learning (WOS- Title Search)

Explore

General

library(readxl)
library(DT)
library(dplyr)
library(reshape2)
library(data.table)
library(tidyr)

setwd("C:/Users/mvx13/OneDrive - Texas State University/Hackathon_Shriyank/Dissertation/Bibliometrix")

dat1 <- read_excel("TabularLearning.xls")
dat2a <- dat1[,c("Article Title", "Author Full Names", "Abstract", "Publication Year",  "Publisher")]

Title

dat4 <- dat1[,c("Publication Year", "Article Title", "Author Full Names")]


datatable(
  dat4, extensions = c('Select', 'Buttons'), options = list(
    select = list(style = 'os', items = 'row'),
    dom = 'Blfrtip',
    rowId = 0,
    buttons = c('csv', 'excel')
  ),
  selection = 'none'
)

Abstracts

dat5 <- dat1[,c("Publication Year",  "Article Title", "Author Full Names", "Abstract")]


datatable(
  dat5, extensions = c('Select', 'Buttons'), options = list(
    select = list(style = 'os', items = 'row'),
    dom = 'Blfrtip',
    rowId = 0,
    buttons = c('csv', 'excel')
  ),
  selection = 'none'
)