Update server.R

massimoaria · Jan 9, 2023 · 5e3c37c · 5e3c37c
1 parent 0c09664
commit 5e3c37c
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/inst/biblioshiny/server.R b/inst/biblioshiny/server.R
@@ -404,7 +404,9 @@ server <- function(input, output,session){
       switch(ext,
              ### excel format
              xlsx={
-               M <- readxl::read_excel(inFile$datapath) %>% as.data.frame(stringsAsFactors=FALSE)
+               M <- readxl::read_excel(inFile$datapath, col_types = "text") %>% as.data.frame(stringsAsFactors=FALSE)
+               M$PY <- as.numeric(M$PY)
+               M$TC <- as.numeric(M$TC)
                class(M) <- c("bibliometrixDB", "data.frame")
                ### M row names
                ### identify duplicated SRs 
@@ -8035,4 +8037,4 @@ server <- function(input, output,session){
 
 
 
-# END ####
+# END ####