Search
Question: Shiny - error messages with validate
0
gravatar for alptaciroglu
2.1 years ago by
alptaciroglu40
Turkey
alptaciroglu40 wrote:

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   
ADD COMMENTlink written 2.1 years ago by alptaciroglu40
Please log in to add an answer.

Help
Access

Use of this site constitutes acceptance of our User Agreement and Privacy Policy.
Powered by Biostar version 2.2.0
Traffic: 157 users visited in the last hour