From 0543093e0960583b9cceee4ec6ec377c73dbd2ba Mon Sep 17 00:00:00 2001 From: Massimo Aria Date: Mon, 3 Jun 2024 14:52:50 +0200 Subject: [PATCH 1/4] info menu --- inst/biblioshiny/helpContent.R | 315 ++++++++++++++++++++++++++++++++- inst/biblioshiny/ui.R | 18 +- 2 files changed, 329 insertions(+), 4 deletions(-) diff --git a/inst/biblioshiny/helpContent.R b/inst/biblioshiny/helpContent.R index c92ef5a..399d3ea 100644 --- a/inst/biblioshiny/helpContent.R +++ b/inst/biblioshiny/helpContent.R @@ -156,6 +156,319 @@ mso-ansi-language:EN-US'> 

" + - return(list(info=info)) + publications <- " + + +
+ +

Main +Authors’ references (about bibliometrics)

+ +

 

+ +

Aria, M. & Cuccurullo, +C. (2017). bibliometrix: An R-tool for comprehensive science +mapping analysis, Journal of Informetrics, 11(4), pp 959-975, +Elsevier, DOI: 10.1016/j.joi.2017.08.007 (https://doi.org/10.1016/j.joi.2017.08.007)

+ +

Aria, M., Le, T., Cuccurullo, +C., Belfiore, A., & Choe, J. (2023). openalexR: + An R-Tool for Collecting Bibliometric Data from OpenAlex. R Journal, +15(4), (DOI: https://doi.org/10.32614/rj-2023-089).

+ +

Aria M., Misuraca M., Spano +M. (2020) Mapping the evolution of social research and data science on 30 +years of Social Indicators Research, Social Indicators Research. +(DOI: https://doi.org/10.1007/s11205-020-02281-3)

+ +

Aria, M., +Cuccurullo, C., D’Aniello, L., Misuraca, M., & Spano, M. (2022). Thematic +Analysis as a New Culturomic Tool: The Social Media +Coverage on COVID-19 Pandemic in Italy. Sustainability, +14(6), 3643, (https://doi.org/10.3390/su14063643)

+ +

Aria M., Alterisio A., Scandurra A, Pinelli C., D’Aniello B, (2021) The scholar’s best friend: research +trends in dog cognitive and behavioural studies, Animal +Cognition. (https://doi.org/10.1007/s10071-020-01448-2)

+ +

Cuccurullo, +C., Aria, M., & Sarto, F. (2016). Foundations and trends in +performance management. A twenty-five years bibliometric analysis in business +and public administration domains, Scientometrics, DOI: + 10.1007/s11192-016-1948-8 (https://doi.org/10.1007/s11192-016-1948-8)

+ +

Cuccurullo, +C., Aria, M., & Sarto, F. (2015). Twenty years of research on +performance management in business and public administration domains. +Presentation at the Correspondence Analysis and Related Methods +conference (CARME 2015) in September 2015 (https://www.bibliometrix.org/documents/2015Carme_cuccurulloetal.pdf)

+ +

Sarto, F., +Cuccurullo, C., & Aria, M. (2014). Exploring healthcare +governance literature: systematic review and paths for future research. Mecosan (https://www.francoangeli.it/Riviste/Scheda_Rivista.aspx?IDarticolo=52780&lingua=en)

+ +

Cuccurullo, +C., Aria, M., & Sarto, F. (2013). Twenty years of research on +performance management in business and public administration domains. In Academy +of Management Proceedings (Vol. 2013, No. 1, p. 14270). +Academy of Management (https://doi.org/10.5465/AMBPP.2013.14270abstract)

+ +

Belfiore, A., +Salatino, A., & Osborne, F. (2022). Characterising Research +Areas in the field of AI. arXiv preprint +arXiv:2205.13471.(https://doi.org/10.48550/arXiv.2205.13471)

+ +

Belfiore, A., +Cuccurullo, C., & Aria, M. (2022). IoT in healthcare: A +scientometric analysis. Technological Forecasting and Social Change, +184, 122001. (https://doi.org/10.1016/j.techfore.2022.122001)

+ +

D'Aniello, L., +Spano, M., Cuccurullo, C., & Aria, M. (2022). Academic Health Centers’ +configurations, scientific productivity, and impact: insights from the Italian +setting. Health Policy. (https://doi.org/10.1016/j.healthpol.2022.09.007)

+ +

Belfiore, A., +Scaletti, A., Lavorato, D., & Cuccurullo, C. (2022). The long +process by which HTA became a paradigm: A longitudinal conceptual structure +analysis. Health Policy. (https://doi.org/10.1016/j.healthpol.2022.12.006)

+ +

 

+ +
+ + +" + + return(list(info=info, publications=publications)) } \ No newline at end of file diff --git a/inst/biblioshiny/ui.R b/inst/biblioshiny/ui.R index 769dc77..9b828aa 100644 --- a/inst/biblioshiny/ui.R +++ b/inst/biblioshiny/ui.R @@ -43,7 +43,7 @@ export_bttn <- list( ## load content of Info page info <- helpContent()$info - +pubs <- helpContent()$publications ## Header ---- header <- shinydashboardPlus::dashboardHeader(title = mytitle, titleWidth = 300, @@ -119,7 +119,9 @@ sidebar <- shinydashboardPlus::dashboardSidebar( sidebarMenu( id="sidebarmenu", menuItem("biblioshiny",tabName = "biblioshinyy",icon = fa_i(name="house-user")), - menuItem("Info", tabName ="info", icon = fa_i(name="circle-info")), + menuItem("Info", tabName ="info", icon = fa_i(name="circle-info"), + menuSubItem("Supported Files", tabName = "supFiles",icon = fa_i(name="circle-info")), + menuSubItem("Team's Publications", tabName = "pubs",icon = fa_i(name="circle-info"))), menuItem("Data",tabName = "uploadData",icon = fa_i(name = "file-import"), menuSubItem("Load Data", tabName = "loadData",icon = icon("chevron-right",lib = "glyphicon")), menuSubItem("Gathering Data", tabName = "gathData",icon = icon("chevron-right",lib = "glyphicon"))), @@ -206,7 +208,7 @@ body <- dashboardBody( ) ) ), - tabItem("info", + tabItem("supFiles", fluidPage( fluidRow( column(1), @@ -217,6 +219,16 @@ body <- dashboardBody( column(1) ) )), + tabItem("pubs", + fluidPage( + fluidRow( + column(1), + column(10, + HTML(pubs) + ), + column(1) + ) + )), #### Data ---- ##### load Data ---- tabItem("loadData", From b9cfb2fe62506fdf509999dc858c73615629d661 Mon Sep 17 00:00:00 2001 From: Massimo Aria Date: Thu, 6 Jun 2024 12:01:48 +0200 Subject: [PATCH 2/4] solved issue in convert2df when impoting openalex CSV files --- R/csvOA2df.R | 31 +++++++++++++++++++++++++++++-- 1 file changed, 29 insertions(+), 2 deletions(-) diff --git a/R/csvOA2df.R b/R/csvOA2df.R index fd740ca..164009a 100644 --- a/R/csvOA2df.R +++ b/R/csvOA2df.R @@ -42,9 +42,36 @@ csvOA2df <- function(file){ DATA$id_oa <- gsub("https://openalex.org/","",DATA$id_oa) DATA$JI <- DATA$J9 <- gsub("https://openalex.org/","",DATA$SO_ID) DATA$corresponding_author_ids <- gsub("https://openalex.org/","",DATA$corresponding_author_ids) - DATA$C1 <- gsub("https://", "", DATA$C1) DATA$DB <- "OPENALEX" + # affilitation string + AFF <- DATA %>% + select(id_oa, starts_with("authorships_raw_affiliation_strings_")) + + colId <- c(-1,parse_number(colnames(AFF)[-1])) + + DATA <- AFF[order(colId)] %>% + unite(., C1, starts_with("authorships_raw_affiliation_strings_"), sep=";") %>% + mutate(C1 = gsub("NA","",C1), + C1 = TrimMult(C1,char=";")) %>% + bind_cols(DATA %>% + select(-"id_oa", -starts_with("authorships_raw_affiliation_strings_"))) + + DATA$C1 <- gsub("https://", "", DATA$C1) + + # country string + CO <- DATA %>% + select(id_oa, starts_with("authorships_countries_")) + + colId <- c(-1,parse_number(colnames(CO)[-1])) + + DATA <- CO[order(colId)] %>% + unite(., AU_CO, starts_with("authorships_countries_"), sep=";") %>% + mutate(AU_CO = gsub("NA","",AU_CO), + AU_CO = TrimMult(AU_CO,char=";")) %>% + bind_cols(DATA %>% + select(-"id_oa", -starts_with("authorships_countries_"))) + ## corresponding author DATA <- DATA %>% mutate(AU1_ID = gsub(";.*", "", corresponding_author_ids)) @@ -128,7 +155,7 @@ relabelling_OA <- function(DATA){ label[label %in% "referenced_works_count"] <- "NR" label[label %in% "language"] <- "LA" label[label %in% "authorships_author_position"] <- "AU_POSITION" - label[label %in% "authorships_raw_affiliation_string"] <- "C1" + #label[label %in% "authorships_raw_affiliation_string"] <- "C1" label[label %in% "doi"] <- "DI" names(DATA) <- label return(DATA) From 8c37bdcc8b346b4041befec4a50aa7f8afc25b7d Mon Sep 17 00:00:00 2001 From: Massimo Aria Date: Thu, 6 Jun 2024 12:02:30 +0200 Subject: [PATCH 3/4] Minor fix --- R/csvOA2df.R | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/R/csvOA2df.R b/R/csvOA2df.R index 164009a..f68c485 100644 --- a/R/csvOA2df.R +++ b/R/csvOA2df.R @@ -160,3 +160,8 @@ relabelling_OA <- function(DATA){ names(DATA) <- label return(DATA) } + +TrimMult <- function(x, char=" ") { + return(gsub(paste0("^", char, "*|(?<=", char, ")", char, "|", char, "*$"), + "", x, perl=T)) +} \ No newline at end of file From a98bf685716ab144dc3c1219ae6caa482ad2b2d6 Mon Sep 17 00:00:00 2001 From: Massimo Aria Date: Thu, 6 Jun 2024 12:22:22 +0200 Subject: [PATCH 4/4] Minor fixes in openalex importing functions --- R/csvOA2df.R | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/R/csvOA2df.R b/R/csvOA2df.R index f68c485..71c6ef6 100644 --- a/R/csvOA2df.R +++ b/R/csvOA2df.R @@ -36,7 +36,7 @@ csvOA2df <- function(file){ DATA$AF <- DATA$AU DATA$ID <- DATA$DE - DATA$AB="" + if (!"AB" %in% names(DATA)) DATA$AB="" DATA$CR <- gsub("https://openalex.org/","",DATA$CR) DATA$AU_ID <- gsub("https://openalex.org/","",DATA$AU_ID) DATA$id_oa <- gsub("https://openalex.org/","",DATA$id_oa) @@ -146,7 +146,8 @@ relabelling_OA <- function(DATA){ label[label %in% "biblio_issue"] <- "IS" label[label %in% "biblio_volume"] <- "VL" label[label %in% "referenced_works" ] <- "CR" - label[label %in% "keywords_keyword"] <- "DE" + label[label %in% "keywords_display_name"] <- "DE" + label[label %in% "abstract"] <- "AB" label[label %in% "concepts_display_name"] <- "CONCEPTS" label[label %in% "topics_display_name"] <- "TOPICS" label[label %in% "sustainable_development_goals_display_name"] <- "SDG"