inst/biblioshiny/ui.R
In xiangtuochen/bibliometrixfullname: Comprehensive Science Mapping Analysis
## BIBLIOSHINY: A SHINY APP FOR BIBLIOMETRIX R-PACKAGE
if (!(require(bibliometrix))){install.packages("bibliometrix"); require(bibliometrix, quietly=TRUE)}
if (!(require(shiny))){install.packages("shiny"); require(shiny, quietly=TRUE)}
if (!(require(rio))){install.packages("rio")}
if (!(require(DT))){install.packages("DT")}
if (!(require(ggplot2))){install.packages("ggplot2"); require(ggplot2, quietly=TRUE)}
if (!(require(shinycssloaders))){install.packages("shinycssloaders")}
if (!(require(shinythemes))){install.packages("shinythemes")}
if (!(require(wordcloud2))){install.packages("wordcloud2")}
#if (!require(colourpicker)){install.packages("colourpicker")}
#if (!require(treemap)){install.packages("treemap")}
if (!require(ggmap)){install.packages("ggmap"); require(ggmap, quietly=TRUE)}
if (!require(maps)){install.packages("maps"); require(maps, quietly=TRUE)}
if (!require(visNetwork)){install.packages("visNetwork"); require(visNetwork, quietly=TRUE)}
if (!require(plotly)){install.packages("plotly"); require(plotly, quietly=TRUE)}
require(Matrix, quietly = TRUE)
require(dimensionsR, quietly = TRUE)
require(pubmedR, quietly = TRUE)
# Main NavBar ----
options(spinner.size=1, spinner.type=5)
if (exists("M")) rm(M, envir = .GlobalEnv) # remove an existing M object
ui <- navbarPage("biblioshiny for bibliometrix",
theme=shinythemes::shinytheme("flatly"),
### WELCOME PAGE ----
tabPanel("Welcome",
# code for ggplot plot resize
tags$head(tags$script('$(document).on("shiny:connected", function(e) {
Shiny.onInputChange("innerWidth", window.innerWidth);
});
$(window).resize(function(e) {
Shiny.onInputChange("innerWidth", window.innerWidth);
});
')),
# end of code
fluidRow(
column(9,
wellPanel(
h1("biblioshiny: The shiny app for bibliometrix",align = "center"),
br(),
h4(em(strong("bibliometrix: An R-tool for comprehensive science mapping analysis")),align = "center"),
br(),
h6("Aria, M., & Cuccurullo, C. (2017).", strong(" bibliometrix: An R-tool for comprehensive science mapping analysis."), em(" Journal of Informetrics"),", 11(4), 959-975.", align="center"),
br(),
div(img(src = "logo.jpg", height = 600), style="text-align: center;"),
#div(img(src = "hexagon.png",height = 600, width = 600), style="text-align: center;"),
br(),
br(),
h2("Features"),
p(em("bibliometrix")," is an open-source tool for executing a comprehensive science mapping analysis of scientific literature."),
br(),
p("It was programmed in R language to be flexible and facilitate integration with other statistical and graphical packages.
Indeed, bibliometrics is a constantly changing science and bibliometrix has the flexibility to be quickly upgraded and integrated.
Its development can address a large and active community of developers formed by prominent researchers."),
br(),
p(em("bibliometrix"),"provides various routines for importing bibliographic data from SCOPUS,
Clarivate Analytics' Web of Science, Dimensions, PubMed, Lens and Cochrane databases, performing bibliometric
analysis and building data matrices for co-citation, coupling, scientific collaboration analysis and co-word analysis."),
br(),
p("For an introduction and live examples, visit the ",
a("bibliometrix website.",
href = "https://www.bibliometrix.org")),
br(),
h2("Workflow"),
br(),
h4(em("bibliometrix")," supports the main stages of the recommended science mapping workflow:"),
br(),
div(img(src = "workflow.jpg", height=346, width=800), style="text-align: center;"),
br(),
h2("Example"),
br(),
p("Step 1 - Download an example at the following", a("link",href = "https://www.bibliometrix.org/datasets/joi.zip", target="_blank"),
". It includes all articles published by the", em("Journal of Informetrics"), "from 2007 to 2017."),
p("Step 2 - In the ",strong("Load ") ,"menu, select ",strong("'Web of Knowledge'")," as database and ",strong("'Plaintext'")," as file format."),
p("Step 3 - Choose and load the file", strong("joi.zip")," using the ",strong("browse")," button."),
p("Step 4 - ", strong(em("Then, enjoy working with the app!"))),
br()
)
)
)
),
### Loading page ----
### DATASET MENU ----
navbarMenu("Data",
" ",
" ",
### Import or Load files ####
tabPanel("Import or Load files",
sidebarLayout(
sidebarPanel(
width = 3,
h3(em(strong("Import or Load "))),
br(),
selectInput(
"load",
label = "Please, choose what to do",
choices = c(
" " = "null",
"Import raw file(s)" = "import",
"Load bibliometrix file(s)" = "load",
"Use a sample collection" = "demo"
),
selected = "null"
),
conditionalPanel(
condition = "input.load == 'demo'",
helpText(h4(strong("The use of bibliometric approaches in business and management disciplines.")),
h5(strong("Dataset 'Management'")),
em("A collection of scientific articles about the use of bibliometric approaches",
"in business and management disciplines."),
br(),
em("Period: 1985 - 2018, Source WoS.")
)
),
#br(),
conditionalPanel(
condition = "input.load == 'import'",
selectInput(
"dbsource",
label = "Database",
choices = c(
"Web of Science (WoS/WoK)" = "isi",
"Scopus" = "scopus",
"Dimensions" = "dimensions",
"Lens.org" = "lens",
"PubMed" = "pubmed",
"Cochrane Library" = "cochrane"
),
selected = "isi"
)
),
conditionalPanel(
condition = "input.load != 'null' & input.load != 'demo'",
conditionalPanel(
condition = "input.load == 'load'",
helpText(em("Load a collection in XLSX or R format previously exported from bibliometrix")
)),
fileInput(
"file1",
"Choose a file",
multiple = FALSE,
accept = c(
".csv",
".txt",
".ciw",
".bib",
".xlsx",
".zip",
".xls",
".rdata",
".rda",
".rds"
)
)
),
#h6("Here accept single .txt/.bib/.csv/.xslx/.RData files, or multiple .txt/.bib/.csv files compressed in a single .zip archive."),
conditionalPanel(condition = "input.load != 'null'",
actionButton("applyLoad", "Start ")),
tags$hr(),
uiOutput("textLog"),
#shinycssloaders::withSpinner(verbatimTextOutput("log")),
tags$hr(),
h3(em(strong(
"Export a bibliometrix file "
))),
br(),
selectInput(
'save_file',
'Save as:',
choices = c(
' ' = 'null',
'Excel' = 'xlsx',
'R Data Format' = 'RData'
),
selected = 'null'
),
conditionalPanel(condition = "input.save_file != 'null'",
downloadButton("collection.save", "Export"))
),
mainPanel(
## color of datatable
tags$head(tags$style(
HTML(
"table.dataTable.hover tbody tr:hover, table.dataTable.display tbody tr:hover {
background-color: #9c4242 !important;
}
"
)
)),
tags$style(
HTML(
".dataTables_wrapper .dataTables_length, .dataTables_wrapper .dataTables_filter, .dataTables_wrapper .dataTables_info, .dataTables_wrapper .dataTables_processing,.dataTables_wrapper .dataTables_paginate .paginate_button, .dataTables_wrapper .dataTables_paginate .paginate_button.disabled {
color: #000000 !important;
}"
)
),
shinycssloaders::withSpinner(DT::DTOutput("contents"))
)
)),
tabPanel("Gather data using APIs",
sidebarLayout(
sidebarPanel(
width = 3,
h3(em(strong(
"Gather data using APIs "
))),
br(),
selectInput(
"dbapi",
label = "Database",
choices = c("DS Dimensions" = "ds",
"PubMed" = "pubmed"),
selected = "pubmed"
),
### Dimenions API ####
conditionalPanel(
condition = "input.dbapi == 'ds'",
br(),
actionButton("dsShow", h5(strong("1. Configure API request"))),
h5(tags$b("Your Query")),
verbatimTextOutput("queryLog2", placeholder = FALSE),
h5(tags$b("Documents returned using your query")),
verbatimTextOutput("sampleLog2", placeholder = FALSE),
#
#
# uiOutput("sliderLimit"),
),
### Pubmed API ####
conditionalPanel(
condition = "input.dbapi == 'pubmed'",
br(),
actionButton("pmShow", h5(strong("1. Configure API request"))),
h5(tags$b("Your Query")),
verbatimTextOutput("pmQueryLog2", placeholder = FALSE),
h5(tags$b("Documents returned using your query")),
verbatimTextOutput("pmSampleLog2", placeholder = FALSE),
),
tags$hr(),
#h4(em(strong("Gather metadata"))),
actionButton("apiApply", h5(strong("2. Download metadata"))),
tags$hr(),
h3(em(strong(
"Export a bibliometrix file "
))),
br(),
selectInput(
'save_file_api',
'Save as:',
choices = c(
' ' = 'null',
'Excel' = 'xlsx',
'R Data Format' = 'RData'
),
selected = 'null'
),
conditionalPanel(condition = "input.save_file_api != 'null'",
downloadButton("collection.save_api", "Export"))
),
mainPanel(
## color of datatable
tags$head(tags$style(
HTML(
"table.dataTable.hover tbody tr:hover, table.dataTable.display tbody tr:hover {
background-color: #9c4242 !important;
}
"
)
)),
tags$style(
HTML(
".dataTables_wrapper .dataTables_length, .dataTables_wrapper .dataTables_filter, .dataTables_wrapper .dataTables_info, .dataTables_wrapper .dataTables_processing,.dataTables_wrapper .dataTables_paginate .paginate_button, .dataTables_wrapper .dataTables_paginate .paginate_button.disabled {
color: #000000 !important;
}"
)
),
#shinycssloaders::withSpinner(tableOutput("contents"))
shinycssloaders::withSpinner(DT::DTOutput("apiContents"))
)
))
),
### Filters page ----
tabPanel("Filter",
sidebarLayout(
sidebarPanel(width=3,
h3(em(strong("Filter "))),
br(),
actionButton("applyFilter", "Apply!"),
" ",
" ",
uiOutput("textDim"),
uiOutput("selectType"),
uiOutput("sliderPY"),
uiOutput("sliderTC"),
#uiOutput("selectSource"),
selectInput("bradfordSources",
label = "Source by Bradford Law Zones",
choices = c("Core Sources"="core",
"Core + Zone 2 Sources"="zone2",
"All Sources"="all"),
selected = "all")
),
mainPanel(DT::DTOutput("dataFiltered"))
)
),
### DATASET MENU ----
navbarMenu("Dataset",
" ",
" ",
tabPanel("Main Information",
sidebarLayout(
sidebarPanel(width=3,
h3(em(strong("Main Information about the collection "))),
br()),
mainPanel(
shinycssloaders::withSpinner(DT::DTOutput(outputId = "MainInfo", width = 500))
)
)),
tabPanel("Annual Scientific Production",
sidebarLayout(
sidebarPanel(width=3,
" ",
" ",
h3(em(strong("Annual Scientific Production "))),
" ",
br(),
verbatimTextOutput("CAGR"),
br(),
br(),
br(),
selectInput(
'ASPdpi',
h4(em(strong(
"Export plot"
))),
choices=c(
"Please select a dpi value" = "null",
"75 dpi" = "75",
"150 dpi" = "150",
"300 dpi" = "300",
"600 dpi" = "600"
),
selected = "null"
),
conditionalPanel(condition = "input.ASPdpi != 'null'",
sliderInput(
'ASPh',
h4(em(strong(
"Height (in inches)"
))),
value = 7, min = 1, max = 20, step = 1),
downloadButton("ASPplot.save", "Export plot as png"))
),
mainPanel(
tabsetPanel(type = "tabs",
tabPanel("Plot",
shinycssloaders::withSpinner(plotlyOutput(outputId = "AnnualProdPlot", height = "80vh")) #height = 700))
),
tabPanel("Table",
shinycssloaders::withSpinner(DT::DTOutput("AnnualProdTable"))
))
)
)
),
tabPanel("Average Citations per Year",
sidebarLayout(
sidebarPanel(width=3,
" ",
" ",
h3(em(strong("Average Citations per Year "))),
br(),
br(),
br(),
selectInput(
'ACpYdpi',
h4(em(strong(
"Export plot"
))),
choices=c(
"Please select a dpi value" = "null",
"75 dpi" = "75",
"150 dpi" = "150",
"300 dpi" = "300",
"600 dpi" = "600"
),
selected = "null"
),
conditionalPanel(condition = "input.ACpYdpi != 'null'",
sliderInput(
'ACpYh',
h4(em(strong(
"Height (in inches)"
))),
value = 7, min = 1, max = 20, step = 1),
downloadButton("ACpYplot.save", "Export plot as png"))
),
mainPanel(
tabsetPanel(type = "tabs",
tabPanel("Plot",
shinycssloaders::withSpinner(plotlyOutput(outputId = "AnnualTotCitperYearPlot", height = "80vh")) #height = 700))
),
tabPanel("Table",
shinycssloaders::withSpinner(DT::DTOutput("AnnualTotCitperYearTable"))
))
)
)
),
tabPanel("Three-Fields Plot",
sidebarLayout(
sidebarPanel(width=3,
" ",
" ",
h3(em(strong("Three-Fields Plot "))),
" ",
actionButton("apply3F", "Apply!"),
br(),
selectInput("CentralField",
label = "Middle Field",
choices = c("Authors" = "AU",
"Affiliations" = "AU_UN",
"Countries"="AU_CO",
"Keywords" = "DE",
"Keywords Plus" = "ID",
"Titles" = "TI_TM",
"Abstract" = "AB_TM",
"Sources" = "SO",
"References" = "CR",
"Cited Sources" = "CR_SO"),
selected = "AU"),
sliderInput("CentralFieldn",
label=("Middle Field: Number of items"),
min = 1, max = 50, step = 1, value = 20),
selectInput("LeftField",
label = "Left Field",
choices = c("Authors" = "AU",
"Affiliations" = "AU_UN",
"Countries"="AU_CO",
"Keywords" = "DE",
"Keywords Plus" = "ID",
"Titles" = "TI_TM",
"Abstract" = "AB_TM",
"Sources" = "SO",
"References" = "CR",
"Cited Sources" = "CR_SO"),
selected = "CR"),
sliderInput("LeftFieldn",
label=("Left Field: Number of items"),
min = 1, max = 50, step = 1, value = 20),
selectInput("RightField",
label = "Right Field",
choices = c("Authors" = "AU",
"Affiliations" = "AU_UN",
"Countries"="AU_CO",
"Keywords" = "DE",
"Keywords Plus" = "ID",
"Titles" = "TI_TM",
"Abstract" = "AB_TM",
"Sources" = "SO",
"References" = "CR",
"Cited Sources" = "CR_SO"),
selected = "DE"),
sliderInput("RightFieldn",
label=("Right Field: Number of items"),
min = 1, max = 50, step = 1, value = 20)
),
mainPanel(
#tabPanel("Plot",
shinycssloaders::withSpinner(plotlyOutput(outputId = "ThreeFieldsPlot", height = "90vh"))
#shinycssloaders::withSpinner(networkD3::sankeyNetworkOutput(outputId = "ThreeFielsPlot",height = "80vh")) #height = "600px"))
# )
)
)
)
),
### SOURCES MENU ----
navbarMenu("Sources",
" ",
" ",
#### MOST RELEVANT SOURCES ----
tabPanel("Most Relevant Sources",
sidebarLayout(
sidebarPanel(width=3,
h3(em(strong("Most Relevant Sources "))),
br(),
actionButton("applyMRSources", "Apply!"),
" ",
" ",
h4(em(strong("Graphical Parameters: "))),
" ",
numericInput("MostRelSourcesK",
label=("Number of Sources"),
value = 20),
br(),
br(),
br(),
selectInput(
'MRSdpi',
h4(em(strong(
"Export plot"
))),
choices=c(
"Please select a dpi value" = "null",
"75 dpi" = "75",
"150 dpi" = "150",
"300 dpi" = "300",
"600 dpi" = "600"
),
selected = "null"
),
conditionalPanel(condition = "input.MRSdpi != 'null'",
sliderInput(
'MRSh',
h4(em(strong(
"Height (in inches)"
))),
value = 7, min = 1, max = 20, step = 1),
downloadButton("MRSplot.save", "Export plot as png"))
),
mainPanel(
tabsetPanel(type = "tabs",
tabPanel("Plot",
shinycssloaders::withSpinner(plotlyOutput(outputId = "MostRelSourcesPlot", height = "80vh")) #height = 700))
),
tabPanel("Table",
shinycssloaders::withSpinner(DT::DTOutput("MostRelSourcesTable"))
))
)
)
),
#### MOST RELEVANT CITED SOURCES ----
tabPanel("Most Local Cited Sources",
sidebarLayout(
sidebarPanel(width=3,
h3(em(strong("Most Local Cited Sources (from Reference Lists)"))),
br(),
actionButton("applyMLCSources", "Apply!"),
" ",
" ",
h4(em(strong("Graphical Parameters: "))),
" ",
numericInput("MostRelCitSourcesK",
label=("Number of Sources"),
value = 20),
br(),
br(),
br(),
selectInput(
'MLCSdpi',
h4(em(strong(
"Export plot"
))),
choices=c(
"Please select a dpi value" = "null",
"75 dpi" = "75",
"150 dpi" = "150",
"300 dpi" = "300",
"600 dpi" = "600"
),
selected = "null"
),
conditionalPanel(condition = "input.MLCSdpi != 'null'",
sliderInput(
'MLCSh',
h4(em(strong(
"Height (in inches)"
))),
value = 7, min = 1, max = 20, step = 1),
downloadButton("MLCSplot.save", "Export plot as png"))
),
mainPanel(
tabsetPanel(type = "tabs",
tabPanel("Plot",
shinycssloaders::withSpinner(plotlyOutput(outputId = "MostRelCitSourcesPlot", height = "80vh")) #height = 700))
),
tabPanel("Table",
shinycssloaders::withSpinner(DT::DTOutput("MostRelCitSourcesTable"))
))
)
)
),
### BRADFORD LAW ----
tabPanel("Bradford's law",
sidebarLayout(
sidebarPanel(width=3,
h3(em(strong("Source clustering"))),
h4(em(strong("through Bradford's Law "))),
br(),
br(),
br(),
selectInput(
'BLdpi',
h4(em(strong(
"Export plot"
))),
choices=c(
"Please select a dpi value" = "null",
"75 dpi" = "75",
"150 dpi" = "150",
"300 dpi" = "300",
"600 dpi" = "600"
),
selected = "null"
),
conditionalPanel(condition = "input.BLdpi != 'null'",
sliderInput(
'BLh',
h4(em(strong(
"Height (in inches)"
))),
value = 7, min = 1, max = 20, step = 1),
downloadButton("BLplot.save", "Export plot as png"))
),
mainPanel(
tabsetPanel(type = "tabs",
tabPanel("Plot",
shinycssloaders::withSpinner(plotlyOutput(outputId = "bradfordPlot", height = "80vh")) #height = 700))
),
tabPanel("Table",
shinycssloaders::withSpinner(DT::DTOutput("bradfordTable"))
))
)
)
),
### SOURCE IMPACT MENU ----
tabPanel("Source Impact",
sidebarLayout(
sidebarPanel(width=3,
h3(em(strong("Source Local Impact"))),
br(),
actionButton("applyHsource", "Apply!"),
" ",
" ",
h4(em(strong("Graphical Parameters: "))),
" ",
selectInput("HmeasureSources",
label = "Impact measure",
choices = c("H-Index"="h",
"G-Index"="g",
"M-Index"="m",
"Total Citation"="tc"),
selected = "h"),
" ",
numericInput("Hksource",
label=("Number of sources"),
value = 20),
br(),
br(),
br(),
selectInput(
'SIdpi',
h4(em(strong(
"Export plot"
))),
choices=c(
"Please select a dpi value" = "null",
"75 dpi" = "75",
"150 dpi" = "150",
"300 dpi" = "300",
"600 dpi" = "600"
),
selected = "null"
),
conditionalPanel(condition = "input.SIdpi != 'null'",
sliderInput(
'SIh',
h4(em(strong(
"Height (in inches)"
))),
value = 7, min = 1, max = 20, step = 1),
downloadButton("SIplot.save", "Export plot as png"))
),
mainPanel(
tabsetPanel(type = "tabs",
tabPanel("Plot",
shinycssloaders::withSpinner(plotlyOutput(outputId = "SourceHindexPlot", height = "80vh")) #height = 700))
),
tabPanel("Table",
shinycssloaders::withSpinner(DT::DTOutput(outputId = "SourceHindexTable"))
))
)
)
),
### SOURCE DYNAMICS MENU ----
tabPanel("Source Dynamics",
sidebarLayout(
# Sidebar with a slider and selection inputs
sidebarPanel(width=3,
h3(em(strong("Source Dynamics"))),
br(),
actionButton("applySOGrowth", "Apply!"),
br(),
" ",
selectInput("cumSO", "Occurrences",
choices = c("Cumulate" = "Cum",
"Per year" = "noCum"),
selected = "Cum"),
# selectInput("SOse", "Confidence Interval",
# choices = c("Yes" = "Yes",
# "No" = "No"),
# selected = "No"),
hr(),
sliderInput("topSO", label = "Number of Sources", min = 1, max = 50, step = 1, value = c(1,5)),
br(),
br(),
br(),
selectInput(
'SDdpi',
h4(em(strong(
"Export plot"
))),
choices=c(
"Please select a dpi value" = "null",
"75 dpi" = "75",
"150 dpi" = "150",
"300 dpi" = "300",
"600 dpi" = "600"
),
selected = "null"
),
conditionalPanel(condition = "input.SDdpi != 'null'",
sliderInput(
'SDh',
h4(em(strong(
"Height (in inches)"
))),
value = 7, min = 1, max = 20, step = 1),
downloadButton("SDplot.save", "Export plot as png"))
),
#
mainPanel(
tabsetPanel(type = "tabs",
tabPanel("Plot",
#shinycssloaders::withSpinner(plotOutput(outputId = "soGrowthPlot"))
shinycssloaders::withSpinner(plotlyOutput(outputId = "soGrowthPlot", height = "90vh"))
),
tabPanel("Table",
shinycssloaders::withSpinner(DT::DTOutput(outputId = "soGrowthtable"))
))
)
))
),
### AUTHORS MENU ----
navbarMenu("Authors",
" ",
" ",
### MOST RELEVANT AUTHORS ----
"Authors",
tabPanel("Most Relevant Authors",
sidebarLayout(
sidebarPanel(width=3,
h3(em(strong("Most Relevant Authors"))),
br(),
actionButton("applyMRAuthors", "Apply!"),
br(),
" ",
h4(em(strong("Graphical Parameters: "))),
" ",
numericInput("MostRelAuthorsK",
label=("Number of Authors"),
value = 20),
" ",
selectInput("AuFreqMeasure",
label = "Frequency measure",
choices = c("N. of Documents "="t",
"Percentage"="p",
"Fractionalized Frequency"="f"),
selected = "t"),
br(),
br(),
br(),
selectInput(
'MRAdpi',
h4(em(strong(
"Export plot"
))),
choices=c(
"Please select a dpi value" = "null",
"75 dpi" = "75",
"150 dpi" = "150",
"300 dpi" = "300",
"600 dpi" = "600"
),
selected = "null"
),
conditionalPanel(condition = "input.MRAdpi != 'null'",
sliderInput(
'MRAh',
h4(em(strong(
"Height (in inches)"
))),
value = 7, min = 1, max = 20, step = 1),
downloadButton("MRAplot.save", "Export plot as png"))
),
mainPanel(
tabsetPanel(type = "tabs",
tabPanel("Plot",
shinycssloaders::withSpinner(plotlyOutput(outputId = "MostRelAuthorsPlot", height = "80vh")) #height = 700))
),
tabPanel("Table",
shinycssloaders::withSpinner(DT::DTOutput("MostRelAuthorsTable"))
))
)
)
),
### MOST LOCAL CITED AUTHORS
tabPanel("Most Local Cited Authors",
sidebarLayout(
sidebarPanel(width=3,
h3(em(strong("Most Local Cited Authors"))),
br(),
actionButton("applyMLCAuthors", "Apply!"),
br(),
" ",
h4(em(strong("Graphical Parameters: "))),
" ",
numericInput("MostCitAuthorsK",
label=("Number of Authors"),
value = 20),
br(),
br(),
br(),
selectInput(
'MLCAdpi',
h4(em(strong(
"Export plot"
))),
choices=c(
"Please select a dpi value" = "null",
"75 dpi" = "75",
"150 dpi" = "150",
"300 dpi" = "300",
"600 dpi" = "600"
),
selected = "null"
),
conditionalPanel(condition = "input.MLCAdpi != 'null'",
sliderInput(
'MLCAh',
h4(em(strong(
"Height (in inches)"
))),
value = 7, min = 1, max = 20, step = 1),
downloadButton("MLCAplot.save", "Export plot as png"))
),
mainPanel(
tabsetPanel(type = "tabs",
tabPanel("Plot",
shinycssloaders::withSpinner(plotlyOutput(outputId = "MostCitAuthorsPlot", height = "80vh")) #height = 700))
),
tabPanel("Table",
shinycssloaders::withSpinner(DT::DTOutput("MostCitAuthorsTable"))
))
)
)
),
### AUTHORS' PRODUCTION OVER TIME ----
tabPanel("Authors' Production over Time",
sidebarLayout(
sidebarPanel(width=3,
h3(em(strong("Authors' Production over Time"))),
br(),
actionButton("applyAUoverTime", "Apply!"),
br(),
" ",
h4(em(strong("Graphical Parameters: "))),
" ",
numericInput("TopAuthorsProdK",
label=("Number of Authors"),
value = 20),
br(),
br(),
br(),
selectInput(
'APOTdpi',
h4(em(strong(
"Export plot"
))),
choices=c(
"Please select a dpi value" = "null",
"75 dpi" = "75",
"150 dpi" = "150",
"300 dpi" = "300",
"600 dpi" = "600"
),
selected = "null"
),
conditionalPanel(condition = "input.APOTdpi != 'null'",
sliderInput(
'APOTh',
h4(em(strong(
"Height (in inches)"
))),
value = 7, min = 1, max = 20, step = 1),
downloadButton("APOTplot.save", "Export plot as png"))
),
mainPanel(
tabsetPanel(type = "tabs",
tabPanel("Plot",
shinycssloaders::withSpinner(plotlyOutput(outputId = "TopAuthorsProdPlot", height = "80vh"))
),
tabPanel("Table - Top Authors' Production per Year",
shinycssloaders::withSpinner(DT::DTOutput("TopAuthorsProdTable"))
),
tabPanel("Table - Top Author's Documents",
shinycssloaders::withSpinner(DT::DTOutput("TopAuthorsProdTablePapers"))
))
)
)
),
### LOTKA LAW ----
tabPanel("Lotka's law",
sidebarLayout(
sidebarPanel(width=3,
h3(em(strong("Author Productivity"))),
h4(em(strong("through Lotka's Law"))),
br(),
br(),
br(),
selectInput(
'LLdpi',
h4(em(strong(
"Export plot"
))),
choices=c(
"Please select a dpi value" = "null",
"75 dpi" = "75",
"150 dpi" = "150",
"300 dpi" = "300",
"600 dpi" = "600"
),
selected = "null"
),
conditionalPanel(condition = "input.LLdpi != 'null'",
sliderInput(
'LLh',
h4(em(strong(
"Height (in inches)"
))),
value = 7, min = 1, max = 20, step = 1),
downloadButton("LLplot.save", "Export plot as png"))
),
mainPanel(
tabsetPanel(type = "tabs",
tabPanel("Plot",
shinycssloaders::withSpinner(plotlyOutput(outputId = "lotkaPlot", height = "80vh")) #height = 700))
),
tabPanel("Table",
shinycssloaders::withSpinner(DT::DTOutput("lotkaTable"))
))
)
)
),
### AUTHOR IMPACT ----
tabPanel("Author Impact",
sidebarLayout(
sidebarPanel(width=3,
h3(em(strong("Author Local Impact"))),
br(),
actionButton("applyHAuthors", "Apply!"),
br(),
" ",
h4(em(strong("Graphical Parameters: "))),
" ",
selectInput("HmeasureAuthors",
label = "Impact measure",
choices = c("H-Index"="h",
"G-Index"="g",
"M-Index"="m",
"Total Citation"="tc"),
selected = "h"),
" ",
numericInput("Hkauthor",
label=("Number of authors"),
value = 20),
br(),
br(),
br(),
selectInput(
'AIdpi',
h4(em(strong(
"Export plot"
))),
choices=c(
"Please select a dpi value" = "null",
"75 dpi" = "75",
"150 dpi" = "150",
"300 dpi" = "300",
"600 dpi" = "600"
),
selected = "null"
),
conditionalPanel(condition = "input.AIdpi != 'null'",
sliderInput(
'AIh',
h4(em(strong(
"Height (in inches)"
))),
value = 7, min = 1, max = 20, step = 1),
downloadButton("AIplot.save", "Export plot as png"))
),
mainPanel(
tabsetPanel(type = "tabs",
tabPanel("Plot",
shinycssloaders::withSpinner(plotlyOutput(outputId = "AuthorHindexPlot", height = "80vh")) #height = 700))
),
tabPanel("Table",
shinycssloaders::withSpinner(DT::DTOutput(outputId = "AuthorHindexTable"))
))
)
)
),
" ",
" ",
"Affiliations",
### MOST RELEVANT AFFILIATION ----
tabPanel("Most Relevant Affiliations",
sidebarLayout(
sidebarPanel(width=3,
h3(em(strong("Most Relevant Affiliations"))),
br(),
actionButton("applyMRAffiliations", "Apply!"),
br(),
" ",
selectInput("disAff",
label = "Affiliation Name Disambiguation",
choices = c("Yes"="Y",
"No"="N"),
selected = "Y"),
" ",
h4(em(strong("Graphical Parameters: "))),
" ",
numericInput("MostRelAffiliationsK",
label=("Number of Affiliations"),
value = 20),
br(),
br(),
br(),
selectInput(
'AFFdpi',
h4(em(strong(
"Export plot"
))),
choices=c(
"Please select a dpi value" = "null",
"75 dpi" = "75",
"150 dpi" = "150",
"300 dpi" = "300",
"600 dpi" = "600"
),
selected = "null"
),
conditionalPanel(condition = "input.AFFdpi != 'null'",
sliderInput(
'AFFh',
h4(em(strong(
"Height (in inches)"
))),
value = 7, min = 1, max = 20, step = 1),
downloadButton("AFFplot.save", "Export plot as png"))
),
mainPanel(
tabsetPanel(type = "tabs",
tabPanel("Plot",
shinycssloaders::withSpinner(plotlyOutput(outputId = "MostRelAffiliationsPlot", height = "80vh")) #height = 700))
),
tabPanel("Table",
shinycssloaders::withSpinner(DT::DTOutput("MostRelAffiliationsTable"))
))
)
)
),
" ",
" ",
"Countries",
### CORRESP AUTHOR'S COUNTRY ----
tabPanel("Corresponding Author's Country",
sidebarLayout(
sidebarPanel(width=3,
h3(em(strong("Corresponding Author's Country"))),
br(),
actionButton("applyCAUCountries", "Apply!"),
br(),
" ",
h4(em(strong("Graphical Parameters: "))),
" ",
numericInput("MostRelCountriesK",
label=("Number of Countries"),
value = 20),
br(),
br(),
br(),
selectInput(
'MRCOdpi',
h4(em(strong(
"Export plot"
))),
choices=c(
"Please select a dpi value" = "null",
"75 dpi" = "75",
"150 dpi" = "150",
"300 dpi" = "300",
"600 dpi" = "600"
),
selected = "null"
),
conditionalPanel(condition = "input.MRCOdpi != 'null'",
sliderInput(
'MRCOh',
h4(em(strong(
"Height (in inches)"
))),
value = 7, min = 1, max = 20, step = 1),
downloadButton("MRCOplot.save", "Export plot as png"))
),
mainPanel(
tabsetPanel(type = "tabs",
tabPanel("Plot",
shinycssloaders::withSpinner(plotlyOutput(outputId = "MostRelCountriesPlot", height = "80vh")) #height = 700))
),
tabPanel("Table",
shinycssloaders::withSpinner(DT::DTOutput("MostRelCountriesTable"))
))
)
)
),
### COUNTRY SCIENTIFIC PRODUCTION ----
tabPanel("Country Scientific Production",
sidebarLayout(
sidebarPanel(width=3,
h3(em(strong("Country Scientific Production"))),
br(),
br(),
br(),
selectInput(
'CSPdpi',
h4(em(strong(
"Export plot"
))),
choices=c(
"Please select a dpi value" = "null",
"75 dpi" = "75",
"150 dpi" = "150",
"300 dpi" = "300",
"600 dpi" = "600"
),
selected = "null"
),
conditionalPanel(condition = "input.CSPdpi != 'null'",
sliderInput(
'CSPh',
h4(em(strong(
"Height (in inches)"
))),
value = 7, min = 1, max = 20, step = 1),
downloadButton("CSPplot.save", "Export plot as png"))
),
mainPanel(
tabsetPanel(type = "tabs",
tabPanel("Plot",
shinycssloaders::withSpinner(plotlyOutput(outputId = "countryProdPlot", height = "80vh")) #height = 700))
),
tabPanel("Table",
shinycssloaders::withSpinner(DT::DTOutput("countryProdTable"))
))
)
)
),
### MOST CITED COUNTRIES ----
tabPanel("Most Cited Countries",
sidebarLayout(
sidebarPanel(width=3,
h3(em(strong("Most Cited Countries"))),
br(),
actionButton("applyMCCountries", "Apply!"),
br(),
" ",
h4(em(strong("Graphical Parameters: "))),
" ",
selectInput("CitCountriesMeasure",
label = "Measure",
choices = c("Total Citations"="TC",
"Average Citations per Year"="TCY"),
selected = "TC"),
" ",
numericInput("MostCitCountriesK",
label=("Number of Countries"),
value = 20),
br(),
br(),
br(),
selectInput(
'MCCdpi',
h4(em(strong(
"Export plot"
))),
choices=c(
"Please select a dpi value" = "null",
"75 dpi" = "75",
"150 dpi" = "150",
"300 dpi" = "300",
"600 dpi" = "600"
),
selected = "null"
),
conditionalPanel(condition = "input.MCCdpi != 'null'",
sliderInput(
'MCCh',
h4(em(strong(
"Height (in inches)"
))),
value = 7, min = 1, max = 20, step = 1),
downloadButton("MCCplot.save", "Export plot as png"))
),
mainPanel(
tabsetPanel(type = "tabs",
tabPanel("Plot",
shinycssloaders::withSpinner(plotlyOutput(outputId = "MostCitCountriesPlot", height = "80vh")) #height = 700))
),
tabPanel("Table",
shinycssloaders::withSpinner(DT::DTOutput("MostCitCountriesTable"))
))
)
)
)
),
### DOCS MENU ----
navbarMenu("Documents",
" ",
" ",
"Documents",
### CITED DOCS ----
tabPanel("Most Global Cited Documents",
sidebarLayout(
sidebarPanel(width=3,
h3(em(strong("Most Global Cited Documents"))),
br(),
actionButton("applyMGCDocuments", "Apply!"),
br(),
" ",
h4(em(strong("Graphical Parameters: "))),
" ",
numericInput("MostCitDocsK",
label=("Number of Documents"),
value = 20),
" ",
selectInput("CitDocsMeasure",
label = "Measure",
choices = c("Total Citations"="TC",
"Total Citations per Year"="TCY"),
selected = "TC"),
br(),
br(),
br(),
selectInput(
'MGCDdpi',
h4(em(strong(
"Export plot"
))),
choices=c(
"Please select a dpi value" = "null",
"75 dpi" = "75",
"150 dpi" = "150",
"300 dpi" = "300",
"600 dpi" = "600"
),
selected = "null"
),
conditionalPanel(condition = "input.MGCDdpi != 'null'",
sliderInput(
'MGCDh',
h4(em(strong(
"Height (in inches)"
))),
value = 7, min = 1, max = 20, step = 1),
downloadButton("MGCDplot.save", "Export plot as png"))
),
mainPanel(
tabsetPanel(type = "tabs",
tabPanel("Plot",
shinycssloaders::withSpinner(plotlyOutput(outputId = "MostCitDocsPlot", height = "80vh")) #height = 700))
),
tabPanel("Table",
shinycssloaders::withSpinner(DT::DTOutput("MostCitDocsTable"))
))
)
)
),
tabPanel("Most Local Cited Documents",
sidebarLayout(
sidebarPanel(width=3,
h3(em(strong("Most Local Cited Documents"))),
br(),
actionButton("applyMLCDocuments", "Apply!"),
br(),
" ",
h4(em(strong("Graphical Parameters: "))),
" ",
numericInput("MostLocCitDocsK",
label=("Number of Documents"),
value = 20),
" ",
selectInput(inputId = "LocCitSep",
label = "Field separator character",
choices = c(";" = ";",
". " = ". ",
"," = ","),
selected = ";"),
br(),
br(),
br(),
selectInput(
'MLCDdpi',
h4(em(strong(
"Export plot"
))),
choices=c(
"Please select a dpi value" = "null",
"75 dpi" = "75",
"150 dpi" = "150",
"300 dpi" = "300",
"600 dpi" = "600"
),
selected = "null"
),
conditionalPanel(condition = "input.MLCDdpi != 'null'",
sliderInput(
'MLCDh',
h4(em(strong(
"Height (in inches)"
))),
value = 7, min = 1, max = 20, step = 1),
downloadButton("MLCDplot.save", "Export plot as png"))
),
mainPanel(
tabsetPanel(type = "tabs",
tabPanel("Plot",
shinycssloaders::withSpinner(plotlyOutput(outputId = "MostLocCitDocsPlot", height = "80vh")) #height = 700))
),
tabPanel("Table",
shinycssloaders::withSpinner(DT::DTOutput("MostLocCitDocsTable"))
))
)
)
),
### CITED REFERENCES ----
" ",
" ",
"Cited References",
tabPanel("Most Local Cited References",
sidebarLayout(
sidebarPanel(width=3,
h3(em(strong("Most Local Cited References"))),
br(),
actionButton("applyMLCReferences", "Apply!"),
br(),
" ",
h4(em(strong("Graphical Parameters: "))),
" ",
numericInput("MostCitRefsK",
label=("Number of Documents"),
value = 20),
" ",
selectInput(inputId = "CitRefsSep",
label = "Field separator character",
choices = c(";" = ";",
". " = ". ",
"," = ","),
selected = ";"),
br(),
br(),
br(),
selectInput(
'MLCRdpi',
h4(em(strong(
"Export plot"
))),
choices=c(
"Please select a dpi value" = "null",
"75 dpi" = "75",
"150 dpi" = "150",
"300 dpi" = "300",
"600 dpi" = "600"
),
selected = "null"
),
conditionalPanel(condition = "input.MLCRdpi != 'null'",
sliderInput(
'MLCRh',
h4(em(strong(
"Height (in inches)"
))),
value = 7, min = 1, max = 20, step = 1),
downloadButton("MLCRplot.save", "Export plot as png"))
),
mainPanel(
tabsetPanel(type = "tabs",
tabPanel("Plot",
shinycssloaders::withSpinner(plotlyOutput(outputId = "MostCitRefsPlot", height = "80vh")) #height = 700))
),
tabPanel("Table",
shinycssloaders::withSpinner(DT::DTOutput("MostCitRefsTable"))
))
)
)
),
### Reference Spectroscopy ----
tabPanel("Reference Spectroscopy",
sidebarLayout(
sidebarPanel(width=3,
h3(em(strong("Reference Spectroscopy"))),
br(),
actionButton("applyRPYS", "Apply!"),
br(),
" ",
h4(em(strong("Parameters: "))),
" ",
selectInput(inputId = "rpysSep",
label = "Field separator character",
choices = c(";" = ";",
". " = ". ",
"," = ","),
selected = ";"),
br(),
h4(em(strong("Time slice"))),
fluidRow(column(6,
numericInput(inputId = "rpysMinYear",
label = "Starting Year",
value = NA,
step = 1)),
column(6,
numericInput(inputId = "rpysMaxYear",
label = "End Year",
value = NA,
step = 1)
)),
br(),
br(),
br(),
selectInput(
'RSdpi',
h4(em(strong(
"Export plot"
))),
choices=c(
"Please select a dpi value" = "null",
"75 dpi" = "75",
"150 dpi" = "150",
"300 dpi" = "300",
"600 dpi" = "600"
),
selected = "null"
),
conditionalPanel(condition = "input.RSdpi != 'null'",
sliderInput(
'RSh',
h4(em(strong(
"Height (in inches)"
))),
value = 7, min = 1, max = 20, step = 1),
downloadButton("RSplot.save", "Export plot as png"))
),
mainPanel(
tabsetPanel(type = "tabs",
tabPanel("Graph",
shinycssloaders::withSpinner(plotlyOutput(outputId = "rpysPlot", height = "80vh"))), #height = 700))),
tabPanel("RPY Table",
shinycssloaders::withSpinner(DT::DTOutput(
outputId = "rpysTable"))),
tabPanel("Cited References Table",
shinycssloaders::withSpinner(DT::DTOutput(
outputId = "crTable")))
)
))),
### WORDS MENU ----
" ",
" ",
"Words",
### MOST FREQ WORDS ----
tabPanel("Most Frequent Words",
sidebarLayout(
# Sidebar with a slider and selection inputs
sidebarPanel(width=3,
h3(em(strong("Most Frequent Words"))),
br(),
actionButton("applyMFWords", "Apply!"),
br(),
" ",
h4(em(strong("Parameters:"))),
" ",
selectInput("MostRelWords", "Field",
choices = c("Keywords Plus" = "ID",
"Author's keywords" = "DE",
"Titles" = "TI",
"Abstracts" = "AB"),
selected = "ID"),
conditionalPanel(condition = "input.MostRelWords == 'AB' |input.MostRelWords == 'TI'",
selectInput("MRWngrams",'N-Grams',
choices = c("Unigrams" = "1",
"Bigrams" = "2",
"Trigrams" = "3"),
selected = 1)),
hr(),
sliderInput("MostRelWordsN", label = "Number of words", min = 2, max = 50, step = 1, value = 10),
br(),
br(),
br(),
selectInput(
'MRWdpi',
h4(em(strong(
"Export plot"
))),
choices=c(
"Please select a dpi value" = "null",
"75 dpi" = "75",
"150 dpi" = "150",
"300 dpi" = "300",
"600 dpi" = "600"
),
selected = "null"
),
conditionalPanel(condition = "input.MRWdpi != 'null'",
sliderInput(
'MRWh',
h4(em(strong(
"Height (in inches)"
))),
value = 7, min = 1, max = 20, step = 1),
downloadButton("MRWplot.save", "Export plot as png"))
),
# Show Word Cloud
mainPanel(
tabsetPanel(type = "tabs",
tabPanel("Plot",
shinycssloaders::withSpinner(plotlyOutput(outputId = "MostRelWordsPlot", height = "80vh")) #height = 700))
),
tabPanel("Table",
shinycssloaders::withSpinner(DT::DTOutput("MostRelWordsTable"))
))
)
)),
### WORDCLOUD ----
tabPanel("WordCloud",
sidebarLayout(
# Sidebar with a slider and selection inputs
sidebarPanel(width=3,
h3(em(strong("WordCloud"))),
br(),
actionButton("applyWordCloud", "Apply!"),
br(),
" ",
h4(em(strong(" "))),
" ",
selectInput("summaryTerms", "Field",
choices = c("Keywords Plus" = "ID",
"Author's keywords" = "DE",
"Titles" = "TI",
"Abstracts" = "AB"),
selected = "ID"),
conditionalPanel(condition = "input.summaryTerms == 'AB' |input.summaryTerms == 'TI'",
selectInput("summaryTermsngrams",'N-Grams',
choices = c("Unigrams" = "1",
"Bigrams" = "2",
"Trigrams" = "3"),
selected = 1)),
#hr(),
numericInput("n_words", label = "Number of words", min = 10, max = 500, step = 1, value = 50),
hr(),
selectInput("wcNP",
label = h4(em(strong("WC Parameters: "))),
choices = c("Hide Parameters" = "hide",
"Show Parameters" = "show"),
selected = "hide"),
conditionalPanel(condition = "input.wcNP == 'show'",
" ",
fluidRow(column(6,
selectInput("measure", "Word occurrence by",
choices = c("Frequency" = "freq",
"Square root" = "sqrt",
"Log" = "log",
"Log10" = "log10"),
selected = "freq")
),
column(6,
selectInput("wcShape", "Shape",
choices = c("Circle" = "circle",
"Cardiod" = "cardioid",
"Diamond" = "diamond",
"Pentagon" = "pentagon",
"Star" = "star",
"Triangle-forward" = "triangle-forward"
,"Triangle" = "triangle"),
selected = "circle")
)),
fluidRow(column(6,
selectInput("font", label = "Font type",
choices = c("Impact", "Comic Sans MS (No plz!)" = "Comic Sans MS",
"Arial", "Arial Black", "Tahoma", "Verdana", "Courier New",
"Georgia", "Times New Roman", "Andale Mono"))
),
column(6,
selectInput("wcCol", "Text colors",
choices = c("Random Dark" = "random-dark",
"Random Light" = "random-light"),
selected = "random-dark")
)),
fluidRow(column(6,
numericInput("scale", label = "Font size", min=0.2,max=5,step=0.1,value=1)
),
column(6,
numericInput("ellipticity", label = "Ellipticity", min=0,max=1,step=0.05,value=0.65)
)),
fluidRow(column(6,
numericInput("padding", label = "Padding", min = 0, max = 5, value = 1, step = 1)
),
column(6,
numericInput("rotate", label = "Rotate", min = 0, max = 20, value = 0, step = 1)
)))
),
# Show Word Cloud
mainPanel(
tabsetPanel(type = "tabs",
tabPanel("Plot",
wordcloud2::wordcloud2Output("wordcloud", height = "80vh") #height = "600px")
),
tabPanel("Table",
shinycssloaders::withSpinner(DT::DTOutput("wordTable"))
))
)
)),
### TREEMAP ----
tabPanel("TreeMap",
sidebarLayout(
# Sidebar with a slider and selection inputs
sidebarPanel(width=3,
h3(em(strong("TreeMap "))),
br(),
actionButton("applyTreeMap", "Apply!"),
br(),
" ",
h4(em(strong("Graphical Parameters:"))),
" ",
selectInput("treeTerms", "Field",
choices = c("Keywords Plus" = "ID",
"Author's keywords" = "DE",
"Titles" = "TI",
"Abstracts" = "AB"),
selected = "ID"),
conditionalPanel(condition = "input.treeTerms == 'AB' |input.treeTerms == 'TI'",
selectInput("treeTermsngrams",'N-Grams',
choices = c("Unigrams" = "1",
"Bigrams" = "2",
"Trigrams" = "3"),
selected = 1)),
hr(),
numericInput("treen_words", label = "Number of words", min = 10, max = 200, step = 5, value = 50)
),
# Show TreeMap
mainPanel(
tabsetPanel(type = "tabs",
tabPanel("Plot",
shinycssloaders::withSpinner(plotlyOutput(outputId = "treemap", height = "80vh")) #height = 700))
#shinycssloaders::withSpinner(plotOutput("treemap"))
),
tabPanel("Table",
shinycssloaders::withSpinner(DT::DTOutput("treeTable"))
))
)
)),
### WORD DYNAMICS ----
tabPanel("Word Dynamics",
sidebarLayout(
# Sidebar with a slider and selection inputs
sidebarPanel(width=3,
h3(em(strong("Word Dynamics"))),
br(),
actionButton("applyWD", "Apply!"),
br(),
" ",
h4(em(strong("Graphical Parameters:"))),
" ",
selectInput("growthTerms", "Field",
choices = c("Keywords Plus" = "ID",
"Author's keywords" = "DE",
"Titles" = "TI",
"Abstracts" = "AB"),
selected = "ID"),
selectInput("cumTerms", "Occurrences",
choices = c("Cumulate" = "Cum",
"Per year" = "noCum"),
selected = "Cum"),
conditionalPanel(condition = "input.growthTerms == 'AB' |input.growthTerms == 'TI'",
selectInput("growthTermsngrams",'N-Grams',
choices = c("Unigrams" = "1",
"Bigrams" = "2",
"Trigrams" = "3"),
selected = 1)),
hr(),
sliderInput("topkw", label = "Number of words", min = 1, max = 100, step = 1, value = c(1,10)),
br(),
br(),
br(),
br(),
selectInput(
'WDdpi',
h4(em(strong(
"Export plot"
))),
choices=c(
"Please select a dpi value" = "null",
"75 dpi" = "75",
"150 dpi" = "150",
"300 dpi" = "300",
"600 dpi" = "600"
),
selected = "null"
),
conditionalPanel(condition = "input.WDdpi != 'null'",
sliderInput(
'WDh',
h4(em(strong(
"Height (in inches)"
))),
value = 7, min = 1, max = 20, step = 1),
downloadButton("WDplot.save", "Export plot as png"))
),
#
mainPanel(
tabsetPanel(type = "tabs",
tabPanel("Plot",
#shinycssloaders::withSpinner(plotOutput(outputId = "kwGrowthPlot"))
shinycssloaders::withSpinner(plotlyOutput(outputId = "kwGrowthPlot", height = "90vh")) #height = 700))
),
tabPanel("Table",
shinycssloaders::withSpinner(DT::DTOutput(outputId = "kwGrowthtable"))
))
)
)),
### TREND TOPICS ----
tabPanel("Trend Topics",
sidebarLayout(
# Sidebar with a slider and selection inputs
sidebarPanel(width=3,
h3(em(strong("Trend Topics"))),
br(),
actionButton("applyTrendTopics", "Apply!"),
h4(em(strong("Method Parameters:"))),
" ",
selectInput("trendTerms", "Field",
choices = c("Keywords Plus" = "ID",
"Author's keywords" = "DE",
"Titles" = "TI",
"Abstracts" = "AB"),
selected = "ID"),
conditionalPanel(condition = "input.trendTerms == 'TI' | input.trendTerms == 'AB'",
selectInput("trendTermsngrams",'N-Grams',
choices = c("Unigrams" = "1",
"Bigrams" = "2",
"Trigrams" = "3"),
selected = 1)),
conditionalPanel(
condition = "input.trendTerms == 'TI' | input.trendTerms == 'AB'",
selectInput("trendStemming", label="Word Stemming",
choices = c("Yes" = TRUE,
"No" = FALSE),
selected = FALSE)),
uiOutput("trendSliderPY"),
hr(),
h4(em(strong("Graphical Parameters:"))),
" ",
#uiOutput("trendMinFreq"),
sliderInput("trendMinFreq", label = "Word Minimum Frequency", min = 0, max = 100, value = 5, step = 1),
sliderInput("trendNItems", label = "N. of Words per Year", min = 1, max = 20, step = 1, value = 5),
#sliderInput("trendSize", label = "Word label size", min = 0, max = 20, step = 1, value = 5),
br(),
br(),
br(),
selectInput(
'TTdpi',
h4(em(strong(
"Export plot"
))),
choices=c(
"Please select a dpi value" = "null",
"75 dpi" = "75",
"150 dpi" = "150",
"300 dpi" = "300",
"600 dpi" = "600"
),
selected = "null"
),
conditionalPanel(condition = "input.TTdpi != 'null'",
sliderInput(
'TTh',
h4(em(strong(
"Height (in inches)"
))),
value = 7, min = 1, max = 20, step = 1),
downloadButton("TTplot.save", "Export plot as png"))
),
#
mainPanel(
tabsetPanel(type = "tabs",
tabPanel("Plot",
shinycssloaders::withSpinner(plotlyOutput(outputId = "trendTopicsPlot", height = "90vh")) #height = 700))
#shinycssloaders::withSpinner(plotOutput(outputId = "trendTopicsPlot"))
),
tabPanel("Table",
shinycssloaders::withSpinner(DT::DTOutput(outputId = "trendTopicsTable"))
))
)
))
),
### COUPLING ----
navbarMenu("Clustering ",
#### Coupling ----
" ",
" ",
tabPanel("Clustering by Coupling",
sidebarLayout(
sidebarPanel(width=3,
h3(em(strong("Coupling Map"))),
br(),
actionButton("applyCM", "Apply!"),
" ",
" ",
h4(em(strong(" "))),
" ",
selectInput("CManalysis",
label = "Unit of Analysis",
choices = c("Documents" = "documents",
"Authors" = "authors",
"Sources" = "sources"),
selected = "documents"),
" ",
selectInput("cmNP",
label = h4(em(strong("Coupling Parameters: "))),
choices = c("Hide Parameters" = "hide",
"Show Parameters" = "show"),
selected = "hide"),
conditionalPanel(condition = "input.cmNP == 'show'",
" ",
selectInput("CMfield",
label = "Coupling measured by",
choices = c("References" ="CR",
"Keywords Plus" = "ID",
"Author's Keywords" = "DE",
"Titles" = "TI",
"Abstracts" = "AB"),
selected = "CR"),
conditionalPanel(condition = "input.CMfield == 'TI' | input.CMfield == 'AB'",
selectInput("CMstemming", label="Word Stemming",
choices = c("Yes" = TRUE,
"No" = FALSE),
selected = FALSE)),
selectInput("CMimpact",
label = "Impact measure",
choices = c("Local Citation Score" = "local",
"Global Citation Score" = "global"),
selected = "local"),
selectInput("CMlabeling",
label = "Cluster labeling by",
choices = c("None" = "none",
"Keyword Plus" = "ID",
"Authors' keywords" = "DE",
"Title terms" = "TI",
"Abstract terms" = "AB"),
selected = "ID"),
conditionalPanel(condition = "input.CMlabeling == 'TI' | input.CMlabeling == 'AB'",
selectInput("CMngrams",'N-Grams',
choices = c("Unigrams" = "1",
"Bigrams" = "2",
"Trigrams" = "3"),
selected = 1)),
fluidRow(column(6,
numericInput("CMn", label="Number of Units\n ",value=250,min=50,max=5000,step=1)),
column(6,
numericInput("CMfreq", label="Min Cluster Freq. (‰)",value=5,min=1,max=100,step=1))),
fluidRow(column(6,
numericInput("CMn.labels", label="Labels per cluster",value=3,min=1,max=10,step=1)),
column(6,
numericInput("sizeCM", label="Label size",value=0.3,min=0.0,max=1,step=0.05)))
),
br(),
br(),
br(),
selectInput(
'CMdpi',
h4(em(strong(
"Export plot"
))),
choices=c(
"Please select a dpi value" = "null",
"75 dpi" = "75",
"150 dpi" = "150",
"300 dpi" = "300",
"600 dpi" = "600"
),
selected = "null"
),
conditionalPanel(condition = "input.CMdpi != 'null'",
sliderInput(
'CMh',
h4(em(strong(
"Height (in inches)"
))),
value = 7, min = 1, max = 20, step = 1),
downloadButton("CMplot.save", "Export plot as png"))
),
mainPanel("Clustering by Coupling",
tabsetPanel(type = "tabs",
tabPanel("Map",
shinycssloaders::withSpinner(plotlyOutput(outputId = "CMPlot", height = "80vh")) #height = 700))
),
tabPanel("Network",
shinycssloaders::withSpinner(visNetworkOutput("CMNetPlot", height = "80vh"))), #height = "750px",width = "1100px"))),
tabPanel("Data",
shinycssloaders::withSpinner(DT::DTOutput(outputId = "CMTable"))
),
tabPanel("Clusters",
shinycssloaders::withSpinner(DT::DTOutput(outputId = "CMTableCluster"))
)
)
)
)
) ## End of tabPanel ("Thematic Map")
),
### CONCEPTUAL STRUCTURE ----
navbarMenu("Conceptual Structure",
#### Co-occurrence Network ----
" ",
" ",
"Network Approach",
tabPanel("Co-occurrence Network",
sidebarLayout(
sidebarPanel(width=3,
h3(em(strong("Co-occurrence Network"))),
br(),
actionButton("applyCoc", "Apply!"),
br(),
br(),
#" ",
#h4(em(strong("Network Parameters: "))),
selectInput("field",
label = h4(em(strong("Field"))),
choices = c("Keywords Plus" = "ID",
"Author's Keywords" = "DE",
"Titles" = "TI",
"Abstracts" = "AB"),
selected = "ID"),
conditionalPanel(condition = "input.field == 'TI' | input.field == 'AB'",
selectInput("cocngrams",'N-Grams',
choices = c("Unigrams" = "1",
"Bigrams" = "2",
"Trigrams" = "3"),
selected = 1)),
selectInput("cocNP",
label = h4(em(strong("Network Parameters: "))),
choices = c("Hide Network Parameters" = "hide",
"Show Network Parameters" = "show"),
selected = "hide"),
conditionalPanel(condition = "input.cocNP == 'show'",
" ",
fluidRow(column(6,
selectInput("layout",
label = "Network Layout",
choices = c("Automatic layout"="auto",
"Circle"="circle",
"Fruchterman & Reingold"="fruchterman",
"Kamada & Kawai"="kamada",
"MultiDimensional Scaling"="mds",
"Sphere"="sphere",
"Star"="star"),
selected = "auto")
),
column(6,
selectInput("cocCluster",
label = "Clustering Algorithm",
choices = c("None" = "none",
"Edge Betweenness" = "edge_betweenness",
"InfoMap" = "infomap",
"Leading Eigenvalues" = "leading_eigen",
"Louvain" = "louvain",
"Spinglass" = "spinglass",
"Walktrap" = "walktrap"),
selected = "louvain")
)),
fluidRow(column(6,
selectInput("normalize",
label = "Normalization",
choices = c("none",
"association",
"jaccard",
"salton",
"inclusion",
"equivalence"),
selected = "association")
),
column(6,
selectInput("cocyears",
label = "Node Color by Year",
choices = c("No" = "No",
"Yes"= "Yes"),
selected = "No")
)),
fluidRow(column(6,
numericInput(inputId = "Nodes",
label = "Number of Nodes",
min = 5,
max = 1000,
value = 50,
step = 1)
),
column(6,
numericInput(inputId = "coc.repulsion",
label = "Repulsion Force",
min = 0,
max = 1,
value = 0.1,
step = 0.1)
)),
fluidRow(column(6,
selectInput(inputId ="coc.isolates",
label = "Remove Isolated Nodes",
choices = c("Yes" = "yes",
"No" = "no"),
selected = "yes")
),
column(6,
numericInput("edges.min",
label=("Minimum Number of Edges"),
value = 2,
step = 1,
min = 0)
)
)),
#uiOutput("Focus"),
" ",
#h4(em(strong("Graphical Parameters: "))),
#br(),
selectInput("cocGP",
label = h4(em(strong("Graphical Parameters: "))),
choices = c("Hide Graphical Parameters" = "hide",
"Show Graphical Parameters" = "show"),
selected = "hide"),
conditionalPanel(condition = "input.cocGP == 'show'",
" ",
fluidRow(column(6,
numericInput(inputId = "cocAlpha",
label = "Opacity",
min = 0,
max = 1,
value = 0.7,
step=0.05)
),
column(6,
numericInput(inputId = "Labels",
label = "Number of labels",
min = 0,
max = 1000,
value = 50,
step = 1)
)),
fluidRow(column(6,
selectInput(inputId ="label.cex",
label = "Label cex",
choices = c("Yes",
"No"),
selected = "Yes")
),
column(6,
selectInput(inputId ="coc.shape",
label = "Node Shape",
choices = c(
"Box"="box",
"Circle"="circle",
"Dot"="dot",
"Ellipse"="ellipse",
"Square"="square",
"Text"="text"),
selected = "dot")
)),
fluidRow(column(6,
numericInput(inputId = "labelsize",
label = "Label size",
min = 0.0,
max = 20,
value = 6,
step = 0.10)
),
column(6,
numericInput(
inputId = "edgesize",
label = "Edge size",
min = 0.5,
max = 20,
value = 5,
step=0.5)
)),
fluidRow(column(6,
selectInput(inputId ="coc.shadow",
label = "Node shadow",
choices = c("Yes",
"No"),
selected = "No")
),
column(6,
selectInput(inputId ="coc.curved",
label = "Curved edges",
choices = c("Yes",
"No"),
selected = "No")
)
)
),
fluidRow(column(6,
downloadButton("network.coc", "Save Pajek")
),
column(6,
downloadButton("networkCoc.fig", "Save HTML")
))
),
mainPanel(
tabsetPanel(type = "tabs",
tabPanel("Network Map",
shinycssloaders::withSpinner(visNetworkOutput("cocPlot", height = "80vh"))), #height = "750px",width = "1100px"))),
# tabPanel("Communities",
# shinycssloaders::withSpinner(visNetworkOutput("cocPlotComm", height = "80vh"))), #height = "750px",width = "1100px"))),
tabPanel("Table",
shinycssloaders::withSpinner(DT::DTOutput(
outputId = "cocTable"))),
tabPanel("Degree Plot",
shinycssloaders::withSpinner(plotlyOutput(outputId = "cocDegree", height = "80vh"))) #height=700)))
)
)
)
), ## End of tabPanel ("CS network")
### Thematic Map ----
#" ",
#" ",
#"Thematic Analysis",
tabPanel("Thematic Map",
sidebarLayout(
sidebarPanel(width=3,
h3(em(strong("Thematic Map"))),
br(),
actionButton("applyTM", "Apply!"),
" ",
" ",
h4(em(strong(" "))),
" ",
selectInput("TMfield",
label = "Field",
choices = c("Keywords Plus" = "ID",
"Author's Keywords" = "DE",
"Titles" = "TI",
"Abstracts" = "AB"),
selected = "ID"),
conditionalPanel(condition = "input.TMfield == 'TI' | input.TMfield == 'AB'",
selectInput("TMngrams",'N-Grams',
choices = c("Unigrams" = "1",
"Bigrams" = "2",
"Trigrams" = "3"),
selected = 1)),
conditionalPanel(
condition = "input.TMfield == 'TI' | input.TMfield == 'AB'",
selectInput("TMstemming", label="Word Stemming",
choices = c("Yes" = TRUE,
"No" = FALSE),
selected = FALSE)),
selectInput("tmNP",
label = h4(em(strong("TM Parameters: "))),
choices = c("Hide Parameters" = "hide",
"Show Parameters" = "show"),
selected = "hide"),
conditionalPanel(condition = "input.tmNP == 'show'",
" ",
fluidRow(column(6,
numericInput("TMn", label="Number of Words",value=250,min=50,max=5000,step=1)
),
column(6,
numericInput("TMfreq", label="Min Cluster Frequency (per thousand docs)",value=5,min=1,max=100,step=1)
)),
fluidRow(column(6,
numericInput("TMn.labels", label="Number of Labels",value=3,min=0,max=10,step=1)
),
column(6,
numericInput("sizeTM", label="Label size",value=0.3,min=0.0,max=1,step=0.05)
))
),
br(),
br(),
br(),
selectInput(
'TMdpi',
h4(em(strong(
"Export plot"
))),
choices=c(
"Please select a dpi value" = "null",
"75 dpi" = "75",
"150 dpi" = "150",
"300 dpi" = "300",
"600 dpi" = "600"
),
selected = "null"
),
conditionalPanel(condition = "input.TMdpi != 'null'",
sliderInput(
'TMh',
h4(em(strong(
"Height (in inches)"
))),
value = 7, min = 1, max = 20, step = 1),
downloadButton("TMplot.save", "Export plot as png"))
),
mainPanel("Thematic Map",
tabsetPanel(type = "tabs",
tabPanel("Map",
shinycssloaders::withSpinner(plotlyOutput(outputId = "TMPlot", height = "80vh")) #height = 700))
),
tabPanel("Network",
shinycssloaders::withSpinner(visNetworkOutput("NetPlot", height = "80vh"))), #height = "750px",width = "1100px"))),
tabPanel("Data",
shinycssloaders::withSpinner(DT::DTOutput(outputId = "TMTable"))
),
tabPanel("Clusters",
shinycssloaders::withSpinner(DT::DTOutput(outputId = "TMTableCluster"))
)
)
)
)
), ## End of tabPanel ("Thematic Map")
### Thematic Evolution ----
tabPanel("Thematic Evolution",
sidebarLayout(
sidebarPanel(width=3,
h3(em(strong("Thematic Evolution"))),
br(),
actionButton("applyTE", "Apply!"),
br(),
h4(em(strong(" "))),
" ",
selectInput("TEfield",
label = "Field",
choices = c("Keywords Plus" = "ID",
"Author's Keywords" = "DE",
"Titles" = "TI",
"Abstracts
" = "AB"),
selected = "ID"),
conditionalPanel(condition = "input.TEfield == 'TI' | input.TEfield == 'AB'",
selectInput("TEngrams",'N-Grams',
choices = c("Unigrams" = "1",
"Bigrams" = "2",
"Trigrams" = "3"),
selected = 1)),
selectInput("teNP",
label = h4(em(strong("TE Parameters: "))),
choices = c("Hide Parameters" = "hide",
"Show Parameters" = "show"),
selected = "hide"),
conditionalPanel(condition = "input.teNP == 'show'",
" ",
fluidRow(column(6,
numericInput("nTE", label="Number of Words",value=250,min=50,max=5000,step=1)
),
column(6,
numericInput("fTE", label="Min Cluster Frequency (per thousand docs)",value=5,min=1,max=100,step=1)
)),
fluidRow(column(6,
selectInput("TEmeasure",
label = "Weight index",
choices = c("Inclusion Index" = "inclusion",
"Inclusion Index weighted by Word-Occurrences" = "weighted",
"Stability Index" = "stability"
),
selected = "weighted")
),
column(6,
numericInput("minFlowTE", label="Min Weight Index",value=0.1,min=0.02,max=1,step=0.02)
)),
fluidRow(column(6,
numericInput("sizeTE", label="Label size",value=0.3,min=0.0,max=1,step=0.05)
),
column(6,
numericInput("TEn.labels", label="Number of Labels (for each cluster)",value=1,min=1,max=5,step=1)
))
),
br(),
h4(em(strong("Time Slices: "))),
numericInput("numSlices", label="Number of Cutting Points",min=1,max=4,value=1),
"Please, write the cutting points (in year) for your collection",
uiOutput("sliders")
),
mainPanel("Thematic Evolution",
tabsetPanel(type = "tabs",
tabPanel("Thematic Evolution", tabsetPanel(type="tabs",
tabPanel("Map",
#shinycssloaders::withSpinner(networkD3::sankeyNetworkOutput(outputId = "TEPlot", height = "80vh")) #height = "600px"))
shinycssloaders::withSpinner(plotlyOutput(outputId = "TEPlot", height = "80vh"))
),
tabPanel("Table",
shinycssloaders::withSpinner(DT::DTOutput(outputId = "TETable"))
))
),
tabPanel("Time Slice 1", tabsetPanel(type="tabs",
tabPanel("Thematic Map",
shinycssloaders::withSpinner(plotlyOutput(outputId = "TMPlot1", height = "80vh")) #height = 700))
),
tabPanel("Network",
shinycssloaders::withSpinner(visNetworkOutput("NetPlot1", height = "80vh")) # height = "750px",width = "1100px"))
),
tabPanel("Data",
shinycssloaders::withSpinner(DT::DTOutput(outputId = "TMTable1"))
),
tabPanel("Clusters",
shinycssloaders::withSpinner(DT::DTOutput(outputId = "TMTableCluster1"))
)
)
),
tabPanel("Time Slice 2", tabsetPanel(type="tabs",
tabPanel("Thematic Map",
shinycssloaders::withSpinner(plotlyOutput(outputId = "TMPlot2", height = "80vh")) #height = 700))
),
tabPanel("Network",
shinycssloaders::withSpinner(visNetworkOutput("NetPlot2", height = "80vh")) #height = "750px",width = "1100px"))
),
tabPanel("Data",
shinycssloaders::withSpinner(DT::DTOutput(outputId = "TMTable2"))
),
tabPanel("Clusters",
shinycssloaders::withSpinner(DT::DTOutput(outputId = "TMTableCluster2"))
)
)
),
tabPanel("Time Slice 3", tabsetPanel(type="tabs",
tabPanel("Thematic Map",
shinycssloaders::withSpinner(plotlyOutput(outputId = "TMPlot3", height = "80vh")) #height = 700))
),
tabPanel("Network",
shinycssloaders::withSpinner(visNetworkOutput("NetPlot3", height = "80vh")) #height = "750px",width = "1100px"))
),
tabPanel("Data",
shinycssloaders::withSpinner(DT::DTOutput(outputId = "TMTable3"))
),
tabPanel("Clusters",
shinycssloaders::withSpinner(DT::DTOutput(outputId = "TMTableCluster3"))
)
)
),
tabPanel("Time Slice 4", tabsetPanel(type="tabs",
tabPanel("Thematic Map",
shinycssloaders::withSpinner(plotlyOutput(outputId = "TMPlot4", height = "80vh")) #height = 700))
),
tabPanel("Network",
shinycssloaders::withSpinner(visNetworkOutput("NetPlot4", height = "80vh")) #height = "750px",width = "1100px"))
),
tabPanel("Data",
shinycssloaders::withSpinner(DT::DTOutput(outputId = "TMTable4"))
),
tabPanel("Clusters",
shinycssloaders::withSpinner(DT::DTOutput(outputId = "TMTableCluster4"))
)
)
),
tabPanel("Time Slice 5", tabsetPanel(type="tabs",
tabPanel("Thematic Map",
shinycssloaders::withSpinner(plotlyOutput(outputId = "TMPlot5", height = "80vh")) #height = 700))
),
tabPanel("Network",
shinycssloaders::withSpinner(visNetworkOutput("NetPlot5", height = "80vh")) #height = "750px",width = "1100px"))
),
tabPanel("Data",
shinycssloaders::withSpinner(DT::DTOutput(outputId = "TMTable5"))
),
tabPanel("Clusters",
shinycssloaders::withSpinner(DT::DTOutput(outputId = "TMTableCluster5"))
)
)
)
)
)
)
), ## End of tabPanel ("Thematic Map")
### Factorial Analysis ----
" ",
" ",
"Factorial Approach",
tabPanel("Factorial Analysis",
sidebarLayout(
sidebarPanel(width=3,
h3(em(strong("Factorial Analysis"))),
br(),
actionButton("applyCA", "Apply!"),
" ",
" ",
h4(em(strong(" "))),
" ",
selectInput("method",
label = "Method",
choices = c("Correspondence Analysis" = "CA",
"Multiple Correspondence Analysis" = "MCA",
"Multidimensional Scaling"= "MDS"),
selected = "MCA"),
selectInput("CSfield",
label = "Field",
choices = c("Keywords Plus" = "ID",
"Author's Keywords" = "DE",
"Titles" = "TI",
"Abstracts" = "AB"),
selected = "ID"),
conditionalPanel(condition = "input.CSfield == 'TI' | input.CSfield == 'AB'",
selectInput("CSngrams",'N-Grams',
choices = c("Unigrams" = "1",
"Bigrams" = "2",
"Trigrams" = "3"),
selected = 1)),
#h4(em(strong("FA Parameters: "))),
selectInput("faNP",
label = h4(em(strong("Method Parameters: "))),
choices = c("Hide Parameters" = "hide",
"Show Parameters" = "show"),
selected = "hide"),
conditionalPanel(condition = "input.faNP == 'show'",
" ",
fluidRow(column(6,
numericInput("CSn",
label=("Number of terms"),
value = 50, step = 1)),
column(6,
selectInput("nClustersCS",
label = "N. of Clusters",
choices = c("Auto" = "0",
"2" = "2",
"3" = "3",
"4" = "4",
"5" = "5",
"6" = "6",
"7" = "7",
"8" = "8"),
selected = "0")))
),
" ",
" ",
selectInput("faNP",
label = h4(em(strong("Graphical Parameters: "))),
choices = c("Hide Parameters" = "hide",
"Show Parameters" = "show"),
selected = "hide"),
conditionalPanel(condition = "input.faNP == 'show'",
" ",
#h4(em(strong("Graphical Parameters: "))),
" ",
fluidRow(column(6,
numericInput(
inputId = "CSlabelsize",
label = "Label size",
min = 5,
max = 30,
value = 10)),
column(6,
numericInput("CSdoc",
label=("Num. of documents"),
value = 5)))
),
br(),
br(),
selectInput(
'FAdpi',
h4(em(strong(
"Export plots as png"
))),
choices=c(
"Please select a dpi value" = "null",
"75 dpi" = "75",
"150 dpi" = "150",
"300 dpi" = "300",
"600 dpi" = "600"
),
selected = "null"
),
conditionalPanel(condition = "input.FAdpi != 'null'",
sliderInput(
'FAh',
h4(em(strong(
"Height (in inches)"
))),
value = 7, min = 1, max = 20, step = 1),
downloadButton("FA1plot.save", "Term Factorial Map "),
h4(" "),
downloadButton("FA2plot.save", "Topic Dendrogram "),
h4(" "),
downloadButton("FA3plot.save", "Most Contributing Map "),
h4(" "),
downloadButton("FA4plot.save", "Most Cited Map ")
)
),
mainPanel("Factorial Analysis",
tabsetPanel(type = "tabs",
tabPanel("Word Map",
shinycssloaders::withSpinner(plotOutput(
outputId = "CSPlot1"))),
tabPanel("Topic Dendrogram",
shinycssloaders::withSpinner(plotOutput(
outputId = "CSPlot4"))),
tabPanel("Most Contributing Papers",
shinycssloaders::withSpinner(plotOutput(
outputId = "CSPlot2"))),
tabPanel("Most Cited Papers",
shinycssloaders::withSpinner(plotOutput(
outputId = "CSPlot3"))),
tabPanel("Words by Cluster",
shinycssloaders::withSpinner(DT::DTOutput(outputId = "CSTableW"))),
tabPanel("Articles by Cluster",
shinycssloaders::withSpinner(DT::DTOutput(outputId = "CSTableD")))
)
)
)
) ## End of tabPanel ("Correspondence Analysis")
),
### Intellectual Structure ----
navbarMenu("Intellectual Structure",
### Co.Citation Network ----
tabPanel(title="Co-citation Network",
sidebarLayout(
sidebarPanel(width=3,
h3(em(strong("Co-citation Network"))),
br(),
actionButton("applyCocit", "Apply!"),
br(),
br(),
#" ",
#h4(em(strong("Network Parameters: "))),
selectInput("citField",
label = "Field",
choices = c("Papers" = "CR",
"Authors" = "CR_AU",
"Sources" = "CR_SO"),
selected = "CR"),
selectInput(inputId = "citSep",
label = "Field separator character",
choices = c('";" (Semicolon)' = ";",
'". " (Dot and 3 or more spaces)' = ". ",
'"," (Comma)' = ","),
selected = "';'"),
selectInput("cocitNP",
label = h4(em(strong("Network Parameters: "))),
choices = c("Hide Network Parameters" = "hide",
"Show Network Parameters" = "show"),
selected = "hide"),
conditionalPanel(condition = "input.cocitNP == 'show'",
" ",
fluidRow(column(6,
selectInput("citlayout",
label = "Network Layout",
choices = c("Automatic layout"="auto",
"Circle"="circle",
"Fruchterman & Reingold"="fruchterman",
"Kamada & Kawai"="kamada",
"MultiDimensional Scaling"="mds",
"Sphere"="sphere",
"Star"="star"),
selected = "auto")
),
column(6,
selectInput("cocitCluster",
label = "Clustering Algorithm",
choices = c("None" = "none",
"Edge Betweenness" = "edge_betweenness",
"InfoMap" = "infomap",
"Leading Eigenvalues" = "leading_eigen",
"Louvain" = "louvain",
"Spinglass" = "spinglass",
"Walktrap" = "walktrap"),
selected = "louvain")
)),
fluidRow(column(6,
numericInput(inputId = "citNodes",
label = "Number of Nodes",
min = 5,
max = 1000,
value = 50,
step = 1)
),
column(6,
numericInput(inputId = "cocit.repulsion",
label = "Repulsion Force",
min = 0,
max = 1,
value = 0.1,
step = 0.1)
)),
fluidRow(column(6,
selectInput(inputId ="cit.isolates",
label = "Remove Isolated Nodes",
choices = c("Yes" = "yes",
"No" = "no"),
selected = "yes")
),
column(6,
numericInput("citedges.min",
label=("Minimum Number of Edges"),
value = 2,
step = 1,
min = 0)
)
)),
#uiOutput("Focus"),
" ",
#h4(em(strong("Graphical Parameters: "))),
#br(),
selectInput("cocitGP",
label = h4(em(strong("Graphical Parameters: "))),
choices = c("Hide Graphical Parameters" = "hide",
"Show Graphical Parameters" = "show"),
selected = "hide"),
conditionalPanel(condition = "input.cocitGP == 'show'",
" ",
fluidRow(column(6,
selectInput(inputId ="citShortlabel",
label = "Short Label",
choices = c("Yes",
"No"),
selected = "Yes"),
),
column(6,
numericInput(inputId = "citLabels",
label = "Number of labels",
min = 0,
max = 1000,
value = 50,
step = 1)
)),
fluidRow(column(6,
selectInput(inputId ="citlabel.cex",
label = "Label cex",
choices = c("Yes",
"No"),
selected = "Yes")
),
column(6,
selectInput(inputId ="cocit.shape",
label = "Node Shape",
choices = c(
"Box"="box",
"Circle"="circle",
"Dot"="dot",
"Ellipse"="ellipse",
"Square"="square",
"Text"="text"),
selected = "dot")
)),
fluidRow(column(6,
numericInput(inputId = "citlabelsize",
label = "Label size",
min = 0.0,
max = 20,
value = 2,
step = 0.10)
),
column(6,
numericInput(
inputId = "citedgesize",
label = "Edge size",
min = 0.5,
max = 20,
value = 5,
step=0.5)
)),
fluidRow(column(6,
selectInput(inputId ="cocit.shadow",
label = "Node shadow",
choices = c("Yes",
"No"),
selected = "No")
),
column(6,
selectInput(inputId ="cocit.curved",
label = "Curved edges",
choices = c("Yes",
"No"),
selected = "No")
)
)
),
fluidRow(column(6,
downloadButton("network.cocit", "Save Pajek")
),
column(6,
downloadButton("networkCocit.fig", "Save HTML")
))
),
mainPanel(
tabsetPanel(type = "tabs",
tabPanel("Graph",
shinycssloaders::withSpinner(visNetworkOutput("cocitPlot", height = "80vh"))), #height = "750px", width = "1100px"))),
tabPanel("Table",
shinycssloaders::withSpinner(DT::DTOutput(
outputId = "cocitTable"))),
tabPanel("Degree Plot",
shinycssloaders::withSpinner(plotlyOutput(outputId = "cocitDegree", height=700)))
)
#shinycssloaders::withSpinner(plotOutput(outputId = "cocitPlot"))
)
)
), ## End of tabPanel "Co-citations"
### Historiograph ----
tabPanel(title="Historiograph",
sidebarLayout(
sidebarPanel(
width=3,
h3(em(strong("Historiograph "))),
br(),
actionButton("applyHist", "Apply!"),
#selectInput('save_colnet', 'Save network as:', choices = c('No, thanks!' = 'no_thanks', 'Pajek format' = 'pajek')),
#conditionalPanel(condition = "input.save_colnet == 'pajek'",
" ",
" ",
h4(em(strong("Historiograph Parameters: "))),
" ",
numericInput(inputId = "histNodes",
label = "Number of Nodes",
min = 5,
max = 100,
value = 20,
step = 1),
" ",
" ",
h4(em(strong("Graphical Parameters: "))),
" ",
selectInput(inputId = "titlelabel",
label = "Node label",
choices = c("Short id (1st Author, Year)" = "FALSE",
"Document Title" = "TRUE"),
selected = "FALSE"),
fluidRow(column(6,
numericInput(inputId = "histlabelsize",
label = "Label size",
min = 0.0,
max = 20,
value = 3, step = 1)),
column(6,
numericInput(inputId = "histsize",
label = "Node size",
min = 0,
max = 20,
value = 4, step = 1))),
br(),
br(),
selectInput(
'HGdpi',
h4(em(strong(
"Export plot"
))),
choices=c(
"Please select a dpi value" = "null",
"75 dpi" = "75",
"150 dpi" = "150",
"300 dpi" = "300",
"600 dpi" = "600"
),
selected = "null"
),
conditionalPanel(condition = "input.HGdpi != 'null'",
sliderInput(
'HGh',
h4(em(strong(
"Height (in inches)"
))),
value = 7, min = 1, max = 20, step = 1),
downloadButton("HGplot.save", "Export plot as png"))
),
mainPanel(
tabsetPanel(type = "tabs",
tabPanel("Graph",
#shinycssloaders::withSpinner(plotOutput(outputId = "histPlot"))),
shinycssloaders::withSpinner(plotlyOutput(outputId = "histPlot", height = "80vh"))),
tabPanel("Table",
shinycssloaders::withSpinner(DT::DTOutput(outputId = "histTable")))
)
)
#plotOutput(outputId = "histPlot"))
)
) ## End of tabPanel "Historiograph"
),
### Social Structure ####
### Collaboration ----
navbarMenu("Social Structure",
tabPanel(title="Collaboration Network",
sidebarLayout(
sidebarPanel(width=3,
h3(em(strong("Collaboration Network"))),
br(),
actionButton("applyCol", "Apply!"),
br(),
br(),
#" ",
#h4(em(strong("Network Parameters: "))),
selectInput("colField",
label = "Field",
choices = c("Authors" = "COL_AU",
"Institutions" = "COL_UN",
"Countries" = "COL_CO"),
selected = "COL_AU"),
selectInput("colNP",
label = h4(em(strong("Network Parameters: "))),
choices = c("Hide Network Parameters" = "hide",
"Show Network Parameters" = "show"),
selected = "hide"),
conditionalPanel(condition = "input.colNP == 'show'",
" ",
fluidRow(column(6,
selectInput("collayout",
label = "Network Layout",
choices = c("Automatic layout"="auto",
"Circle"="circle",
"Fruchterman & Reingold"="fruchterman",
"Kamada & Kawai"="kamada",
"MultiDimensional Scaling"="mds",
"Sphere"="sphere",
"Star"="star"),
selected = "auto")
),
column(6,
selectInput("colCluster",
label = "Clustering Algorithm",
choices = c("None" = "none",
"Edge Betweenness" = "edge_betweenness",
"InfoMap" = "infomap",
"Leading Eigenvalues" = "leading_eigen",
"Louvain" = "louvain",
"Spinglass" = "spinglass",
"Walktrap" = "walktrap"),
selected = "louvain")
)),
fluidRow(column(6,
selectInput("colnormalize",
label = "Normalization",
choices = c("none",
"association",
"jaccard",
"salton",
"inclusion",
"equivalence"),
selected = "association")
)),
fluidRow(column(6,
numericInput(inputId = "colNodes",
label = "Number of Nodes",
min = 5,
max = 1000,
value = 50,
step = 1)
),
column(6,
numericInput(inputId = "col.repulsion",
label = "Repulsion Force",
min = 0,
max = 1,
value = 0.1,
step = 0.1)
)),
fluidRow(column(6,
selectInput(inputId ="col.isolates",
label = "Remove Isolated Nodes",
choices = c("Yes" = "yes",
"No" = "no"),
selected = "yes")
),
column(6,
numericInput("coledges.min",
label=("Minimum Number of Edges"),
value = 2,
step = 1,
min = 0)
)
)),
#uiOutput("Focus"),
" ",
#h4(em(strong("Graphical Parameters: "))),
#br(),
selectInput("colGP",
label = h4(em(strong("Graphical Parameters: "))),
choices = c("Hide Graphical Parameters" = "hide",
"Show Graphical Parameters" = "show"),
selected = "hide"),
conditionalPanel(condition = "input.colGP == 'show'",
" ",
fluidRow(column(6,
numericInput(inputId = "colAlpha",
label = "Opacity",
min = 0,
max = 1,
value = 0.7,
step=0.05)
),
column(6,
numericInput(inputId = "colLabels",
label = "Number of labels",
min = 0,
max = 1000,
value = 50,
step = 1)
)),
fluidRow(column(6,
selectInput(inputId ="collabel.cex",
label = "Label cex",
choices = c("Yes",
"No"),
selected = "Yes")
),
column(6,
selectInput(inputId ="col.shape",
label = "Node Shape",
choices = c(
"Box"="box",
"Circle"="circle",
"Dot"="dot",
"Ellipse"="ellipse",
"Square"="square",
"Text"="text"),
selected = "dot")
)),
fluidRow(column(6,
numericInput(inputId = "collabelsize",
label = "Label size",
min = 0.0,
max = 20,
value = 2,
step = 0.10)
),
column(6,
numericInput(
inputId = "coledgesize",
label = "Edge size",
min = 0.5,
max = 20,
value = 5,
step=0.5)
)),
fluidRow(column(6,
selectInput(inputId ="col.shadow",
label = "Node shadow",
choices = c("Yes",
"No"),
selected = "No")
),
column(6,
selectInput(inputId ="soc.curved",
label = "Curved edges",
choices = c("Yes",
"No"),
selected = "No")
)
)
),
fluidRow(column(6,
downloadButton("network.col", "Save Pajek")
),
column(6,
downloadButton("networkCol.fig", "Save HTML")
))
),
mainPanel(
tabsetPanel(type = "tabs",
tabPanel("Graph",
shinycssloaders::withSpinner(visNetworkOutput("colPlot", height = "80vh"))), #,width = "1100px"))),
#shinycssloaders::withSpinner(plotOutput(outputId = "colPlot"))),
tabPanel("Table",
shinycssloaders::withSpinner(DT::DTOutput(
outputId = "colTable"))),
tabPanel("Degree Plot",
shinycssloaders::withSpinner(plotlyOutput(outputId = "colDegree", height = "80vh"))) #height=700)))
)
#shinycssloaders::withSpinner(plotOutput(outputId = "colPlot"))
)
)
), ## End of tabPanel "Social Structure"
### Collaboration WorldMap ----
tabPanel(title="Collaboration WorldMap",
sidebarLayout(
sidebarPanel(width=3,
h3(em(strong("Collaboration WorldMap"))),
br(),
actionButton("applyWM", "Apply!"),
" ",
" ",
h4(em(strong("Map Parameters: "))),
" ",
numericInput("WMedges.min",
label=("Min edges"),
value = 2,
step = 1),
" ",
" ",
h4(em(strong("Graphical Parameters: "))),
" ",
sliderInput(inputId = "WMedgesize",
label = "Edge size",
min = 0.1,
max = 20,
value = 5),
br(),
br(),
selectInput(
'CCdpi',
h4(em(strong(
"Export plot"
))),
choices=c(
"Please select a dpi value" = "null",
"75 dpi" = "75",
"150 dpi" = "150",
"300 dpi" = "300",
"600 dpi" = "600"
),
selected = "null"
),
conditionalPanel(condition = "input.CCdpi != 'null'",
sliderInput(
'CCh',
h4(em(strong(
"Height (in inches)"
))),
value = 7, min = 1, max = 20, step = 1),
downloadButton("CCplot.save", "Export plot as png"))
),
mainPanel(
tabsetPanel(type = "tabs",
tabPanel("Graph",
shinycssloaders::withSpinner(plotOutput(outputId = "WMPlot"))),
tabPanel("Table",
shinycssloaders::withSpinner(DT::DTOutput(
outputId = "WMTable")))
)
#shinycssloaders::withSpinner(plotOutput(outputId = "colPlot"))
)
)
) ## End of tabPanel "Social Structure"
),
# navbarMenu(("About"),
# tabPanel(title = "Help",
# includeHTML("bibliometrix-vignette.html"))
# ),
### Quit button ----
navbarMenu("Quit",
tabPanel(actionLink("stop_radiant", "Stop", icon = icon("power-off"),
onclick = "setTimeout(function(){window.close();}, 100); ")
)
)
## End of UI
)
xiangtuochen/bibliometrixfullname documentation built on Jan. 18, 2022, 7:05 p.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
## BIBLIOSHINY: A SHINY APP FOR BIBLIOMETRIX R-PACKAGE
if (!(require(bibliometrix))){install.packages("bibliometrix"); require(bibliometrix, quietly=TRUE)}
if (!(require(shiny))){install.packages("shiny"); require(shiny, quietly=TRUE)}
if (!(require(rio))){install.packages("rio")}
if (!(require(DT))){install.packages("DT")}
if (!(require(ggplot2))){install.packages("ggplot2"); require(ggplot2, quietly=TRUE)}
if (!(require(shinycssloaders))){install.packages("shinycssloaders")}
if (!(require(shinythemes))){install.packages("shinythemes")}
if (!(require(wordcloud2))){install.packages("wordcloud2")}
#if (!require(colourpicker)){install.packages("colourpicker")}
#if (!require(treemap)){install.packages("treemap")}
if (!require(ggmap)){install.packages("ggmap"); require(ggmap, quietly=TRUE)}
if (!require(maps)){install.packages("maps"); require(maps, quietly=TRUE)}
if (!require(visNetwork)){install.packages("visNetwork"); require(visNetwork, quietly=TRUE)}
if (!require(plotly)){install.packages("plotly"); require(plotly, quietly=TRUE)}
require(Matrix, quietly = TRUE)
require(dimensionsR, quietly = TRUE)
require(pubmedR, quietly = TRUE)
# Main NavBar ----
options(spinner.size=1, spinner.type=5)
if (exists("M")) rm(M, envir = .GlobalEnv) # remove an existing M object
ui <- navbarPage("biblioshiny for bibliometrix",
theme=shinythemes::shinytheme("flatly"),
### WELCOME PAGE ----
tabPanel("Welcome",
# code for ggplot plot resize
tags$head(tags$script('$(document).on("shiny:connected", function(e) {
Shiny.onInputChange("innerWidth", window.innerWidth);
});
$(window).resize(function(e) {
Shiny.onInputChange("innerWidth", window.innerWidth);
});
')),
# end of code
fluidRow(
column(9,
wellPanel(
h1("biblioshiny: The shiny app for bibliometrix",align = "center"),
br(),
h4(em(strong("bibliometrix: An R-tool for comprehensive science mapping analysis")),align = "center"),
br(),
h6("Aria, M., & Cuccurullo, C. (2017).", strong(" bibliometrix: An R-tool for comprehensive science mapping analysis."), em(" Journal of Informetrics"),", 11(4), 959-975.", align="center"),
br(),
div(img(src = "logo.jpg", height = 600), style="text-align: center;"),
#div(img(src = "hexagon.png",height = 600, width = 600), style="text-align: center;"),
br(),
br(),
h2("Features"),
p(em("bibliometrix")," is an open-source tool for executing a comprehensive science mapping analysis of scientific literature."),
br(),
p("It was programmed in R language to be flexible and facilitate integration with other statistical and graphical packages.
Indeed, bibliometrics is a constantly changing science and bibliometrix has the flexibility to be quickly upgraded and integrated.
Its development can address a large and active community of developers formed by prominent researchers."),
br(),
p(em("bibliometrix"),"provides various routines for importing bibliographic data from SCOPUS,
Clarivate Analytics' Web of Science, Dimensions, PubMed, Lens and Cochrane databases, performing bibliometric
analysis and building data matrices for co-citation, coupling, scientific collaboration analysis and co-word analysis."),
br(),
p("For an introduction and live examples, visit the ",
a("bibliometrix website.",
href = "https://www.bibliometrix.org")),
br(),
h2("Workflow"),
br(),
h4(em("bibliometrix")," supports the main stages of the recommended science mapping workflow:"),
br(),
div(img(src = "workflow.jpg", height=346, width=800), style="text-align: center;"),
br(),
h2("Example"),
br(),
p("Step 1 - Download an example at the following", a("link",href = "https://www.bibliometrix.org/datasets/joi.zip", target="_blank"),
". It includes all articles published by the", em("Journal of Informetrics"), "from 2007 to 2017."),
p("Step 2 - In the ",strong("Load ") ,"menu, select ",strong("'Web of Knowledge'")," as database and ",strong("'Plaintext'")," as file format."),
p("Step 3 - Choose and load the file", strong("joi.zip")," using the ",strong("browse")," button."),
p("Step 4 - ", strong(em("Then, enjoy working with the app!"))),
br()
)
)
)
),
### Loading page ----
### DATASET MENU ----
navbarMenu("Data",
" ",
" ",
### Import or Load files ####
tabPanel("Import or Load files",
sidebarLayout(
sidebarPanel(
width = 3,
h3(em(strong("Import or Load "))),
br(),
selectInput(
"load",
label = "Please, choose what to do",
choices = c(
" " = "null",
"Import raw file(s)" = "import",
"Load bibliometrix file(s)" = "load",
"Use a sample collection" = "demo"
),
selected = "null"
),
conditionalPanel(
condition = "input.load == 'demo'",
helpText(h4(strong("The use of bibliometric approaches in business and management disciplines.")),
h5(strong("Dataset 'Management'")),
em("A collection of scientific articles about the use of bibliometric approaches",
"in business and management disciplines."),
br(),
em("Period: 1985 - 2018, Source WoS.")
)
),
#br(),
conditionalPanel(
condition = "input.load == 'import'",
selectInput(
"dbsource",
label = "Database",
choices = c(
"Web of Science (WoS/WoK)" = "isi",
"Scopus" = "scopus",
"Dimensions" = "dimensions",
"Lens.org" = "lens",
"PubMed" = "pubmed",
"Cochrane Library" = "cochrane"
),
selected = "isi"
)
),
conditionalPanel(
condition = "input.load != 'null' & input.load != 'demo'",
conditionalPanel(
condition = "input.load == 'load'",
helpText(em("Load a collection in XLSX or R format previously exported from bibliometrix")
)),
fileInput(
"file1",
"Choose a file",
multiple = FALSE,
accept = c(
".csv",
".txt",
".ciw",
".bib",
".xlsx",
".zip",
".xls",
".rdata",
".rda",
".rds"
)
)
),
#h6("Here accept single .txt/.bib/.csv/.xslx/.RData files, or multiple .txt/.bib/.csv files compressed in a single .zip archive."),
conditionalPanel(condition = "input.load != 'null'",
actionButton("applyLoad", "Start ")),
tags$hr(),
uiOutput("textLog"),
#shinycssloaders::withSpinner(verbatimTextOutput("log")),
tags$hr(),
h3(em(strong(
"Export a bibliometrix file "
))),
br(),
selectInput(
'save_file',
'Save as:',
choices = c(
' ' = 'null',
'Excel' = 'xlsx',
'R Data Format' = 'RData'
),
selected = 'null'
),
conditionalPanel(condition = "input.save_file != 'null'",
downloadButton("collection.save", "Export"))
),
mainPanel(
## color of datatable
tags$head(tags$style(
HTML(
"table.dataTable.hover tbody tr:hover, table.dataTable.display tbody tr:hover {
background-color: #9c4242 !important;
}
"
)
)),
tags$style(
HTML(
".dataTables_wrapper .dataTables_length, .dataTables_wrapper .dataTables_filter, .dataTables_wrapper .dataTables_info, .dataTables_wrapper .dataTables_processing,.dataTables_wrapper .dataTables_paginate .paginate_button, .dataTables_wrapper .dataTables_paginate .paginate_button.disabled {
color: #000000 !important;
}"
)
),
shinycssloaders::withSpinner(DT::DTOutput("contents"))
)
)),
tabPanel("Gather data using APIs",
sidebarLayout(
sidebarPanel(
width = 3,
h3(em(strong(
"Gather data using APIs "
))),
br(),
selectInput(
"dbapi",
label = "Database",
choices = c("DS Dimensions" = "ds",
"PubMed" = "pubmed"),
selected = "pubmed"
),
### Dimenions API ####
conditionalPanel(
condition = "input.dbapi == 'ds'",
br(),
actionButton("dsShow", h5(strong("1. Configure API request"))),
h5(tags$b("Your Query")),
verbatimTextOutput("queryLog2", placeholder = FALSE),
h5(tags$b("Documents returned using your query")),
verbatimTextOutput("sampleLog2", placeholder = FALSE),
#
#
# uiOutput("sliderLimit"),
),
### Pubmed API ####
conditionalPanel(
condition = "input.dbapi == 'pubmed'",
br(),
actionButton("pmShow", h5(strong("1. Configure API request"))),
h5(tags$b("Your Query")),
verbatimTextOutput("pmQueryLog2", placeholder = FALSE),
h5(tags$b("Documents returned using your query")),
verbatimTextOutput("pmSampleLog2", placeholder = FALSE),
),
tags$hr(),
#h4(em(strong("Gather metadata"))),
actionButton("apiApply", h5(strong("2. Download metadata"))),
tags$hr(),
h3(em(strong(
"Export a bibliometrix file "
))),
br(),
selectInput(
'save_file_api',
'Save as:',
choices = c(
' ' = 'null',
'Excel' = 'xlsx',
'R Data Format' = 'RData'
),
selected = 'null'
),
conditionalPanel(condition = "input.save_file_api != 'null'",
downloadButton("collection.save_api", "Export"))
),
mainPanel(
## color of datatable
tags$head(tags$style(
HTML(
"table.dataTable.hover tbody tr:hover, table.dataTable.display tbody tr:hover {
background-color: #9c4242 !important;
}
"
)
)),
tags$style(
HTML(
".dataTables_wrapper .dataTables_length, .dataTables_wrapper .dataTables_filter, .dataTables_wrapper .dataTables_info, .dataTables_wrapper .dataTables_processing,.dataTables_wrapper .dataTables_paginate .paginate_button, .dataTables_wrapper .dataTables_paginate .paginate_button.disabled {
color: #000000 !important;
}"
)
),
#shinycssloaders::withSpinner(tableOutput("contents"))
shinycssloaders::withSpinner(DT::DTOutput("apiContents"))
)
))
),
### Filters page ----
tabPanel("Filter",
sidebarLayout(
sidebarPanel(width=3,
h3(em(strong("Filter "))),
br(),
actionButton("applyFilter", "Apply!"),
" ",
" ",
uiOutput("textDim"),
uiOutput("selectType"),
uiOutput("sliderPY"),
uiOutput("sliderTC"),
#uiOutput("selectSource"),
selectInput("bradfordSources",
label = "Source by Bradford Law Zones",
choices = c("Core Sources"="core",
"Core + Zone 2 Sources"="zone2",
"All Sources"="all"),
selected = "all")
),
mainPanel(DT::DTOutput("dataFiltered"))
)
),
### DATASET MENU ----
navbarMenu("Dataset",
" ",
" ",
tabPanel("Main Information",
sidebarLayout(
sidebarPanel(width=3,
h3(em(strong("Main Information about the collection "))),
br()),
mainPanel(
shinycssloaders::withSpinner(DT::DTOutput(outputId = "MainInfo", width = 500))
)
)),
tabPanel("Annual Scientific Production",
sidebarLayout(
sidebarPanel(width=3,
" ",
" ",
h3(em(strong("Annual Scientific Production "))),
" ",
br(),
verbatimTextOutput("CAGR"),
br(),
br(),
br(),
selectInput(
'ASPdpi',
h4(em(strong(
"Export plot"
))),
choices=c(
"Please select a dpi value" = "null",
"75 dpi" = "75",
"150 dpi" = "150",
"300 dpi" = "300",
"600 dpi" = "600"
),
selected = "null"
),
conditionalPanel(condition = "input.ASPdpi != 'null'",
sliderInput(
'ASPh',
h4(em(strong(
"Height (in inches)"
))),
value = 7, min = 1, max = 20, step = 1),
downloadButton("ASPplot.save", "Export plot as png"))
),
mainPanel(
tabsetPanel(type = "tabs",
tabPanel("Plot",
shinycssloaders::withSpinner(plotlyOutput(outputId = "AnnualProdPlot", height = "80vh")) #height = 700))
),
tabPanel("Table",
shinycssloaders::withSpinner(DT::DTOutput("AnnualProdTable"))
))
)
)
),
tabPanel("Average Citations per Year",
sidebarLayout(
sidebarPanel(width=3,
" ",
" ",
h3(em(strong("Average Citations per Year "))),
br(),
br(),
br(),
selectInput(
'ACpYdpi',
h4(em(strong(
"Export plot"
))),
choices=c(
"Please select a dpi value" = "null",
"75 dpi" = "75",
"150 dpi" = "150",
"300 dpi" = "300",
"600 dpi" = "600"
),
selected = "null"
),
conditionalPanel(condition = "input.ACpYdpi != 'null'",
sliderInput(
'ACpYh',
h4(em(strong(
"Height (in inches)"
))),
value = 7, min = 1, max = 20, step = 1),
downloadButton("ACpYplot.save", "Export plot as png"))
),
mainPanel(
tabsetPanel(type = "tabs",
tabPanel("Plot",
shinycssloaders::withSpinner(plotlyOutput(outputId = "AnnualTotCitperYearPlot", height = "80vh")) #height = 700))
),
tabPanel("Table",
shinycssloaders::withSpinner(DT::DTOutput("AnnualTotCitperYearTable"))
))
)
)
),
tabPanel("Three-Fields Plot",
sidebarLayout(
sidebarPanel(width=3,
" ",
" ",
h3(em(strong("Three-Fields Plot "))),
" ",
actionButton("apply3F", "Apply!"),
br(),
selectInput("CentralField",
label = "Middle Field",
choices = c("Authors" = "AU",
"Affiliations" = "AU_UN",
"Countries"="AU_CO",
"Keywords" = "DE",
"Keywords Plus" = "ID",
"Titles" = "TI_TM",
"Abstract" = "AB_TM",
"Sources" = "SO",
"References" = "CR",
"Cited Sources" = "CR_SO"),
selected = "AU"),
sliderInput("CentralFieldn",
label=("Middle Field: Number of items"),
min = 1, max = 50, step = 1, value = 20),
selectInput("LeftField",
label = "Left Field",
choices = c("Authors" = "AU",
"Affiliations" = "AU_UN",
"Countries"="AU_CO",
"Keywords" = "DE",
"Keywords Plus" = "ID",
"Titles" = "TI_TM",
"Abstract" = "AB_TM",
"Sources" = "SO",
"References" = "CR",
"Cited Sources" = "CR_SO"),
selected = "CR"),
sliderInput("LeftFieldn",
label=("Left Field: Number of items"),
min = 1, max = 50, step = 1, value = 20),
selectInput("RightField",
label = "Right Field",
choices = c("Authors" = "AU",
"Affiliations" = "AU_UN",
"Countries"="AU_CO",
"Keywords" = "DE",
"Keywords Plus" = "ID",
"Titles" = "TI_TM",
"Abstract" = "AB_TM",
"Sources" = "SO",
"References" = "CR",
"Cited Sources" = "CR_SO"),
selected = "DE"),
sliderInput("RightFieldn",
label=("Right Field: Number of items"),
min = 1, max = 50, step = 1, value = 20)
),
mainPanel(
#tabPanel("Plot",
shinycssloaders::withSpinner(plotlyOutput(outputId = "ThreeFieldsPlot", height = "90vh"))
#shinycssloaders::withSpinner(networkD3::sankeyNetworkOutput(outputId = "ThreeFielsPlot",height = "80vh")) #height = "600px"))
# )
)
)
)
),
### SOURCES MENU ----
navbarMenu("Sources",
" ",
" ",
#### MOST RELEVANT SOURCES ----
tabPanel("Most Relevant Sources",
sidebarLayout(
sidebarPanel(width=3,
h3(em(strong("Most Relevant Sources "))),
br(),
actionButton("applyMRSources", "Apply!"),
" ",
" ",
h4(em(strong("Graphical Parameters: "))),
" ",
numericInput("MostRelSourcesK",
label=("Number of Sources"),
value = 20),
br(),
br(),
br(),
selectInput(
'MRSdpi',
h4(em(strong(
"Export plot"
))),
choices=c(
"Please select a dpi value" = "null",
"75 dpi" = "75",
"150 dpi" = "150",
"300 dpi" = "300",
"600 dpi" = "600"
),
selected = "null"
),
conditionalPanel(condition = "input.MRSdpi != 'null'",
sliderInput(
'MRSh',
h4(em(strong(
"Height (in inches)"
))),
value = 7, min = 1, max = 20, step = 1),
downloadButton("MRSplot.save", "Export plot as png"))
),
mainPanel(
tabsetPanel(type = "tabs",
tabPanel("Plot",
shinycssloaders::withSpinner(plotlyOutput(outputId = "MostRelSourcesPlot", height = "80vh")) #height = 700))
),
tabPanel("Table",
shinycssloaders::withSpinner(DT::DTOutput("MostRelSourcesTable"))
))
)
)
),
#### MOST RELEVANT CITED SOURCES ----
tabPanel("Most Local Cited Sources",
sidebarLayout(
sidebarPanel(width=3,
h3(em(strong("Most Local Cited Sources (from Reference Lists)"))),
br(),
actionButton("applyMLCSources", "Apply!"),
" ",
" ",
h4(em(strong("Graphical Parameters: "))),
" ",
numericInput("MostRelCitSourcesK",
label=("Number of Sources"),
value = 20),
br(),
br(),
br(),
selectInput(
'MLCSdpi',
h4(em(strong(
"Export plot"
))),
choices=c(
"Please select a dpi value" = "null",
"75 dpi" = "75",
"150 dpi" = "150",
"300 dpi" = "300",
"600 dpi" = "600"
),
selected = "null"
),
conditionalPanel(condition = "input.MLCSdpi != 'null'",
sliderInput(
'MLCSh',
h4(em(strong(
"Height (in inches)"
))),
value = 7, min = 1, max = 20, step = 1),
downloadButton("MLCSplot.save", "Export plot as png"))
),
mainPanel(
tabsetPanel(type = "tabs",
tabPanel("Plot",
shinycssloaders::withSpinner(plotlyOutput(outputId = "MostRelCitSourcesPlot", height = "80vh")) #height = 700))
),
tabPanel("Table",
shinycssloaders::withSpinner(DT::DTOutput("MostRelCitSourcesTable"))
))
)
)
),
### BRADFORD LAW ----
tabPanel("Bradford's law",
sidebarLayout(
sidebarPanel(width=3,
h3(em(strong("Source clustering"))),
h4(em(strong("through Bradford's Law "))),
br(),
br(),
br(),
selectInput(
'BLdpi',
h4(em(strong(
"Export plot"
))),
choices=c(
"Please select a dpi value" = "null",
"75 dpi" = "75",
"150 dpi" = "150",
"300 dpi" = "300",
"600 dpi" = "600"
),
selected = "null"
),
conditionalPanel(condition = "input.BLdpi != 'null'",
sliderInput(
'BLh',
h4(em(strong(
"Height (in inches)"
))),
value = 7, min = 1, max = 20, step = 1),
downloadButton("BLplot.save", "Export plot as png"))
),
mainPanel(
tabsetPanel(type = "tabs",
tabPanel("Plot",
shinycssloaders::withSpinner(plotlyOutput(outputId = "bradfordPlot", height = "80vh")) #height = 700))
),
tabPanel("Table",
shinycssloaders::withSpinner(DT::DTOutput("bradfordTable"))
))
)
)
),
### SOURCE IMPACT MENU ----
tabPanel("Source Impact",
sidebarLayout(
sidebarPanel(width=3,
h3(em(strong("Source Local Impact"))),
br(),
actionButton("applyHsource", "Apply!"),
" ",
" ",
h4(em(strong("Graphical Parameters: "))),
" ",
selectInput("HmeasureSources",
label = "Impact measure",
choices = c("H-Index"="h",
"G-Index"="g",
"M-Index"="m",
"Total Citation"="tc"),
selected = "h"),
" ",
numericInput("Hksource",
label=("Number of sources"),
value = 20),
br(),
br(),
br(),
selectInput(
'SIdpi',
h4(em(strong(
"Export plot"
))),
choices=c(
"Please select a dpi value" = "null",
"75 dpi" = "75",
"150 dpi" = "150",
"300 dpi" = "300",
"600 dpi" = "600"
),
selected = "null"
),
conditionalPanel(condition = "input.SIdpi != 'null'",
sliderInput(
'SIh',
h4(em(strong(
"Height (in inches)"
))),
value = 7, min = 1, max = 20, step = 1),
downloadButton("SIplot.save", "Export plot as png"))
),
mainPanel(
tabsetPanel(type = "tabs",
tabPanel("Plot",
shinycssloaders::withSpinner(plotlyOutput(outputId = "SourceHindexPlot", height = "80vh")) #height = 700))
),
tabPanel("Table",
shinycssloaders::withSpinner(DT::DTOutput(outputId = "SourceHindexTable"))
))
)
)
),
### SOURCE DYNAMICS MENU ----
tabPanel("Source Dynamics",
sidebarLayout(
# Sidebar with a slider and selection inputs
sidebarPanel(width=3,
h3(em(strong("Source Dynamics"))),
br(),
actionButton("applySOGrowth", "Apply!"),
br(),
" ",
selectInput("cumSO", "Occurrences",
choices = c("Cumulate" = "Cum",
"Per year" = "noCum"),
selected = "Cum"),
# selectInput("SOse", "Confidence Interval",
# choices = c("Yes" = "Yes",
# "No" = "No"),
# selected = "No"),
hr(),
sliderInput("topSO", label = "Number of Sources", min = 1, max = 50, step = 1, value = c(1,5)),
br(),
br(),
br(),
selectInput(
'SDdpi',
h4(em(strong(
"Export plot"
))),
choices=c(
"Please select a dpi value" = "null",
"75 dpi" = "75",
"150 dpi" = "150",
"300 dpi" = "300",
"600 dpi" = "600"
),
selected = "null"
),
conditionalPanel(condition = "input.SDdpi != 'null'",
sliderInput(
'SDh',
h4(em(strong(
"Height (in inches)"
))),
value = 7, min = 1, max = 20, step = 1),
downloadButton("SDplot.save", "Export plot as png"))
),
#
mainPanel(
tabsetPanel(type = "tabs",
tabPanel("Plot",
#shinycssloaders::withSpinner(plotOutput(outputId = "soGrowthPlot"))
shinycssloaders::withSpinner(plotlyOutput(outputId = "soGrowthPlot", height = "90vh"))
),
tabPanel("Table",
shinycssloaders::withSpinner(DT::DTOutput(outputId = "soGrowthtable"))
))
)
))
),
### AUTHORS MENU ----
navbarMenu("Authors",
" ",
" ",
### MOST RELEVANT AUTHORS ----
"Authors",
tabPanel("Most Relevant Authors",
sidebarLayout(
sidebarPanel(width=3,
h3(em(strong("Most Relevant Authors"))),
br(),
actionButton("applyMRAuthors", "Apply!"),
br(),
" ",
h4(em(strong("Graphical Parameters: "))),
" ",
numericInput("MostRelAuthorsK",
label=("Number of Authors"),
value = 20),
" ",
selectInput("AuFreqMeasure",
label = "Frequency measure",
choices = c("N. of Documents "="t",
"Percentage"="p",
"Fractionalized Frequency"="f"),
selected = "t"),
br(),
br(),
br(),
selectInput(
'MRAdpi',
h4(em(strong(
"Export plot"
))),
choices=c(
"Please select a dpi value" = "null",
"75 dpi" = "75",
"150 dpi" = "150",
"300 dpi" = "300",
"600 dpi" = "600"
),
selected = "null"
),
conditionalPanel(condition = "input.MRAdpi != 'null'",
sliderInput(
'MRAh',
h4(em(strong(
"Height (in inches)"
))),
value = 7, min = 1, max = 20, step = 1),
downloadButton("MRAplot.save", "Export plot as png"))
),
mainPanel(
tabsetPanel(type = "tabs",
tabPanel("Plot",
shinycssloaders::withSpinner(plotlyOutput(outputId = "MostRelAuthorsPlot", height = "80vh")) #height = 700))
),
tabPanel("Table",
shinycssloaders::withSpinner(DT::DTOutput("MostRelAuthorsTable"))
))
)
)
),
### MOST LOCAL CITED AUTHORS
tabPanel("Most Local Cited Authors",
sidebarLayout(
sidebarPanel(width=3,
h3(em(strong("Most Local Cited Authors"))),
br(),
actionButton("applyMLCAuthors", "Apply!"),
br(),
" ",
h4(em(strong("Graphical Parameters: "))),
" ",
numericInput("MostCitAuthorsK",
label=("Number of Authors"),
value = 20),
br(),
br(),
br(),
selectInput(
'MLCAdpi',
h4(em(strong(
"Export plot"
))),
choices=c(
"Please select a dpi value" = "null",
"75 dpi" = "75",
"150 dpi" = "150",
"300 dpi" = "300",
"600 dpi" = "600"
),
selected = "null"
),
conditionalPanel(condition = "input.MLCAdpi != 'null'",
sliderInput(
'MLCAh',
h4(em(strong(
"Height (in inches)"
))),
value = 7, min = 1, max = 20, step = 1),
downloadButton("MLCAplot.save", "Export plot as png"))
),
mainPanel(
tabsetPanel(type = "tabs",
tabPanel("Plot",
shinycssloaders::withSpinner(plotlyOutput(outputId = "MostCitAuthorsPlot", height = "80vh")) #height = 700))
),
tabPanel("Table",
shinycssloaders::withSpinner(DT::DTOutput("MostCitAuthorsTable"))
))
)
)
),
### AUTHORS' PRODUCTION OVER TIME ----
tabPanel("Authors' Production over Time",
sidebarLayout(
sidebarPanel(width=3,
h3(em(strong("Authors' Production over Time"))),
br(),
actionButton("applyAUoverTime", "Apply!"),
br(),
" ",
h4(em(strong("Graphical Parameters: "))),
" ",
numericInput("TopAuthorsProdK",
label=("Number of Authors"),
value = 20),
br(),
br(),
br(),
selectInput(
'APOTdpi',
h4(em(strong(
"Export plot"
))),
choices=c(
"Please select a dpi value" = "null",
"75 dpi" = "75",
"150 dpi" = "150",
"300 dpi" = "300",
"600 dpi" = "600"
),
selected = "null"
),
conditionalPanel(condition = "input.APOTdpi != 'null'",
sliderInput(
'APOTh',
h4(em(strong(
"Height (in inches)"
))),
value = 7, min = 1, max = 20, step = 1),
downloadButton("APOTplot.save", "Export plot as png"))
),
mainPanel(
tabsetPanel(type = "tabs",
tabPanel("Plot",
shinycssloaders::withSpinner(plotlyOutput(outputId = "TopAuthorsProdPlot", height = "80vh"))
),
tabPanel("Table - Top Authors' Production per Year",
shinycssloaders::withSpinner(DT::DTOutput("TopAuthorsProdTable"))
),
tabPanel("Table - Top Author's Documents",
shinycssloaders::withSpinner(DT::DTOutput("TopAuthorsProdTablePapers"))
))
)
)
),
### LOTKA LAW ----
tabPanel("Lotka's law",
sidebarLayout(
sidebarPanel(width=3,
h3(em(strong("Author Productivity"))),
h4(em(strong("through Lotka's Law"))),
br(),
br(),
br(),
selectInput(
'LLdpi',
h4(em(strong(
"Export plot"
))),
choices=c(
"Please select a dpi value" = "null",
"75 dpi" = "75",
"150 dpi" = "150",
"300 dpi" = "300",
"600 dpi" = "600"
),
selected = "null"
),
conditionalPanel(condition = "input.LLdpi != 'null'",
sliderInput(
'LLh',
h4(em(strong(
"Height (in inches)"
))),
value = 7, min = 1, max = 20, step = 1),
downloadButton("LLplot.save", "Export plot as png"))
),
mainPanel(
tabsetPanel(type = "tabs",
tabPanel("Plot",
shinycssloaders::withSpinner(plotlyOutput(outputId = "lotkaPlot", height = "80vh")) #height = 700))
),
tabPanel("Table",
shinycssloaders::withSpinner(DT::DTOutput("lotkaTable"))
))
)
)
),
### AUTHOR IMPACT ----
tabPanel("Author Impact",
sidebarLayout(
sidebarPanel(width=3,
h3(em(strong("Author Local Impact"))),
br(),
actionButton("applyHAuthors", "Apply!"),
br(),
" ",
h4(em(strong("Graphical Parameters: "))),
" ",
selectInput("HmeasureAuthors",
label = "Impact measure",
choices = c("H-Index"="h",
"G-Index"="g",
"M-Index"="m",
"Total Citation"="tc"),
selected = "h"),
" ",
numericInput("Hkauthor",
label=("Number of authors"),
value = 20),
br(),
br(),
br(),
selectInput(
'AIdpi',
h4(em(strong(
"Export plot"
))),
choices=c(
"Please select a dpi value" = "null",
"75 dpi" = "75",
"150 dpi" = "150",
"300 dpi" = "300",
"600 dpi" = "600"
),
selected = "null"
),
conditionalPanel(condition = "input.AIdpi != 'null'",
sliderInput(
'AIh',
h4(em(strong(
"Height (in inches)"
))),
value = 7, min = 1, max = 20, step = 1),
downloadButton("AIplot.save", "Export plot as png"))
),
mainPanel(
tabsetPanel(type = "tabs",
tabPanel("Plot",
shinycssloaders::withSpinner(plotlyOutput(outputId = "AuthorHindexPlot", height = "80vh")) #height = 700))
),
tabPanel("Table",
shinycssloaders::withSpinner(DT::DTOutput(outputId = "AuthorHindexTable"))
))
)
)
),
" ",
" ",
"Affiliations",
### MOST RELEVANT AFFILIATION ----
tabPanel("Most Relevant Affiliations",
sidebarLayout(
sidebarPanel(width=3,
h3(em(strong("Most Relevant Affiliations"))),
br(),
actionButton("applyMRAffiliations", "Apply!"),
br(),
" ",
selectInput("disAff",
label = "Affiliation Name Disambiguation",
choices = c("Yes"="Y",
"No"="N"),
selected = "Y"),
" ",
h4(em(strong("Graphical Parameters: "))),
" ",
numericInput("MostRelAffiliationsK",
label=("Number of Affiliations"),
value = 20),
br(),
br(),
br(),
selectInput(
'AFFdpi',
h4(em(strong(
"Export plot"
))),
choices=c(
"Please select a dpi value" = "null",
"75 dpi" = "75",
"150 dpi" = "150",
"300 dpi" = "300",
"600 dpi" = "600"
),
selected = "null"
),
conditionalPanel(condition = "input.AFFdpi != 'null'",
sliderInput(
'AFFh',
h4(em(strong(
"Height (in inches)"
))),
value = 7, min = 1, max = 20, step = 1),
downloadButton("AFFplot.save", "Export plot as png"))
),
mainPanel(
tabsetPanel(type = "tabs",
tabPanel("Plot",
shinycssloaders::withSpinner(plotlyOutput(outputId = "MostRelAffiliationsPlot", height = "80vh")) #height = 700))
),
tabPanel("Table",
shinycssloaders::withSpinner(DT::DTOutput("MostRelAffiliationsTable"))
))
)
)
),
" ",
" ",
"Countries",
### CORRESP AUTHOR'S COUNTRY ----
tabPanel("Corresponding Author's Country",
sidebarLayout(
sidebarPanel(width=3,
h3(em(strong("Corresponding Author's Country"))),
br(),
actionButton("applyCAUCountries", "Apply!"),
br(),
" ",
h4(em(strong("Graphical Parameters: "))),
" ",
numericInput("MostRelCountriesK",
label=("Number of Countries"),
value = 20),
br(),
br(),
br(),
selectInput(
'MRCOdpi',
h4(em(strong(
"Export plot"
))),
choices=c(
"Please select a dpi value" = "null",
"75 dpi" = "75",
"150 dpi" = "150",
"300 dpi" = "300",
"600 dpi" = "600"
),
selected = "null"
),
conditionalPanel(condition = "input.MRCOdpi != 'null'",
sliderInput(
'MRCOh',
h4(em(strong(
"Height (in inches)"
))),
value = 7, min = 1, max = 20, step = 1),
downloadButton("MRCOplot.save", "Export plot as png"))
),
mainPanel(
tabsetPanel(type = "tabs",
tabPanel("Plot",
shinycssloaders::withSpinner(plotlyOutput(outputId = "MostRelCountriesPlot", height = "80vh")) #height = 700))
),
tabPanel("Table",
shinycssloaders::withSpinner(DT::DTOutput("MostRelCountriesTable"))
))
)
)
),
### COUNTRY SCIENTIFIC PRODUCTION ----
tabPanel("Country Scientific Production",
sidebarLayout(
sidebarPanel(width=3,
h3(em(strong("Country Scientific Production"))),
br(),
br(),
br(),
selectInput(
'CSPdpi',
h4(em(strong(
"Export plot"
))),
choices=c(
"Please select a dpi value" = "null",
"75 dpi" = "75",
"150 dpi" = "150",
"300 dpi" = "300",
"600 dpi" = "600"
),
selected = "null"
),
conditionalPanel(condition = "input.CSPdpi != 'null'",
sliderInput(
'CSPh',
h4(em(strong(
"Height (in inches)"
))),
value = 7, min = 1, max = 20, step = 1),
downloadButton("CSPplot.save", "Export plot as png"))
),
mainPanel(
tabsetPanel(type = "tabs",
tabPanel("Plot",
shinycssloaders::withSpinner(plotlyOutput(outputId = "countryProdPlot", height = "80vh")) #height = 700))
),
tabPanel("Table",
shinycssloaders::withSpinner(DT::DTOutput("countryProdTable"))
))
)
)
),
### MOST CITED COUNTRIES ----
tabPanel("Most Cited Countries",
sidebarLayout(
sidebarPanel(width=3,
h3(em(strong("Most Cited Countries"))),
br(),
actionButton("applyMCCountries", "Apply!"),
br(),
" ",
h4(em(strong("Graphical Parameters: "))),
" ",
selectInput("CitCountriesMeasure",
label = "Measure",
choices = c("Total Citations"="TC",
"Average Citations per Year"="TCY"),
selected = "TC"),
" ",
numericInput("MostCitCountriesK",
label=("Number of Countries"),
value = 20),
br(),
br(),
br(),
selectInput(
'MCCdpi',
h4(em(strong(
"Export plot"
))),
choices=c(
"Please select a dpi value" = "null",
"75 dpi" = "75",
"150 dpi" = "150",
"300 dpi" = "300",
"600 dpi" = "600"
),
selected = "null"
),
conditionalPanel(condition = "input.MCCdpi != 'null'",
sliderInput(
'MCCh',
h4(em(strong(
"Height (in inches)"
))),
value = 7, min = 1, max = 20, step = 1),
downloadButton("MCCplot.save", "Export plot as png"))
),
mainPanel(
tabsetPanel(type = "tabs",
tabPanel("Plot",
shinycssloaders::withSpinner(plotlyOutput(outputId = "MostCitCountriesPlot", height = "80vh")) #height = 700))
),
tabPanel("Table",
shinycssloaders::withSpinner(DT::DTOutput("MostCitCountriesTable"))
))
)
)
)
),
### DOCS MENU ----
navbarMenu("Documents",
" ",
" ",
"Documents",
### CITED DOCS ----
tabPanel("Most Global Cited Documents",
sidebarLayout(
sidebarPanel(width=3,
h3(em(strong("Most Global Cited Documents"))),
br(),
actionButton("applyMGCDocuments", "Apply!"),
br(),
" ",
h4(em(strong("Graphical Parameters: "))),
" ",
numericInput("MostCitDocsK",
label=("Number of Documents"),
value = 20),
" ",
selectInput("CitDocsMeasure",
label = "Measure",
choices = c("Total Citations"="TC",
"Total Citations per Year"="TCY"),
selected = "TC"),
br(),
br(),
br(),
selectInput(
'MGCDdpi',
h4(em(strong(
"Export plot"
))),
choices=c(
"Please select a dpi value" = "null",
"75 dpi" = "75",
"150 dpi" = "150",
"300 dpi" = "300",
"600 dpi" = "600"
),
selected = "null"
),
conditionalPanel(condition = "input.MGCDdpi != 'null'",
sliderInput(
'MGCDh',
h4(em(strong(
"Height (in inches)"
))),
value = 7, min = 1, max = 20, step = 1),
downloadButton("MGCDplot.save", "Export plot as png"))
),
mainPanel(
tabsetPanel(type = "tabs",
tabPanel("Plot",
shinycssloaders::withSpinner(plotlyOutput(outputId = "MostCitDocsPlot", height = "80vh")) #height = 700))
),
tabPanel("Table",
shinycssloaders::withSpinner(DT::DTOutput("MostCitDocsTable"))
))
)
)
),
tabPanel("Most Local Cited Documents",
sidebarLayout(
sidebarPanel(width=3,
h3(em(strong("Most Local Cited Documents"))),
br(),
actionButton("applyMLCDocuments", "Apply!"),
br(),
" ",
h4(em(strong("Graphical Parameters: "))),
" ",
numericInput("MostLocCitDocsK",
label=("Number of Documents"),
value = 20),
" ",
selectInput(inputId = "LocCitSep",
label = "Field separator character",
choices = c(";" = ";",
". " = ". ",
"," = ","),
selected = ";"),
br(),
br(),
br(),
selectInput(
'MLCDdpi',
h4(em(strong(
"Export plot"
))),
choices=c(
"Please select a dpi value" = "null",
"75 dpi" = "75",
"150 dpi" = "150",
"300 dpi" = "300",
"600 dpi" = "600"
),
selected = "null"
),
conditionalPanel(condition = "input.MLCDdpi != 'null'",
sliderInput(
'MLCDh',
h4(em(strong(
"Height (in inches)"
))),
value = 7, min = 1, max = 20, step = 1),
downloadButton("MLCDplot.save", "Export plot as png"))
),
mainPanel(
tabsetPanel(type = "tabs",
tabPanel("Plot",
shinycssloaders::withSpinner(plotlyOutput(outputId = "MostLocCitDocsPlot", height = "80vh")) #height = 700))
),
tabPanel("Table",
shinycssloaders::withSpinner(DT::DTOutput("MostLocCitDocsTable"))
))
)
)
),
### CITED REFERENCES ----
" ",
" ",
"Cited References",
tabPanel("Most Local Cited References",
sidebarLayout(
sidebarPanel(width=3,
h3(em(strong("Most Local Cited References"))),
br(),
actionButton("applyMLCReferences", "Apply!"),
br(),
" ",
h4(em(strong("Graphical Parameters: "))),
" ",
numericInput("MostCitRefsK",
label=("Number of Documents"),
value = 20),
" ",
selectInput(inputId = "CitRefsSep",
label = "Field separator character",
choices = c(";" = ";",
". " = ". ",
"," = ","),
selected = ";"),
br(),
br(),
br(),
selectInput(
'MLCRdpi',
h4(em(strong(
"Export plot"
))),
choices=c(
"Please select a dpi value" = "null",
"75 dpi" = "75",
"150 dpi" = "150",
"300 dpi" = "300",
"600 dpi" = "600"
),
selected = "null"
),
conditionalPanel(condition = "input.MLCRdpi != 'null'",
sliderInput(
'MLCRh',
h4(em(strong(
"Height (in inches)"
))),
value = 7, min = 1, max = 20, step = 1),
downloadButton("MLCRplot.save", "Export plot as png"))
),
mainPanel(
tabsetPanel(type = "tabs",
tabPanel("Plot",
shinycssloaders::withSpinner(plotlyOutput(outputId = "MostCitRefsPlot", height = "80vh")) #height = 700))
),
tabPanel("Table",
shinycssloaders::withSpinner(DT::DTOutput("MostCitRefsTable"))
))
)
)
),
### Reference Spectroscopy ----
tabPanel("Reference Spectroscopy",
sidebarLayout(
sidebarPanel(width=3,
h3(em(strong("Reference Spectroscopy"))),
br(),
actionButton("applyRPYS", "Apply!"),
br(),
" ",
h4(em(strong("Parameters: "))),
" ",
selectInput(inputId = "rpysSep",
label = "Field separator character",
choices = c(";" = ";",
". " = ". ",
"," = ","),
selected = ";"),
br(),
h4(em(strong("Time slice"))),
fluidRow(column(6,
numericInput(inputId = "rpysMinYear",
label = "Starting Year",
value = NA,
step = 1)),
column(6,
numericInput(inputId = "rpysMaxYear",
label = "End Year",
value = NA,
step = 1)
)),
br(),
br(),
br(),
selectInput(
'RSdpi',
h4(em(strong(
"Export plot"
))),
choices=c(
"Please select a dpi value" = "null",
"75 dpi" = "75",
"150 dpi" = "150",
"300 dpi" = "300",
"600 dpi" = "600"
),
selected = "null"
),
conditionalPanel(condition = "input.RSdpi != 'null'",
sliderInput(
'RSh',
h4(em(strong(
"Height (in inches)"
))),
value = 7, min = 1, max = 20, step = 1),
downloadButton("RSplot.save", "Export plot as png"))
),
mainPanel(
tabsetPanel(type = "tabs",
tabPanel("Graph",
shinycssloaders::withSpinner(plotlyOutput(outputId = "rpysPlot", height = "80vh"))), #height = 700))),
tabPanel("RPY Table",
shinycssloaders::withSpinner(DT::DTOutput(
outputId = "rpysTable"))),
tabPanel("Cited References Table",
shinycssloaders::withSpinner(DT::DTOutput(
outputId = "crTable")))
)
))),
### WORDS MENU ----
" ",
" ",
"Words",
### MOST FREQ WORDS ----
tabPanel("Most Frequent Words",
sidebarLayout(
# Sidebar with a slider and selection inputs
sidebarPanel(width=3,
h3(em(strong("Most Frequent Words"))),
br(),
actionButton("applyMFWords", "Apply!"),
br(),
" ",
h4(em(strong("Parameters:"))),
" ",
selectInput("MostRelWords", "Field",
choices = c("Keywords Plus" = "ID",
"Author's keywords" = "DE",
"Titles" = "TI",
"Abstracts" = "AB"),
selected = "ID"),
conditionalPanel(condition = "input.MostRelWords == 'AB' |input.MostRelWords == 'TI'",
selectInput("MRWngrams",'N-Grams',
choices = c("Unigrams" = "1",
"Bigrams" = "2",
"Trigrams" = "3"),
selected = 1)),
hr(),
sliderInput("MostRelWordsN", label = "Number of words", min = 2, max = 50, step = 1, value = 10),
br(),
br(),
br(),
selectInput(
'MRWdpi',
h4(em(strong(
"Export plot"
))),
choices=c(
"Please select a dpi value" = "null",
"75 dpi" = "75",
"150 dpi" = "150",
"300 dpi" = "300",
"600 dpi" = "600"
),
selected = "null"
),
conditionalPanel(condition = "input.MRWdpi != 'null'",
sliderInput(
'MRWh',
h4(em(strong(
"Height (in inches)"
))),
value = 7, min = 1, max = 20, step = 1),
downloadButton("MRWplot.save", "Export plot as png"))
),
# Show Word Cloud
mainPanel(
tabsetPanel(type = "tabs",
tabPanel("Plot",
shinycssloaders::withSpinner(plotlyOutput(outputId = "MostRelWordsPlot", height = "80vh")) #height = 700))
),
tabPanel("Table",
shinycssloaders::withSpinner(DT::DTOutput("MostRelWordsTable"))
))
)
)),
### WORDCLOUD ----
tabPanel("WordCloud",
sidebarLayout(
# Sidebar with a slider and selection inputs
sidebarPanel(width=3,
h3(em(strong("WordCloud"))),
br(),
actionButton("applyWordCloud", "Apply!"),
br(),
" ",
h4(em(strong(" "))),
" ",
selectInput("summaryTerms", "Field",
choices = c("Keywords Plus" = "ID",
"Author's keywords" = "DE",
"Titles" = "TI",
"Abstracts" = "AB"),
selected = "ID"),
conditionalPanel(condition = "input.summaryTerms == 'AB' |input.summaryTerms == 'TI'",
selectInput("summaryTermsngrams",'N-Grams',
choices = c("Unigrams" = "1",
"Bigrams" = "2",
"Trigrams" = "3"),
selected = 1)),
#hr(),
numericInput("n_words", label = "Number of words", min = 10, max = 500, step = 1, value = 50),
hr(),
selectInput("wcNP",
label = h4(em(strong("WC Parameters: "))),
choices = c("Hide Parameters" = "hide",
"Show Parameters" = "show"),
selected = "hide"),
conditionalPanel(condition = "input.wcNP == 'show'",
" ",
fluidRow(column(6,
selectInput("measure", "Word occurrence by",
choices = c("Frequency" = "freq",
"Square root" = "sqrt",
"Log" = "log",
"Log10" = "log10"),
selected = "freq")
),
column(6,
selectInput("wcShape", "Shape",
choices = c("Circle" = "circle",
"Cardiod" = "cardioid",
"Diamond" = "diamond",
"Pentagon" = "pentagon",
"Star" = "star",
"Triangle-forward" = "triangle-forward"
,"Triangle" = "triangle"),
selected = "circle")
)),
fluidRow(column(6,
selectInput("font", label = "Font type",
choices = c("Impact", "Comic Sans MS (No plz!)" = "Comic Sans MS",
"Arial", "Arial Black", "Tahoma", "Verdana", "Courier New",
"Georgia", "Times New Roman", "Andale Mono"))
),
column(6,
selectInput("wcCol", "Text colors",
choices = c("Random Dark" = "random-dark",
"Random Light" = "random-light"),
selected = "random-dark")
)),
fluidRow(column(6,
numericInput("scale", label = "Font size", min=0.2,max=5,step=0.1,value=1)
),
column(6,
numericInput("ellipticity", label = "Ellipticity", min=0,max=1,step=0.05,value=0.65)
)),
fluidRow(column(6,
numericInput("padding", label = "Padding", min = 0, max = 5, value = 1, step = 1)
),
column(6,
numericInput("rotate", label = "Rotate", min = 0, max = 20, value = 0, step = 1)
)))
),
# Show Word Cloud
mainPanel(
tabsetPanel(type = "tabs",
tabPanel("Plot",
wordcloud2::wordcloud2Output("wordcloud", height = "80vh") #height = "600px")
),
tabPanel("Table",
shinycssloaders::withSpinner(DT::DTOutput("wordTable"))
))
)
)),
### TREEMAP ----
tabPanel("TreeMap",
sidebarLayout(
# Sidebar with a slider and selection inputs
sidebarPanel(width=3,
h3(em(strong("TreeMap "))),
br(),
actionButton("applyTreeMap", "Apply!"),
br(),
" ",
h4(em(strong("Graphical Parameters:"))),
" ",
selectInput("treeTerms", "Field",
choices = c("Keywords Plus" = "ID",
"Author's keywords" = "DE",
"Titles" = "TI",
"Abstracts" = "AB"),
selected = "ID"),
conditionalPanel(condition = "input.treeTerms == 'AB' |input.treeTerms == 'TI'",
selectInput("treeTermsngrams",'N-Grams',
choices = c("Unigrams" = "1",
"Bigrams" = "2",
"Trigrams" = "3"),
selected = 1)),
hr(),
numericInput("treen_words", label = "Number of words", min = 10, max = 200, step = 5, value = 50)
),
# Show TreeMap
mainPanel(
tabsetPanel(type = "tabs",
tabPanel("Plot",
shinycssloaders::withSpinner(plotlyOutput(outputId = "treemap", height = "80vh")) #height = 700))
#shinycssloaders::withSpinner(plotOutput("treemap"))
),
tabPanel("Table",
shinycssloaders::withSpinner(DT::DTOutput("treeTable"))
))
)
)),
### WORD DYNAMICS ----
tabPanel("Word Dynamics",
sidebarLayout(
# Sidebar with a slider and selection inputs
sidebarPanel(width=3,
h3(em(strong("Word Dynamics"))),
br(),
actionButton("applyWD", "Apply!"),
br(),
" ",
h4(em(strong("Graphical Parameters:"))),
" ",
selectInput("growthTerms", "Field",
choices = c("Keywords Plus" = "ID",
"Author's keywords" = "DE",
"Titles" = "TI",
"Abstracts" = "AB"),
selected = "ID"),
selectInput("cumTerms", "Occurrences",
choices = c("Cumulate" = "Cum",
"Per year" = "noCum"),
selected = "Cum"),
conditionalPanel(condition = "input.growthTerms == 'AB' |input.growthTerms == 'TI'",
selectInput("growthTermsngrams",'N-Grams',
choices = c("Unigrams" = "1",
"Bigrams" = "2",
"Trigrams" = "3"),
selected = 1)),
hr(),
sliderInput("topkw", label = "Number of words", min = 1, max = 100, step = 1, value = c(1,10)),
br(),
br(),
br(),
br(),
selectInput(
'WDdpi',
h4(em(strong(
"Export plot"
))),
choices=c(
"Please select a dpi value" = "null",
"75 dpi" = "75",
"150 dpi" = "150",
"300 dpi" = "300",
"600 dpi" = "600"
),
selected = "null"
),
conditionalPanel(condition = "input.WDdpi != 'null'",
sliderInput(
'WDh',
h4(em(strong(
"Height (in inches)"
))),
value = 7, min = 1, max = 20, step = 1),
downloadButton("WDplot.save", "Export plot as png"))
),
#
mainPanel(
tabsetPanel(type = "tabs",
tabPanel("Plot",
#shinycssloaders::withSpinner(plotOutput(outputId = "kwGrowthPlot"))
shinycssloaders::withSpinner(plotlyOutput(outputId = "kwGrowthPlot", height = "90vh")) #height = 700))
),
tabPanel("Table",
shinycssloaders::withSpinner(DT::DTOutput(outputId = "kwGrowthtable"))
))
)
)),
### TREND TOPICS ----
tabPanel("Trend Topics",
sidebarLayout(
# Sidebar with a slider and selection inputs
sidebarPanel(width=3,
h3(em(strong("Trend Topics"))),
br(),
actionButton("applyTrendTopics", "Apply!"),
h4(em(strong("Method Parameters:"))),
" ",
selectInput("trendTerms", "Field",
choices = c("Keywords Plus" = "ID",
"Author's keywords" = "DE",
"Titles" = "TI",
"Abstracts" = "AB"),
selected = "ID"),
conditionalPanel(condition = "input.trendTerms == 'TI' | input.trendTerms == 'AB'",
selectInput("trendTermsngrams",'N-Grams',
choices = c("Unigrams" = "1",
"Bigrams" = "2",
"Trigrams" = "3"),
selected = 1)),
conditionalPanel(
condition = "input.trendTerms == 'TI' | input.trendTerms == 'AB'",
selectInput("trendStemming", label="Word Stemming",
choices = c("Yes" = TRUE,
"No" = FALSE),
selected = FALSE)),
uiOutput("trendSliderPY"),
hr(),
h4(em(strong("Graphical Parameters:"))),
" ",
#uiOutput("trendMinFreq"),
sliderInput("trendMinFreq", label = "Word Minimum Frequency", min = 0, max = 100, value = 5, step = 1),
sliderInput("trendNItems", label = "N. of Words per Year", min = 1, max = 20, step = 1, value = 5),
#sliderInput("trendSize", label = "Word label size", min = 0, max = 20, step = 1, value = 5),
br(),
br(),
br(),
selectInput(
'TTdpi',
h4(em(strong(
"Export plot"
))),
choices=c(
"Please select a dpi value" = "null",
"75 dpi" = "75",
"150 dpi" = "150",
"300 dpi" = "300",
"600 dpi" = "600"
),
selected = "null"
),
conditionalPanel(condition = "input.TTdpi != 'null'",
sliderInput(
'TTh',
h4(em(strong(
"Height (in inches)"
))),
value = 7, min = 1, max = 20, step = 1),
downloadButton("TTplot.save", "Export plot as png"))
),
#
mainPanel(
tabsetPanel(type = "tabs",
tabPanel("Plot",
shinycssloaders::withSpinner(plotlyOutput(outputId = "trendTopicsPlot", height = "90vh")) #height = 700))
#shinycssloaders::withSpinner(plotOutput(outputId = "trendTopicsPlot"))
),
tabPanel("Table",
shinycssloaders::withSpinner(DT::DTOutput(outputId = "trendTopicsTable"))
))
)
))
),
### COUPLING ----
navbarMenu("Clustering ",
#### Coupling ----
" ",
" ",
tabPanel("Clustering by Coupling",
sidebarLayout(
sidebarPanel(width=3,
h3(em(strong("Coupling Map"))),
br(),
actionButton("applyCM", "Apply!"),
" ",
" ",
h4(em(strong(" "))),
" ",
selectInput("CManalysis",
label = "Unit of Analysis",
choices = c("Documents" = "documents",
"Authors" = "authors",
"Sources" = "sources"),
selected = "documents"),
" ",
selectInput("cmNP",
label = h4(em(strong("Coupling Parameters: "))),
choices = c("Hide Parameters" = "hide",
"Show Parameters" = "show"),
selected = "hide"),
conditionalPanel(condition = "input.cmNP == 'show'",
" ",
selectInput("CMfield",
label = "Coupling measured by",
choices = c("References" ="CR",
"Keywords Plus" = "ID",
"Author's Keywords" = "DE",
"Titles" = "TI",
"Abstracts" = "AB"),
selected = "CR"),
conditionalPanel(condition = "input.CMfield == 'TI' | input.CMfield == 'AB'",
selectInput("CMstemming", label="Word Stemming",
choices = c("Yes" = TRUE,
"No" = FALSE),
selected = FALSE)),
selectInput("CMimpact",
label = "Impact measure",
choices = c("Local Citation Score" = "local",
"Global Citation Score" = "global"),
selected = "local"),
selectInput("CMlabeling",
label = "Cluster labeling by",
choices = c("None" = "none",
"Keyword Plus" = "ID",
"Authors' keywords" = "DE",
"Title terms" = "TI",
"Abstract terms" = "AB"),
selected = "ID"),
conditionalPanel(condition = "input.CMlabeling == 'TI' | input.CMlabeling == 'AB'",
selectInput("CMngrams",'N-Grams',
choices = c("Unigrams" = "1",
"Bigrams" = "2",
"Trigrams" = "3"),
selected = 1)),
fluidRow(column(6,
numericInput("CMn", label="Number of Units\n ",value=250,min=50,max=5000,step=1)),
column(6,
numericInput("CMfreq", label="Min Cluster Freq. (‰)",value=5,min=1,max=100,step=1))),
fluidRow(column(6,
numericInput("CMn.labels", label="Labels per cluster",value=3,min=1,max=10,step=1)),
column(6,
numericInput("sizeCM", label="Label size",value=0.3,min=0.0,max=1,step=0.05)))
),
br(),
br(),
br(),
selectInput(
'CMdpi',
h4(em(strong(
"Export plot"
))),
choices=c(
"Please select a dpi value" = "null",
"75 dpi" = "75",
"150 dpi" = "150",
"300 dpi" = "300",
"600 dpi" = "600"
),
selected = "null"
),
conditionalPanel(condition = "input.CMdpi != 'null'",
sliderInput(
'CMh',
h4(em(strong(
"Height (in inches)"
))),
value = 7, min = 1, max = 20, step = 1),
downloadButton("CMplot.save", "Export plot as png"))
),
mainPanel("Clustering by Coupling",
tabsetPanel(type = "tabs",
tabPanel("Map",
shinycssloaders::withSpinner(plotlyOutput(outputId = "CMPlot", height = "80vh")) #height = 700))
),
tabPanel("Network",
shinycssloaders::withSpinner(visNetworkOutput("CMNetPlot", height = "80vh"))), #height = "750px",width = "1100px"))),
tabPanel("Data",
shinycssloaders::withSpinner(DT::DTOutput(outputId = "CMTable"))
),
tabPanel("Clusters",
shinycssloaders::withSpinner(DT::DTOutput(outputId = "CMTableCluster"))
)
)
)
)
) ## End of tabPanel ("Thematic Map")
),
### CONCEPTUAL STRUCTURE ----
navbarMenu("Conceptual Structure",
#### Co-occurrence Network ----
" ",
" ",
"Network Approach",
tabPanel("Co-occurrence Network",
sidebarLayout(
sidebarPanel(width=3,
h3(em(strong("Co-occurrence Network"))),
br(),
actionButton("applyCoc", "Apply!"),
br(),
br(),
#" ",
#h4(em(strong("Network Parameters: "))),
selectInput("field",
label = h4(em(strong("Field"))),
choices = c("Keywords Plus" = "ID",
"Author's Keywords" = "DE",
"Titles" = "TI",
"Abstracts" = "AB"),
selected = "ID"),
conditionalPanel(condition = "input.field == 'TI' | input.field == 'AB'",
selectInput("cocngrams",'N-Grams',
choices = c("Unigrams" = "1",
"Bigrams" = "2",
"Trigrams" = "3"),
selected = 1)),
selectInput("cocNP",
label = h4(em(strong("Network Parameters: "))),
choices = c("Hide Network Parameters" = "hide",
"Show Network Parameters" = "show"),
selected = "hide"),
conditionalPanel(condition = "input.cocNP == 'show'",
" ",
fluidRow(column(6,
selectInput("layout",
label = "Network Layout",
choices = c("Automatic layout"="auto",
"Circle"="circle",
"Fruchterman & Reingold"="fruchterman",
"Kamada & Kawai"="kamada",
"MultiDimensional Scaling"="mds",
"Sphere"="sphere",
"Star"="star"),
selected = "auto")
),
column(6,
selectInput("cocCluster",
label = "Clustering Algorithm",
choices = c("None" = "none",
"Edge Betweenness" = "edge_betweenness",
"InfoMap" = "infomap",
"Leading Eigenvalues" = "leading_eigen",
"Louvain" = "louvain",
"Spinglass" = "spinglass",
"Walktrap" = "walktrap"),
selected = "louvain")
)),
fluidRow(column(6,
selectInput("normalize",
label = "Normalization",
choices = c("none",
"association",
"jaccard",
"salton",
"inclusion",
"equivalence"),
selected = "association")
),
column(6,
selectInput("cocyears",
label = "Node Color by Year",
choices = c("No" = "No",
"Yes"= "Yes"),
selected = "No")
)),
fluidRow(column(6,
numericInput(inputId = "Nodes",
label = "Number of Nodes",
min = 5,
max = 1000,
value = 50,
step = 1)
),
column(6,
numericInput(inputId = "coc.repulsion",
label = "Repulsion Force",
min = 0,
max = 1,
value = 0.1,
step = 0.1)
)),
fluidRow(column(6,
selectInput(inputId ="coc.isolates",
label = "Remove Isolated Nodes",
choices = c("Yes" = "yes",
"No" = "no"),
selected = "yes")
),
column(6,
numericInput("edges.min",
label=("Minimum Number of Edges"),
value = 2,
step = 1,
min = 0)
)
)),
#uiOutput("Focus"),
" ",
#h4(em(strong("Graphical Parameters: "))),
#br(),
selectInput("cocGP",
label = h4(em(strong("Graphical Parameters: "))),
choices = c("Hide Graphical Parameters" = "hide",
"Show Graphical Parameters" = "show"),
selected = "hide"),
conditionalPanel(condition = "input.cocGP == 'show'",
" ",
fluidRow(column(6,
numericInput(inputId = "cocAlpha",
label = "Opacity",
min = 0,
max = 1,
value = 0.7,
step=0.05)
),
column(6,
numericInput(inputId = "Labels",
label = "Number of labels",
min = 0,
max = 1000,
value = 50,
step = 1)
)),
fluidRow(column(6,
selectInput(inputId ="label.cex",
label = "Label cex",
choices = c("Yes",
"No"),
selected = "Yes")
),
column(6,
selectInput(inputId ="coc.shape",
label = "Node Shape",
choices = c(
"Box"="box",
"Circle"="circle",
"Dot"="dot",
"Ellipse"="ellipse",
"Square"="square",
"Text"="text"),
selected = "dot")
)),
fluidRow(column(6,
numericInput(inputId = "labelsize",
label = "Label size",
min = 0.0,
max = 20,
value = 6,
step = 0.10)
),
column(6,
numericInput(
inputId = "edgesize",
label = "Edge size",
min = 0.5,
max = 20,
value = 5,
step=0.5)
)),
fluidRow(column(6,
selectInput(inputId ="coc.shadow",
label = "Node shadow",
choices = c("Yes",
"No"),
selected = "No")
),
column(6,
selectInput(inputId ="coc.curved",
label = "Curved edges",
choices = c("Yes",
"No"),
selected = "No")
)
)
),
fluidRow(column(6,
downloadButton("network.coc", "Save Pajek")
),
column(6,
downloadButton("networkCoc.fig", "Save HTML")
))
),
mainPanel(
tabsetPanel(type = "tabs",
tabPanel("Network Map",
shinycssloaders::withSpinner(visNetworkOutput("cocPlot", height = "80vh"))), #height = "750px",width = "1100px"))),
# tabPanel("Communities",
# shinycssloaders::withSpinner(visNetworkOutput("cocPlotComm", height = "80vh"))), #height = "750px",width = "1100px"))),
tabPanel("Table",
shinycssloaders::withSpinner(DT::DTOutput(
outputId = "cocTable"))),
tabPanel("Degree Plot",
shinycssloaders::withSpinner(plotlyOutput(outputId = "cocDegree", height = "80vh"))) #height=700)))
)
)
)
), ## End of tabPanel ("CS network")
### Thematic Map ----
#" ",
#" ",
#"Thematic Analysis",
tabPanel("Thematic Map",
sidebarLayout(
sidebarPanel(width=3,
h3(em(strong("Thematic Map"))),
br(),
actionButton("applyTM", "Apply!"),
" ",
" ",
h4(em(strong(" "))),
" ",
selectInput("TMfield",
label = "Field",
choices = c("Keywords Plus" = "ID",
"Author's Keywords" = "DE",
"Titles" = "TI",
"Abstracts" = "AB"),
selected = "ID"),
conditionalPanel(condition = "input.TMfield == 'TI' | input.TMfield == 'AB'",
selectInput("TMngrams",'N-Grams',
choices = c("Unigrams" = "1",
"Bigrams" = "2",
"Trigrams" = "3"),
selected = 1)),
conditionalPanel(
condition = "input.TMfield == 'TI' | input.TMfield == 'AB'",
selectInput("TMstemming", label="Word Stemming",
choices = c("Yes" = TRUE,
"No" = FALSE),
selected = FALSE)),
selectInput("tmNP",
label = h4(em(strong("TM Parameters: "))),
choices = c("Hide Parameters" = "hide",
"Show Parameters" = "show"),
selected = "hide"),
conditionalPanel(condition = "input.tmNP == 'show'",
" ",
fluidRow(column(6,
numericInput("TMn", label="Number of Words",value=250,min=50,max=5000,step=1)
),
column(6,
numericInput("TMfreq", label="Min Cluster Frequency (per thousand docs)",value=5,min=1,max=100,step=1)
)),
fluidRow(column(6,
numericInput("TMn.labels", label="Number of Labels",value=3,min=0,max=10,step=1)
),
column(6,
numericInput("sizeTM", label="Label size",value=0.3,min=0.0,max=1,step=0.05)
))
),
br(),
br(),
br(),
selectInput(
'TMdpi',
h4(em(strong(
"Export plot"
))),
choices=c(
"Please select a dpi value" = "null",
"75 dpi" = "75",
"150 dpi" = "150",
"300 dpi" = "300",
"600 dpi" = "600"
),
selected = "null"
),
conditionalPanel(condition = "input.TMdpi != 'null'",
sliderInput(
'TMh',
h4(em(strong(
"Height (in inches)"
))),
value = 7, min = 1, max = 20, step = 1),
downloadButton("TMplot.save", "Export plot as png"))
),
mainPanel("Thematic Map",
tabsetPanel(type = "tabs",
tabPanel("Map",
shinycssloaders::withSpinner(plotlyOutput(outputId = "TMPlot", height = "80vh")) #height = 700))
),
tabPanel("Network",
shinycssloaders::withSpinner(visNetworkOutput("NetPlot", height = "80vh"))), #height = "750px",width = "1100px"))),
tabPanel("Data",
shinycssloaders::withSpinner(DT::DTOutput(outputId = "TMTable"))
),
tabPanel("Clusters",
shinycssloaders::withSpinner(DT::DTOutput(outputId = "TMTableCluster"))
)
)
)
)
), ## End of tabPanel ("Thematic Map")
### Thematic Evolution ----
tabPanel("Thematic Evolution",
sidebarLayout(
sidebarPanel(width=3,
h3(em(strong("Thematic Evolution"))),
br(),
actionButton("applyTE", "Apply!"),
br(),
h4(em(strong(" "))),
" ",
selectInput("TEfield",
label = "Field",
choices = c("Keywords Plus" = "ID",
"Author's Keywords" = "DE",
"Titles" = "TI",
"Abstracts
" = "AB"),
selected = "ID"),
conditionalPanel(condition = "input.TEfield == 'TI' | input.TEfield == 'AB'",
selectInput("TEngrams",'N-Grams',
choices = c("Unigrams" = "1",
"Bigrams" = "2",
"Trigrams" = "3"),
selected = 1)),
selectInput("teNP",
label = h4(em(strong("TE Parameters: "))),
choices = c("Hide Parameters" = "hide",
"Show Parameters" = "show"),
selected = "hide"),
conditionalPanel(condition = "input.teNP == 'show'",
" ",
fluidRow(column(6,
numericInput("nTE", label="Number of Words",value=250,min=50,max=5000,step=1)
),
column(6,
numericInput("fTE", label="Min Cluster Frequency (per thousand docs)",value=5,min=1,max=100,step=1)
)),
fluidRow(column(6,
selectInput("TEmeasure",
label = "Weight index",
choices = c("Inclusion Index" = "inclusion",
"Inclusion Index weighted by Word-Occurrences" = "weighted",
"Stability Index" = "stability"
),
selected = "weighted")
),
column(6,
numericInput("minFlowTE", label="Min Weight Index",value=0.1,min=0.02,max=1,step=0.02)
)),
fluidRow(column(6,
numericInput("sizeTE", label="Label size",value=0.3,min=0.0,max=1,step=0.05)
),
column(6,
numericInput("TEn.labels", label="Number of Labels (for each cluster)",value=1,min=1,max=5,step=1)
))
),
br(),
h4(em(strong("Time Slices: "))),
numericInput("numSlices", label="Number of Cutting Points",min=1,max=4,value=1),
"Please, write the cutting points (in year) for your collection",
uiOutput("sliders")
),
mainPanel("Thematic Evolution",
tabsetPanel(type = "tabs",
tabPanel("Thematic Evolution", tabsetPanel(type="tabs",
tabPanel("Map",
#shinycssloaders::withSpinner(networkD3::sankeyNetworkOutput(outputId = "TEPlot", height = "80vh")) #height = "600px"))
shinycssloaders::withSpinner(plotlyOutput(outputId = "TEPlot", height = "80vh"))
),
tabPanel("Table",
shinycssloaders::withSpinner(DT::DTOutput(outputId = "TETable"))
))
),
tabPanel("Time Slice 1", tabsetPanel(type="tabs",
tabPanel("Thematic Map",
shinycssloaders::withSpinner(plotlyOutput(outputId = "TMPlot1", height = "80vh")) #height = 700))
),
tabPanel("Network",
shinycssloaders::withSpinner(visNetworkOutput("NetPlot1", height = "80vh")) # height = "750px",width = "1100px"))
),
tabPanel("Data",
shinycssloaders::withSpinner(DT::DTOutput(outputId = "TMTable1"))
),
tabPanel("Clusters",
shinycssloaders::withSpinner(DT::DTOutput(outputId = "TMTableCluster1"))
)
)
),
tabPanel("Time Slice 2", tabsetPanel(type="tabs",
tabPanel("Thematic Map",
shinycssloaders::withSpinner(plotlyOutput(outputId = "TMPlot2", height = "80vh")) #height = 700))
),
tabPanel("Network",
shinycssloaders::withSpinner(visNetworkOutput("NetPlot2", height = "80vh")) #height = "750px",width = "1100px"))
),
tabPanel("Data",
shinycssloaders::withSpinner(DT::DTOutput(outputId = "TMTable2"))
),
tabPanel("Clusters",
shinycssloaders::withSpinner(DT::DTOutput(outputId = "TMTableCluster2"))
)
)
),
tabPanel("Time Slice 3", tabsetPanel(type="tabs",
tabPanel("Thematic Map",
shinycssloaders::withSpinner(plotlyOutput(outputId = "TMPlot3", height = "80vh")) #height = 700))
),
tabPanel("Network",
shinycssloaders::withSpinner(visNetworkOutput("NetPlot3", height = "80vh")) #height = "750px",width = "1100px"))
),
tabPanel("Data",
shinycssloaders::withSpinner(DT::DTOutput(outputId = "TMTable3"))
),
tabPanel("Clusters",
shinycssloaders::withSpinner(DT::DTOutput(outputId = "TMTableCluster3"))
)
)
),
tabPanel("Time Slice 4", tabsetPanel(type="tabs",
tabPanel("Thematic Map",
shinycssloaders::withSpinner(plotlyOutput(outputId = "TMPlot4", height = "80vh")) #height = 700))
),
tabPanel("Network",
shinycssloaders::withSpinner(visNetworkOutput("NetPlot4", height = "80vh")) #height = "750px",width = "1100px"))
),
tabPanel("Data",
shinycssloaders::withSpinner(DT::DTOutput(outputId = "TMTable4"))
),
tabPanel("Clusters",
shinycssloaders::withSpinner(DT::DTOutput(outputId = "TMTableCluster4"))
)
)
),
tabPanel("Time Slice 5", tabsetPanel(type="tabs",
tabPanel("Thematic Map",
shinycssloaders::withSpinner(plotlyOutput(outputId = "TMPlot5", height = "80vh")) #height = 700))
),
tabPanel("Network",
shinycssloaders::withSpinner(visNetworkOutput("NetPlot5", height = "80vh")) #height = "750px",width = "1100px"))
),
tabPanel("Data",
shinycssloaders::withSpinner(DT::DTOutput(outputId = "TMTable5"))
),
tabPanel("Clusters",
shinycssloaders::withSpinner(DT::DTOutput(outputId = "TMTableCluster5"))
)
)
)
)
)
)
), ## End of tabPanel ("Thematic Map")
### Factorial Analysis ----
" ",
" ",
"Factorial Approach",
tabPanel("Factorial Analysis",
sidebarLayout(
sidebarPanel(width=3,
h3(em(strong("Factorial Analysis"))),
br(),
actionButton("applyCA", "Apply!"),
" ",
" ",
h4(em(strong(" "))),
" ",
selectInput("method",
label = "Method",
choices = c("Correspondence Analysis" = "CA",
"Multiple Correspondence Analysis" = "MCA",
"Multidimensional Scaling"= "MDS"),
selected = "MCA"),
selectInput("CSfield",
label = "Field",
choices = c("Keywords Plus" = "ID",
"Author's Keywords" = "DE",
"Titles" = "TI",
"Abstracts" = "AB"),
selected = "ID"),
conditionalPanel(condition = "input.CSfield == 'TI' | input.CSfield == 'AB'",
selectInput("CSngrams",'N-Grams',
choices = c("Unigrams" = "1",
"Bigrams" = "2",
"Trigrams" = "3"),
selected = 1)),
#h4(em(strong("FA Parameters: "))),
selectInput("faNP",
label = h4(em(strong("Method Parameters: "))),
choices = c("Hide Parameters" = "hide",
"Show Parameters" = "show"),
selected = "hide"),
conditionalPanel(condition = "input.faNP == 'show'",
" ",
fluidRow(column(6,
numericInput("CSn",
label=("Number of terms"),
value = 50, step = 1)),
column(6,
selectInput("nClustersCS",
label = "N. of Clusters",
choices = c("Auto" = "0",
"2" = "2",
"3" = "3",
"4" = "4",
"5" = "5",
"6" = "6",
"7" = "7",
"8" = "8"),
selected = "0")))
),
" ",
" ",
selectInput("faNP",
label = h4(em(strong("Graphical Parameters: "))),
choices = c("Hide Parameters" = "hide",
"Show Parameters" = "show"),
selected = "hide"),
conditionalPanel(condition = "input.faNP == 'show'",
" ",
#h4(em(strong("Graphical Parameters: "))),
" ",
fluidRow(column(6,
numericInput(
inputId = "CSlabelsize",
label = "Label size",
min = 5,
max = 30,
value = 10)),
column(6,
numericInput("CSdoc",
label=("Num. of documents"),
value = 5)))
),
br(),
br(),
selectInput(
'FAdpi',
h4(em(strong(
"Export plots as png"
))),
choices=c(
"Please select a dpi value" = "null",
"75 dpi" = "75",
"150 dpi" = "150",
"300 dpi" = "300",
"600 dpi" = "600"
),
selected = "null"
),
conditionalPanel(condition = "input.FAdpi != 'null'",
sliderInput(
'FAh',
h4(em(strong(
"Height (in inches)"
))),
value = 7, min = 1, max = 20, step = 1),
downloadButton("FA1plot.save", "Term Factorial Map "),
h4(" "),
downloadButton("FA2plot.save", "Topic Dendrogram "),
h4(" "),
downloadButton("FA3plot.save", "Most Contributing Map "),
h4(" "),
downloadButton("FA4plot.save", "Most Cited Map ")
)
),
mainPanel("Factorial Analysis",
tabsetPanel(type = "tabs",
tabPanel("Word Map",
shinycssloaders::withSpinner(plotOutput(
outputId = "CSPlot1"))),
tabPanel("Topic Dendrogram",
shinycssloaders::withSpinner(plotOutput(
outputId = "CSPlot4"))),
tabPanel("Most Contributing Papers",
shinycssloaders::withSpinner(plotOutput(
outputId = "CSPlot2"))),
tabPanel("Most Cited Papers",
shinycssloaders::withSpinner(plotOutput(
outputId = "CSPlot3"))),
tabPanel("Words by Cluster",
shinycssloaders::withSpinner(DT::DTOutput(outputId = "CSTableW"))),
tabPanel("Articles by Cluster",
shinycssloaders::withSpinner(DT::DTOutput(outputId = "CSTableD")))
)
)
)
) ## End of tabPanel ("Correspondence Analysis")
),
### Intellectual Structure ----
navbarMenu("Intellectual Structure",
### Co.Citation Network ----
tabPanel(title="Co-citation Network",
sidebarLayout(
sidebarPanel(width=3,
h3(em(strong("Co-citation Network"))),
br(),
actionButton("applyCocit", "Apply!"),
br(),
br(),
#" ",
#h4(em(strong("Network Parameters: "))),
selectInput("citField",
label = "Field",
choices = c("Papers" = "CR",
"Authors" = "CR_AU",
"Sources" = "CR_SO"),
selected = "CR"),
selectInput(inputId = "citSep",
label = "Field separator character",
choices = c('";" (Semicolon)' = ";",
'". " (Dot and 3 or more spaces)' = ". ",
'"," (Comma)' = ","),
selected = "';'"),
selectInput("cocitNP",
label = h4(em(strong("Network Parameters: "))),
choices = c("Hide Network Parameters" = "hide",
"Show Network Parameters" = "show"),
selected = "hide"),
conditionalPanel(condition = "input.cocitNP == 'show'",
" ",
fluidRow(column(6,
selectInput("citlayout",
label = "Network Layout",
choices = c("Automatic layout"="auto",
"Circle"="circle",
"Fruchterman & Reingold"="fruchterman",
"Kamada & Kawai"="kamada",
"MultiDimensional Scaling"="mds",
"Sphere"="sphere",
"Star"="star"),
selected = "auto")
),
column(6,
selectInput("cocitCluster",
label = "Clustering Algorithm",
choices = c("None" = "none",
"Edge Betweenness" = "edge_betweenness",
"InfoMap" = "infomap",
"Leading Eigenvalues" = "leading_eigen",
"Louvain" = "louvain",
"Spinglass" = "spinglass",
"Walktrap" = "walktrap"),
selected = "louvain")
)),
fluidRow(column(6,
numericInput(inputId = "citNodes",
label = "Number of Nodes",
min = 5,
max = 1000,
value = 50,
step = 1)
),
column(6,
numericInput(inputId = "cocit.repulsion",
label = "Repulsion Force",
min = 0,
max = 1,
value = 0.1,
step = 0.1)
)),
fluidRow(column(6,
selectInput(inputId ="cit.isolates",
label = "Remove Isolated Nodes",
choices = c("Yes" = "yes",
"No" = "no"),
selected = "yes")
),
column(6,
numericInput("citedges.min",
label=("Minimum Number of Edges"),
value = 2,
step = 1,
min = 0)
)
)),
#uiOutput("Focus"),
" ",
#h4(em(strong("Graphical Parameters: "))),
#br(),
selectInput("cocitGP",
label = h4(em(strong("Graphical Parameters: "))),
choices = c("Hide Graphical Parameters" = "hide",
"Show Graphical Parameters" = "show"),
selected = "hide"),
conditionalPanel(condition = "input.cocitGP == 'show'",
" ",
fluidRow(column(6,
selectInput(inputId ="citShortlabel",
label = "Short Label",
choices = c("Yes",
"No"),
selected = "Yes"),
),
column(6,
numericInput(inputId = "citLabels",
label = "Number of labels",
min = 0,
max = 1000,
value = 50,
step = 1)
)),
fluidRow(column(6,
selectInput(inputId ="citlabel.cex",
label = "Label cex",
choices = c("Yes",
"No"),
selected = "Yes")
),
column(6,
selectInput(inputId ="cocit.shape",
label = "Node Shape",
choices = c(
"Box"="box",
"Circle"="circle",
"Dot"="dot",
"Ellipse"="ellipse",
"Square"="square",
"Text"="text"),
selected = "dot")
)),
fluidRow(column(6,
numericInput(inputId = "citlabelsize",
label = "Label size",
min = 0.0,
max = 20,
value = 2,
step = 0.10)
),
column(6,
numericInput(
inputId = "citedgesize",
label = "Edge size",
min = 0.5,
max = 20,
value = 5,
step=0.5)
)),
fluidRow(column(6,
selectInput(inputId ="cocit.shadow",
label = "Node shadow",
choices = c("Yes",
"No"),
selected = "No")
),
column(6,
selectInput(inputId ="cocit.curved",
label = "Curved edges",
choices = c("Yes",
"No"),
selected = "No")
)
)
),
fluidRow(column(6,
downloadButton("network.cocit", "Save Pajek")
),
column(6,
downloadButton("networkCocit.fig", "Save HTML")
))
),
mainPanel(
tabsetPanel(type = "tabs",
tabPanel("Graph",
shinycssloaders::withSpinner(visNetworkOutput("cocitPlot", height = "80vh"))), #height = "750px", width = "1100px"))),
tabPanel("Table",
shinycssloaders::withSpinner(DT::DTOutput(
outputId = "cocitTable"))),
tabPanel("Degree Plot",
shinycssloaders::withSpinner(plotlyOutput(outputId = "cocitDegree", height=700)))
)
#shinycssloaders::withSpinner(plotOutput(outputId = "cocitPlot"))
)
)
), ## End of tabPanel "Co-citations"
### Historiograph ----
tabPanel(title="Historiograph",
sidebarLayout(
sidebarPanel(
width=3,
h3(em(strong("Historiograph "))),
br(),
actionButton("applyHist", "Apply!"),
#selectInput('save_colnet', 'Save network as:', choices = c('No, thanks!' = 'no_thanks', 'Pajek format' = 'pajek')),
#conditionalPanel(condition = "input.save_colnet == 'pajek'",
" ",
" ",
h4(em(strong("Historiograph Parameters: "))),
" ",
numericInput(inputId = "histNodes",
label = "Number of Nodes",
min = 5,
max = 100,
value = 20,
step = 1),
" ",
" ",
h4(em(strong("Graphical Parameters: "))),
" ",
selectInput(inputId = "titlelabel",
label = "Node label",
choices = c("Short id (1st Author, Year)" = "FALSE",
"Document Title" = "TRUE"),
selected = "FALSE"),
fluidRow(column(6,
numericInput(inputId = "histlabelsize",
label = "Label size",
min = 0.0,
max = 20,
value = 3, step = 1)),
column(6,
numericInput(inputId = "histsize",
label = "Node size",
min = 0,
max = 20,
value = 4, step = 1))),
br(),
br(),
selectInput(
'HGdpi',
h4(em(strong(
"Export plot"
))),
choices=c(
"Please select a dpi value" = "null",
"75 dpi" = "75",
"150 dpi" = "150",
"300 dpi" = "300",
"600 dpi" = "600"
),
selected = "null"
),
conditionalPanel(condition = "input.HGdpi != 'null'",
sliderInput(
'HGh',
h4(em(strong(
"Height (in inches)"
))),
value = 7, min = 1, max = 20, step = 1),
downloadButton("HGplot.save", "Export plot as png"))
),
mainPanel(
tabsetPanel(type = "tabs",
tabPanel("Graph",
#shinycssloaders::withSpinner(plotOutput(outputId = "histPlot"))),
shinycssloaders::withSpinner(plotlyOutput(outputId = "histPlot", height = "80vh"))),
tabPanel("Table",
shinycssloaders::withSpinner(DT::DTOutput(outputId = "histTable")))
)
)
#plotOutput(outputId = "histPlot"))
)
) ## End of tabPanel "Historiograph"
),
### Social Structure ####
### Collaboration ----
navbarMenu("Social Structure",
tabPanel(title="Collaboration Network",
sidebarLayout(
sidebarPanel(width=3,
h3(em(strong("Collaboration Network"))),
br(),
actionButton("applyCol", "Apply!"),
br(),
br(),
#" ",
#h4(em(strong("Network Parameters: "))),
selectInput("colField",
label = "Field",
choices = c("Authors" = "COL_AU",
"Institutions" = "COL_UN",
"Countries" = "COL_CO"),
selected = "COL_AU"),
selectInput("colNP",
label = h4(em(strong("Network Parameters: "))),
choices = c("Hide Network Parameters" = "hide",
"Show Network Parameters" = "show"),
selected = "hide"),
conditionalPanel(condition = "input.colNP == 'show'",
" ",
fluidRow(column(6,
selectInput("collayout",
label = "Network Layout",
choices = c("Automatic layout"="auto",
"Circle"="circle",
"Fruchterman & Reingold"="fruchterman",
"Kamada & Kawai"="kamada",
"MultiDimensional Scaling"="mds",
"Sphere"="sphere",
"Star"="star"),
selected = "auto")
),
column(6,
selectInput("colCluster",
label = "Clustering Algorithm",
choices = c("None" = "none",
"Edge Betweenness" = "edge_betweenness",
"InfoMap" = "infomap",
"Leading Eigenvalues" = "leading_eigen",
"Louvain" = "louvain",
"Spinglass" = "spinglass",
"Walktrap" = "walktrap"),
selected = "louvain")
)),
fluidRow(column(6,
selectInput("colnormalize",
label = "Normalization",
choices = c("none",
"association",
"jaccard",
"salton",
"inclusion",
"equivalence"),
selected = "association")
)),
fluidRow(column(6,
numericInput(inputId = "colNodes",
label = "Number of Nodes",
min = 5,
max = 1000,
value = 50,
step = 1)
),
column(6,
numericInput(inputId = "col.repulsion",
label = "Repulsion Force",
min = 0,
max = 1,
value = 0.1,
step = 0.1)
)),
fluidRow(column(6,
selectInput(inputId ="col.isolates",
label = "Remove Isolated Nodes",
choices = c("Yes" = "yes",
"No" = "no"),
selected = "yes")
),
column(6,
numericInput("coledges.min",
label=("Minimum Number of Edges"),
value = 2,
step = 1,
min = 0)
)
)),
#uiOutput("Focus"),
" ",
#h4(em(strong("Graphical Parameters: "))),
#br(),
selectInput("colGP",
label = h4(em(strong("Graphical Parameters: "))),
choices = c("Hide Graphical Parameters" = "hide",
"Show Graphical Parameters" = "show"),
selected = "hide"),
conditionalPanel(condition = "input.colGP == 'show'",
" ",
fluidRow(column(6,
numericInput(inputId = "colAlpha",
label = "Opacity",
min = 0,
max = 1,
value = 0.7,
step=0.05)
),
column(6,
numericInput(inputId = "colLabels",
label = "Number of labels",
min = 0,
max = 1000,
value = 50,
step = 1)
)),
fluidRow(column(6,
selectInput(inputId ="collabel.cex",
label = "Label cex",
choices = c("Yes",
"No"),
selected = "Yes")
),
column(6,
selectInput(inputId ="col.shape",
label = "Node Shape",
choices = c(
"Box"="box",
"Circle"="circle",
"Dot"="dot",
"Ellipse"="ellipse",
"Square"="square",
"Text"="text"),
selected = "dot")
)),
fluidRow(column(6,
numericInput(inputId = "collabelsize",
label = "Label size",
min = 0.0,
max = 20,
value = 2,
step = 0.10)
),
column(6,
numericInput(
inputId = "coledgesize",
label = "Edge size",
min = 0.5,
max = 20,
value = 5,
step=0.5)
)),
fluidRow(column(6,
selectInput(inputId ="col.shadow",
label = "Node shadow",
choices = c("Yes",
"No"),
selected = "No")
),
column(6,
selectInput(inputId ="soc.curved",
label = "Curved edges",
choices = c("Yes",
"No"),
selected = "No")
)
)
),
fluidRow(column(6,
downloadButton("network.col", "Save Pajek")
),
column(6,
downloadButton("networkCol.fig", "Save HTML")
))
),
mainPanel(
tabsetPanel(type = "tabs",
tabPanel("Graph",
shinycssloaders::withSpinner(visNetworkOutput("colPlot", height = "80vh"))), #,width = "1100px"))),
#shinycssloaders::withSpinner(plotOutput(outputId = "colPlot"))),
tabPanel("Table",
shinycssloaders::withSpinner(DT::DTOutput(
outputId = "colTable"))),
tabPanel("Degree Plot",
shinycssloaders::withSpinner(plotlyOutput(outputId = "colDegree", height = "80vh"))) #height=700)))
)
#shinycssloaders::withSpinner(plotOutput(outputId = "colPlot"))
)
)
), ## End of tabPanel "Social Structure"
### Collaboration WorldMap ----
tabPanel(title="Collaboration WorldMap",
sidebarLayout(
sidebarPanel(width=3,
h3(em(strong("Collaboration WorldMap"))),
br(),
actionButton("applyWM", "Apply!"),
" ",
" ",
h4(em(strong("Map Parameters: "))),
" ",
numericInput("WMedges.min",
label=("Min edges"),
value = 2,
step = 1),
" ",
" ",
h4(em(strong("Graphical Parameters: "))),
" ",
sliderInput(inputId = "WMedgesize",
label = "Edge size",
min = 0.1,
max = 20,
value = 5),
br(),
br(),
selectInput(
'CCdpi',
h4(em(strong(
"Export plot"
))),
choices=c(
"Please select a dpi value" = "null",
"75 dpi" = "75",
"150 dpi" = "150",
"300 dpi" = "300",
"600 dpi" = "600"
),
selected = "null"
),
conditionalPanel(condition = "input.CCdpi != 'null'",
sliderInput(
'CCh',
h4(em(strong(
"Height (in inches)"
))),
value = 7, min = 1, max = 20, step = 1),
downloadButton("CCplot.save", "Export plot as png"))
),
mainPanel(
tabsetPanel(type = "tabs",
tabPanel("Graph",
shinycssloaders::withSpinner(plotOutput(outputId = "WMPlot"))),
tabPanel("Table",
shinycssloaders::withSpinner(DT::DTOutput(
outputId = "WMTable")))
)
#shinycssloaders::withSpinner(plotOutput(outputId = "colPlot"))
)
)
) ## End of tabPanel "Social Structure"
),
# navbarMenu(("About"),
# tabPanel(title = "Help",
# includeHTML("bibliometrix-vignette.html"))
# ),
### Quit button ----
navbarMenu("Quit",
tabPanel(actionLink("stop_radiant", "Stop", icon = icon("power-off"),
onclick = "setTimeout(function(){window.close();}, 100); ")
)
)
## End of UI
)
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.