shiny appレンダリングプロットのエラーを防ぐ

Question

Hallo私は光沢のあるアプリの中に問題があります。アプリが正常に動作しますが、最初にエラーがあります：

Warning: Error in xy.coords: 'x' and 'y' lengths differ 
Stack trace (innermost first): 
    102: xy.coords 
    101: plot.default 
    100: plot 
    99: renderPlot [C:/Users/Stuhlian/Desktop/ghj.R#29] 
    89: <reactive:plotObj> 
    78: plotObj 
    77: origRenderFunc 
    76: output$plot1 
     1: runApp 

私は簡単にするために、アプリケーションの他のものなしのエラーを再現するサンプルコードを作った：

ui <- fluidPage(
    mainPanel(uiOutput("samplematches"), 
       plotOutput("plot1") 

    ) 
    ) 

server <- function(input, output) { 
re1<-data.frame(x=c(1:10),y=c(1:10)) 
re2 <-data.frame(x=c(1:10),y=c(1:10)) 
re3<-data.frame(x=c(1:10),no.matches.Sample1=c(1:10),Sample2=c(11,9,8,4,5,4,3,2,6,2)) 
result <- reactive({list(re,re2,re3)}) 


output$samplematches <- renderUI({if(length(grep("Sample", colnames(result()[[3]])))>0){sliderInput("samplematches", "Select Sample for matched masses",min=1, max=length(grep("Sample", colnames(result()[[3]]))), value=1,step=1)} else{return()}}) 
output$plot1 <- renderPlot({plot(result()[[3]][,1], result()[[3]][,grep("Sample", colnames(result()[[3]]))[input$samplematches]]) }) 

} 

shinyApp(ui, server) 

誰がどのように知っていますこのエラーを防ぐために、またはこの特別なエラーの出力を隠さない場合は？どうもありがとう！ renderUIまでプロットの評価を遅らせる

Answer 1

使用shiny::validateは終了し、サーバーに戻って値を通過した：

ui <- fluidPage(
    mainPanel(uiOutput("samplematches"), 
      plotOutput("plot1") 

) 
) 

server <- function(input, output) { 
    re1<-data.frame(x=c(1:10),y=c(1:10)) 
    re2 <-data.frame(x=c(1:10),y=c(1:10)) 
    re3<-data.frame(x=c(1:10),no.matches.Sample1=c(1:10),Sample2=c(11,9,8,4,5,4,3,2,6,2)) 
    result <- reactive({list(re1,re2,re3)}) 


    output$samplematches <- renderUI({ 
    shiny::validate(
     need(length(grep("Sample", colnames(result()[[3]])))>0, "A message!") 
    ) 
     sliderInput("samplematches", "Select Sample for matched masses",min=1, max=length(grep("Sample", colnames(result()[[3]]))), value=1,step=1) 
    }) 

    output$plot1 <- renderPlot({ 
    shiny::validate(
     need(input$samplematches, "Input a value!") 
    ) 
    plot(result()[[3]][,1], result()[[3]][,grep("Sample", colnames(result()[[3]]))[input$samplematches]]) 
    }) 

} 

shinyApp(ui, server)