title: How get the value of a cell in a selected row (shiny DT library)
body: <p>i trying print the value of a cell in selected row.</p>
  
  <p>This is datatanle code in <strong>ui.R</strong></p>
  
  <pre><code>body &lt;- dashboardBody(
      tabItems(#Contenido de las pestañas
          tabItem(#Pestaña para consultas
              tabName = "consulta",
              DT::dataTableOutput("tablaConsulta"),
              textOutput("consultaSelecionada")
          )
  )
  </code></pre>
  
  <p>And this the code in <strong>server.R</strong></p>
  
  <pre><code>output$tablaConsulta &lt;- DT::renderDataTable({#Tabla consultas
      library(RODBC)
      nombre_data &lt;- "consulta.rds"##Nombre archivo
      if(file.exists(nombre_data)){##Si existe el archivo
          consulta&lt;- readRDS(nombre_data)## Recojemos los datos desde el archivo
      }else{##Si no existe el archivo
          # Nos conectamos a la base de datos
          conn &lt;- odbcConnect("ORAC11.ORACLE11G", uid="l21", pwd="l21", rows_at_time = 500, believeNRows=FALSE)
          sql &lt;- "select COCODIGO, COTEXTO,COCOSE,COCOPS,COFECHA from L2113T00"
          #Ejecutamos la query
          consulta &lt;- sqlQuery(conn,sql) 
          close(conn)
          #La guardamos en el archivo
          saveRDS(consulta,nombre_data)
      }
  })
  </code></pre>
  
  <p>This code output "consultas" datatable, its fine. The problem, i need print "COCODIGO" in textOuput.</p>
  
  <p>I try do this:</p>
  
  <pre><code>output$consultaSelecionada &lt;- renderPrint({
      s = input$tablaConsulta_rows_selected
      cat("Consultas selecionadas")
      cat(s,sep=", ")
  })
  </code></pre>
  
  <p>This print the selected row number, i need print the selected row "COCODIGO" value.</p>
  
  <p>How i can do that?</p>