Commit b6a5614d authored by jlopez's avatar jlopez
Browse files

Change to modifiable textarea

parent d6417e90
...@@ -65,7 +65,7 @@ tabHome = fluidPage(align="left", ...@@ -65,7 +65,7 @@ tabHome = fluidPage(align="left",
solidHeader = TRUE, solidHeader = TRUE,
status="primary", status="primary",
style='height:1000px; overflow-y: scroll', style='height:1000px; overflow-y: scroll',
verbatimTextOutput("previewContainer") textAreaInput("previewContainer", label = "", height = "1000px")
) )
) )
......
...@@ -451,20 +451,36 @@ createContentFile <- function() { ...@@ -451,20 +451,36 @@ createContentFile <- function() {
return(result) return(result)
} }
createContainerPackage <- eventReactive(input$createContainer, { observeEvent(input$createContainer, {
result <- createContentFile() print("preview")
show("downloadContainerFile") show("downloadContainerFile")
HTML(result) result <- createContentFile()
updateTextAreaInput(session, "previewContainer",
label = "",
value = result)
}) })
#createContainerPackage <- eventReactive(input$createContainer, {
#result <- createContentFile()
#show("downloadContainerFile")
output$previewContainer <- renderText({ #HTML(result)
createContainerPackage()
}) #})
#output$previewContainer <- renderText({
# createContainerPackage()
#})
output$downloadContainerFile <- downloadHandler( output$downloadContainerFile <- downloadHandler(
filename = function() { filename = function() {
...@@ -476,7 +492,7 @@ output$downloadContainerFile <- downloadHandler( ...@@ -476,7 +492,7 @@ output$downloadContainerFile <- downloadHandler(
} }
}, },
content = function(file) { content = function(file) {
result <- createContentFile() result <- input$previewContainer
write(result,file=file) write(result,file=file)
} }
) )
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment