diff --git a/R/csvOA2df.R b/R/csvOA2df.R
index fd740ca..71c6ef6 100644
--- a/R/csvOA2df.R
+++ b/R/csvOA2df.R
@@ -36,15 +36,42 @@ 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)
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))
@@ -119,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"
@@ -128,8 +156,13 @@ 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)
}
+
+TrimMult <- function(x, char=" ") {
+ return(gsub(paste0("^", char, "*|(?<=", char, ")", char, "|", char, "*$"),
+ "", x, perl=T))
+}
\ No newline at end of file
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'>
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)