Commit b6a5614d authored by jlopez's avatar jlopez
Browse files

Change to modifiable textarea

parent d6417e90
......@@ -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")
)
)
......
......@@ -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)
}
)
......
Markdown is supported
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