Shiny - error messages with validate
0
0
Entering edit mode
alptaciroglu ▴ 50
@alptaciroglu-8859
Last seen 16 months ago
Turkey

Dear All,

I am trying to use Shiny package from R. I have a user typed input and the code behind takes that input runs it across several databases and returns tables.(See the code attached below) What I need is instead of returning empty tables I should print an error message saying that an input is required. I havent accomplished that (tried validate and need) . Please also note that I am not in liberty to disclose all of the code written. Thank you for your time.

 

#################################### Server.R ##########################################

shinyServer(function(input, output) {
      
      
  
      datasetInput <- reactive({
    switch(input$dataset,
           "GSE1" = GSE1,
           "none" = null,
           'GSE2'=GSE2)
  })
      
      data <- reactive({ 
        validate(
          need(input$number != "", "Please enter an input here")
        )
      })
      
      qualC <- reactive({
        value=as.vector(input$checkGroup)
        value=sprintf('%s_%s.pdf',value,input$dataset)
        print(value)
               })


########################################    UI.R   ########################################

shinyUI(pageWithSidebar(
  
  # Application title
#
  headerPanel("Representation"),

  # Sidebar with controls to select a dataset and specify the number
  # of observations to view
  sidebarPanel(
   
   textInput("number", "Enter a gene:", value=""),
   actionButton("Gobutton", "Search"),
   
   selectInput("dataset", "Choose a dataset:", 
                choices = c('none', 'GSE1',"GSE2")),width=3

  
  ),

 

####################################### sessionInfo ############################################

R version 3.2.2 (2015-08-14)
Platform: x86_64-w64-mingw32/x64 (64-bit)
Running under: Windows 7 x64 (build 7601) Service Pack 1

locale:
[1] LC_COLLATE=English_United States.1252  LC_CTYPE=English_United States.1252    LC_MONETARY=English_United States.1252
[4] LC_NUMERIC=C                           LC_TIME=English_United States.1252    

attached base packages:
 [1] grid      parallel  stats4    stats     graphics  grDevices utils     datasets  methods   base     

other attached packages:
 [1] Hmisc_3.17-0              Formula_1.2-1             survival_2.38-3           lattice_0.20-33          
 [5] ggplot2_1.0.1             shiny_0.12.2              biomaRt_2.24.1            vsn_3.36.0               
 [9] makecdfenv_1.44.0         affyio_1.36.0             BiocInstaller_1.18.4      affy_1.46.1              
[13] targetscan.Hs.eg.db_0.6.1 RSQLite_1.0.0             DBI_0.3.1                 AnnotationDbi_1.30.1     
[17] GenomeInfoDb_1.4.2        IRanges_2.2.7             S4Vectors_0.6.6           Biobase_2.28.0           
[21] BiocGenerics_0.14.0      

loaded via a namespace (and not attached):
 [1] reshape2_1.4.1        splines_3.2.2         colorspace_1.2-6      htmltools_0.2.6       XML_3.98-1.3         
 [6] foreign_0.8-66        RColorBrewer_1.1-2    plyr_1.8.3            stringr_1.0.0         zlibbioc_1.14.0      
[11] munsell_0.4.2         gtable_0.1.2          labeling_0.3          latticeExtra_0.6-26   httpuv_1.3.3         
[16] preprocessCore_1.30.0 proto_0.3-10          Rcpp_0.12.1           acepack_1.3-3.3       xtable_1.7-4         
[21] scales_0.3.0          limma_3.24.15         jsonlite_0.9.17       mime_0.4              gridExtra_2.0.0      
[26] digest_0.6.8          stringi_0.5-5         tools_3.2.2           bitops_1.0-6          magrittr_1.5         
[31] RCurl_1.95-4.7        cluster_2.0.3         MASS_7.3-44           R6_2.1.1              rpart_4.1-10         
[36] nnet_7.3-11   
R validate shiny • 1.2k views
ADD COMMENT

Login before adding your answer.

Traffic: 191 users visited in the last hour
Help About
FAQ
Access RSS
API
Stats

Use of this site constitutes acceptance of our User Agreement and Privacy Policy.

Powered by the version 2.3.6