R/app_server.R

In EAMI91/textoMagisterio: Análisis de texto para preguntas poderosas

#' The application server-side
#'
#' @param input,output,session Internal parameters for {shiny}.
#'     DO NOT REMOVE.
#' @import shiny
#' @noRd
app_server <- function( input, output, session ) {
  # List the first level callModules here

  bd <- reactive({
    input$actualizar
    tibble::tibble(p1 = c("hola","como", "estas","hola, como estás yo estoy muy bien"),
                   p2 = c("Mi nombre es emilio morones","mucho gusto", "estas","hola, como estás yo estoy muy bien"),
                   p3 = c("hola","como", "estas","hola, como estás yo estoy muy bien"))
  })

  callModule(mod_wordclcoud_server, "wordclcoud_ui_1", bd = bd(), pregunta = "p1", titulo = "Pregunta 1")
  callModule(mod_wordclcoud_server, "wordclcoud_ui_2", bd = bd(), pregunta = "p2", titulo = "Pregunta 2")
  callModule(mod_wordclcoud_server, "wordclcoud_ui_3", bd = bd(), pregunta = "p3", titulo = "Pregunta 3")
}