try to fix method of assigning edge values from .csv file

Author: ebey

server.R

@@ -418,7 +418,8 @@ observeEvent(input$newattrButton, {
       fileext <- substr(filename,nchar(filename)-3,nchar(filename))
       if(fileext %in% c(".csv", ".CSV")){
         newattrs <- read.csv(paste(path), sep=",", header=TRUE, stringsAsFactors=FALSE)
-        newname <- names(newattrs)
+        newname <- names(newattrs)[1]
+        newattrs <- data.matrix(newattrs, rownames.force=FALSE)
       } else if(fileext %in% c(".rds",".Rds",".RDs",".RDS")){
         newattrs <- readRDS(paste(path))
         newname <- names(newattrs)

ui.R

@@ -371,7 +371,7 @@ url = {http://statnetproject.org}
                                                                      strong(".rds files"), "can be saved with",
                                                                      br(),
                                                                      code('saveRDS(objectname, file="newfilename.rds")'),br(),br(),
-                                                                     "Multiple edge value matrices can be uploaded from one list object.",
+                                                                     "Multiple edge value matrices can be uploaded from one list object."
                                                                      ))),
                                                     tags$li('.csv file',
                                                             span(class="helper", id="filetypehelper6",