Fetch the column content from rendertable output for plotting a graph

[Nabi Shaikh]

===============ui=======================

library(tm)

library(shiny)

# Starting line

shinyUI(fluidPage(

  

  # Application title

  h1(strong(" title ")),

  

  # Sidebar

  sidebarLayout(  

    sidebarPanel(textInput("text", label = h3("Enter the name"),value = "enter text"),

                 #submitButton("Submit")

                 submitButton("Submit"),helpText("Note :- Search Only for .... !! :) ")

                 ),

    

    #The plot created in server.R is displayed

    mainPanel(

      tabsetPanel(

        tabPanel("Introduction",h2('Explaination '),

                 img(src="bigorb.png"),

                 p(em('Its a Course  system that focuses on the relation 

                    between course categories and learner preferences.'))

                 ),

        tabPanel("Output",

                 tableOutput("table"))

      

        ))

    

  )

))

===============server=======================

#server.R

library(shiny)

library(proxy)

library(recommenderlab)

library(reshape2)

source("helpercode.R")

shinyServer(function(input, output) {

  output$table <- renderTable({

   function(input$text)

  

   })

 })

===============help source=======================

library(proxy)

library(recommenderlab)

library(reshape2)

function <- function(input,output) {

  some source code ....resulted to bc variable which is a data frame

  return(bc)                                }

Here : bc consist of columns (id , name ,score)

          i need to plot a plot scatter plot id Vs score