Export functionality

Author: Depthgr8

Block_Randomization/Block_randomization_web_app.R

@@ -36,11 +36,13 @@ ui <- fluidPage(
         min = 1,
         max = 4,
         value = 2
-      )
+      ),
+      downloadButton('downloadData', 'Download')
     ),
 
     # Show result table
     mainPanel(tableOutput("filetable"))
+    
   ))
 
 
@@ -53,10 +55,22 @@ server <- function(input, output)
       block.random(n = input$trials, c(block = input$blocks, drug = input$cases))
     output <- data.frame(condition)
     colnames(output) <- c("Block", "to_be_discarded", "Case")
-    output[,-2]
+    data <- output[,-2]
   })
+  data <- mtcars
+  output$table <- renderTable({
+    datasetInput()
+  })
+  output$downloadData <- downloadHandler(
+    filename = function() {
+      paste("trials", '.txt', sep='')},
+    content = function (file){
+      write.csv(data,file)
+    }
+  )
 }
 
 # Run application ---------------------------------------------------------
 
 shinyApp(ui = ui, server = server)
+

README.md

@@ -1 +1,18 @@
-# Block_randomization
+# Block_randomization
+
+Repository contains R scripts and Shiny web app that can be used to generate block randomized trials for experiments.
+
+#### Default parameters -
+
+* N = 150
+* Blocks = 3
+* Cases = 2
+
+Total block length = (Block * Cases)
+Example: Total block length = 3 * 2 = 6
+
+#### Web app features
+
+* Select input parameters from slider/textbox
+* Export table in csv format
+

block_randomization.r

@@ -2,20 +2,12 @@
 
 library(psych)
 
-<<<<<<< HEAD
-=======
-
->>>>>>> 2466edf175a3c69eabc548936feda00f5b96a19e
 # Generate N number of trials ---------------------------------------------
 
 n <- 150
 not_useful <- 3
 cases <- 2
 
-<<<<<<< HEAD
-=======
-
->>>>>>> 2466edf175a3c69eabc548936feda00f5b96a19e
 # Generate randomized trials for N = 150 ----------------------------------
 
 trials <-  block.random(n,c(not_useful, cases))