only accept .rds files from R

Author: ebey

server.R

@@ -161,42 +161,32 @@ nwinit <- reactive({
   } else {
     filepath <- input$rawdatafile[1,4]
     filename <- input$rawdatafile[1,1]
-  }
-  if(input$filetype == 1){
-    loadfile <- ''
-    if(!is.null(input$rawdatafile)){
-      nw_var <- tryCatch({
-        obj <- load(paste(filepath))
-      }, error = function(err){
-        return("Chosen file is not an R object")
-      }, finally = NULL
-      )
-      try(nw_var <- get(obj))
-    }
-  } else if(input$filetype == 2){
-    if(!is.null(input$rawdatafile)){
+    fileext <- substr(filename,nchar(filename)-3,nchar(filename))
+  
+    if(input$filetype == 1){
+      if(fileext %in% c(".rds", ".Rds", ".RDs", ".RDS")){
+        nw_var <- readRDS(paste(filepath))
+      } else {
+        return("Upload a .rds file")
+      }
+    
+    } else if(input$filetype == 2){
       nw_var <- "Upload a .net file"
-      if(substr(filename,nchar(filename)-3,nchar(filename))==".net" |
-           substr(filename,nchar(filename)-3,nchar(filename))==".NET"){
+      if(fileext %in% c(".net", ".NET")){
         nw_var <- read.paj(paste(filepath))
       }
-    }
-  } else if(input$filetype == 3){
-    if(!is.null(input$rawdatafile)){
+    } else if(input$filetype == 3){
       nw_var <- "Upload a .paj file"
-      if(substr(filename,nchar(filename)-3,nchar(filename))==".paj" |
-           substr(filename,nchar(filename)-3,nchar(filename))==".PAJ"){
+      if(fileext %in% c(".paj",".PAJ")){
         nws <- read.paj(paste(filepath))
         if(!is.null(pajnws())){
           nw_var <- nws$networks[[as.numeric(input$choosepajnw)]]
         }
       }
-    }
-  } else if(input$filetype == 4){
-    loadfile <- ''
-    if(!is.null(input$rawdatafile)){
+    
+    } else if(input$filetype == 4){
       nw_var <- "Input the specified type of matrix"
-      if(substr(filename,nchar(filename)-3,nchar(filename))==".csv"){
+      if(fileext %in% c(".csv",".CSV")){
         header <- TRUE
         row_names<-1
         if(input$matrixtype == "edgelist"){
@@ -210,24 +200,24 @@ nwinit <- reactive({
                           ignore.eval=FALSE, names.eval='edgevalue')
              })
 
-      }
-      try({
-        newmx <- load(paste(filepath))
-        nw_var <- network(get(newmx),
+      } else if(fileext %in% c(".rds", ".Rds", ".RDs", ".RDS")){
+        newmx <- readRDS(paste(filepath))
+        nw_var <- network(newmx,
                         directed=input$dir, loops=input$loops,
                         multiple=input$multiple, bipartite=input$bipartite,
                         matrix.type=input$matrixtype,
                         ignore.eval=FALSE, names.eval='edgevalue')
-           })
-    }
+           
+      }
 
-  } else if(input$filetype ==5){
-    if(input$samplenet == "None"){
-      nw_var <- NULL
-    } else {
-      nw_var <- eval(parse(text = input$samplenet))
-      if(!is.element('bipartite',names(nw_var$gal))){
-        set.network.attribute(nw_var,'bipartite',FALSE)
+    } else if(input$filetype ==5){
+      if(input$samplenet == "None"){
+        nw_var <- NULL
+      } else {
+        nw_var <- eval(parse(text = input$samplenet))
+        if(!is.element('bipartite',names(nw_var$gal))){
+          set.network.attribute(nw_var,'bipartite',FALSE)
+        }
       }
     }
   }

ui.R

@@ -237,9 +237,11 @@ url = {http://statnetproject.org}
                      fluidRow(
                        column(6,
                               selectInput('filetype',label='File type',
-                                           choices=c('built-in network'=5, 'statnet network object (R-object)'=1,
-                                                     'Pajek network (*.net)'=2,'Pajek project (*.paj)'=3,
-                                                     'matrix of relational data (*.csv or R-object)'=4))
+                                           choices=c('built-in network'=5, 
+                                                     'statnet network object (*.rds)'=1,
+                                                     'matrix of relational data (*.csv or *.rds)'=4,
+                                                     'Pajek network (*.net)'=2,
+                                                     'Pajek project (*.paj)'=3))
                               ),
                        conditionalPanel(condition = 'input.filetype < 5',
                          column(6,
@@ -312,10 +314,10 @@ url = {http://statnetproject.org}
                            column(6,
                                   uiOutput('pajchooser'))),
                        conditionalPanel(condition='input.filetype == 1',
-                                        p(class="helper", id="Robjhelp", icon("question-circle"), span("What is an R-object?", style="font-size:0.85em;")),
+                                        p(class="helper", id="Robjhelp", icon("question-circle"), span("What is a .rds file?", style="font-size:0.85em;")),
                                         div(class="mischelperbox", id="Robjbox", 'When working in R, an object in your environment',
-                                            'can be saved to a file from the command line in the following way:', 
-                                            code('save(objectname, file="newfilename")'),br(),'By default the file will be saved',
+                                            'can be saved to a .rds file from the command line in the following way:', 
+                                            code('saveRDS(objectname, file="newfilename.rds")'),br(),'By default the file will be saved',
                                             'into the current working directory. The full path to a new location can be',
                                             'specified in the ', code('file='), 'argument, or set', code('file=file.choose(new=TRUE)'),
                                             'to use a save dialog box.')