getGEO("GSM11805")
      gsm <- getGEO(filename=system.file("extdata/GSM11805.txt.gz",package="GEOquery"))
      com<-Meta(gsm)$comment,
      output$com<-renderText(input$com),      
      textOutput("com")

I need to show the ouput in shiny mainpanel, so how can that be , i wrote the above code but it is not working