Shinyはゼロ行データフレームで作業していないことを検証しますか？

Question

私は次のコードを書いています....何らかの理由でvalidateがキックオフされず、plotコマンドがエラーで実行されます。私は何が欠けていますか？データフレームの観点から

library(shiny) 
df <- data.frame(x = 1, y = 1) 

ui <- fluidPage(
    plotOutput('plot') 
) 

server <- function(input, output) { 
    output$plot <- renderPlot({ 
    df <- df[-1, ] 
    validate(
     need(nrow(df), 
      "Not Enough Data") 
    ) 
    plot(df$x, df$y) 
    }) 
} 

shinyApp(ui = ui, server = server) 

すべてが正常に見える：

df <- data.frame(x = 1, y = 1) 
df 
    x y 
1 1 1 

df <- df[-1, ] 
df 
[1] x y 
<0 rows> (or 0-length row.names) 

nrow(df) 
[1] 0 

names(df) 
[1] "x" "y" 

Answer 1

は、このヘルプをしていますか？

shiny::need(0, "Won't say anything") 
shiny::need(NULL, "Will say something") 
shiny::need(FALSE, "Will say something") 

試してみてください？

need(nrow(data)>0)