R/mod_wordclcoud.R

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

#' wordclcoud UI Function
#'
#' @description A shiny Module.
#'
#' @param id,input,output,session Internal parameters for {shiny}.
#'
#' @noRd
#'
#' @importFrom shiny NS tagList
#' @import dplyr stringr rlang magrittr purrr tidyr
mod_wordclcoud_ui <- function(id){
  ns <- NS(id)
  tagList(
    fluidRow(
      box(width = 9,
          highchartOutput(ns("grafica"))
      ),
      box(width = 3,
          htmlOutput(ns("texto"))
      )
    )
  )
}

#' wordclcoud Server Function
#'
#' @noRd
mod_wordclcoud_server <- function(input, output, session, bd, pregunta, titulo){
  ns <- session$ns

  outputText <- reactiveVal(NULL)

  observeEvent(input$Clicked, {
    outputText(input$Clicked)
  })

  output$texto <- renderText({
    outputText()
  })

  output$grafica <- renderHighchart({
    ClickFunction <- JS(sprintf("function(event) {Shiny.onInputChange('%s', event.point.sidebar);}",ns("Clicked")))
    graficarOpinometro(bd = bd, pregunta =  pregunta, tipo = "texto_wordcloud", sw = sw, titulo = titulo,
                       bd.preguntas = bd.preguntas) %>%
      hc_plotOptions(series = list(
        events = list(click = ClickFunction)
      ))
  })
}

## To be copied in the UI
#

## To be copied in the server
#