Change to modifiable textarea

pages/pages_def_home.R

@@ -65,7 +65,7 @@ tabHome = fluidPage(align="left",
                              solidHeader = TRUE,
                              status="primary",
                              style='height:1000px; overflow-y: scroll',
-                             verbatimTextOutput("previewContainer")
+                             textAreaInput("previewContainer", label = "", height = "1000px")
                            )
                     )
                     

server/opt_home.R

@@ -451,20 +451,36 @@ createContentFile <- function() {
   return(result)
 }
 
-createContainerPackage <- eventReactive(input$createContainer, {
-
-  result <- createContentFile()
+observeEvent(input$createContainer, {
+  
+  print("preview")
   
   show("downloadContainerFile")
   
-  HTML(result)
+  result <- createContentFile()
+  
+  updateTextAreaInput(session, "previewContainer",
+                      label = "",
+                      value = result)
+  
 })
 
+#createContainerPackage <- eventReactive(input$createContainer, {
 
+  #result <- createContentFile()
+  
+  #show("downloadContainerFile")
+  
 
-output$previewContainer <- renderText({
-  createContainerPackage()
-})
+  #HTML(result)
+
+#})
+
+
+
+#output$previewContainer <- renderText({
+#  createContainerPackage()
+#})
 
 output$downloadContainerFile <- downloadHandler(
   filename = function() {
@@ -476,7 +492,7 @@ output$downloadContainerFile <- downloadHandler(
     }
   },
   content = function(file) {
-    result <- createContentFile()
+    result <- input$previewContainer
     write(result,file=file)
   }
 )