Un modo corretto per tornare da ggvis quando i dati sono vuoti?

Question

Il mio grafico ggvis dipende da diversi campi di input che funzionano come filtri per i dati di input. Per alcune combinazioni il frame dati risultante è vuoto e ggvis genera un errore e interrompe l'intera applicazione. Ho provato a mettere

if(nrow(inputdataframe) == 0) return NULL 
if(nrow(inputdataframe) == 0) return ggvis() 

che non ha aiutato. Qual è il parametro di ritorno corretto in questa situazione (voglio invece avere una trama vuota o qualche messaggio di testo)?

server.R

effvis <- reactive ({ 
     dta <- siteeff() 
     if(nrow(dta) == 0) return(NULL) 
     dta %>% 
      ggvis(~param.value, ~yvar) %>% 
      layer_points(size := 50, size.hover := 200) %>% 
      set_options(width = 800, height = 500) 
}) 
effvis %>% bind_shiny("effplot") 

ui.R -

ggvisOutput("effplot") 

Aggiornamento

Io non voglio mostrare tutti i dati quando i dati è vuoto (come suggerito here) È confuso

Answer 1

Nel mio caso, con l'ultimo lucido, mi può solo inviare un n vuoto data.table (o data.frame) e lucido semplicemente traccia un grafo vuoto (il data.frame o data.table deve avere le colonne corrispondenti)

Answer 2

Quindi sarebbe stato utile per vedere un po 'più della logica nel codice. Credo che direi in generale che è molto importante capire come le espressioni reattive funzionano nel contesto della logica del programma. Proverò a leggere più codice possibile sulla pagina iniziale lucida che puoi. Ecco una breve sceneggiatura che ho scritto e penso che arrivi a quello che stai chiedendo. Saluti.

Global.r

library(plyr) 
    library(dplyr) 

    exp <- data.frame(Ind=rep(c("a","b"),each=50),val1=rgamma(100,10,5),val2=rnorm(100,2,3.5))

Server.r

library(shiny) 
    library(ggvis) 

    shinyServer(function(input, output, session) { 

    output$selectO <- renderUI({ selectInput(inputId="selectI", label = h4("Level to Plot"), 
     choices = list("a","b","c"),selected="a") 
    }) 

    observe({ 

    if(!is.null(input$selectI)){ 

    expfilter <- reactive({ 
      vals <- exp %>% filter(Ind == input$selectI) 
      return(vals) 
    }) 

    if(nrow(expfilter())==0){ 

    fail <- reactive({ return("filter failed") }) 

    output$trouble <- renderText({fail()}) # notice the use of() since fail is a function. when you want to grab the values of reactives use the() 

    } else { 

    success <- reactive({ return("good") }) 

    output$trouble <- renderText({success()}) 

    P1 <- reactive({ 
     expfilter %>% ggvis(~val1, ~val2) %>% 
     add_axis("x",title="Var1",title_offset=45,properties=axis_props(labels=list(fontSize = 13, fontWeight = "bold"),title=list(fontSize = 15))) %>% 
     add_axis("y",properties=axis_props(labels=list(fontSize = 13, fontWeight = "bold"))) 
    }) 

    P1 %>% bind_shiny("plot1") 

     } 
     } 
    }) 
    }) 

ui.r

library(shiny) 

    shinyUI(fluidPage(
    column(3, 
     wellPanel(
     uiOutput("selectO") 
     ) 
    ), 
    column(9, 
     wellPanel(
     ggvisOutput("plot1")), 
     wellPanel(h6("How Did the Filter Do"), 
     textOutput("trouble") 
     ) 
    ) 
    ) 
    )