Richtiger Weg von ggvis zurückzukehren, wenn die Daten leer sind?

Question

Mein ggvis-Diagramm hängt von mehreren Eingabefeldern ab, die wie Filter für Eingabedaten funktionieren. Für einige Kombinationen ist der resultierende Datenrahmen leer und ggvis wirft einen Fehler und bricht die gesamte Anwendung. Ich versuchte

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

zu setzen, die nicht geholfen haben. Was ist der richtige Rückgabeparameter in dieser Situation (Ich möchte stattdessen eine leere Handlung oder eine Textnachricht haben)?

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") 

aktualisieren

Ich möchte nicht alle Daten zeigen, wenn Daten leer ist (wie here vorgeschlagen) Es ist verwirrend

Answer 1

In meinem Fall, mit der neuesten glänzend, ich kann einfach senden n leere data.table (oder data.frame) und glanz nur ein leeres Diagramm plotten (die data.frame oder data.table muss die entsprechenden Spalten haben)

Answer 2

So wäre es gewesen hilfreich, um mehr von der Logik in Ihrem Code zu sehen. Ich denke, im Allgemeinen ist es wirklich wichtig zu verstehen, wie reaktive Ausdrücke im Kontext der Programmlogik funktionieren. Ich würde versuchen, so viel Code auf der glänzenden Homepage zu lesen, wie du kannst. Hier ist ein kurzes Drehbuch, das ich geschrieben habe, dass ich glaube, dass es bei dem ankommt, was du fragst. Prost.

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") 
     ) 
    ) 
    ) 
    )