inst/shiny/shinyWYSIWYG_GUI/resultGenerator/uiResultGenerator.R

resultGenerator <- function() {
  fluidPage(
    tags$style(type = "text/css", "textarea {width:100%}"),
    actionButton(inputId = "resultGeneratebtn", label = "Generate"),
    textAreaInput(inputId = "resultGenerated", label = NULL, height = "400px", width = "100%")
  )
}
jcrodriguez1989/shinyWYSIWYG documentation built on Nov. 12, 2020, 4:28 p.m.