Właściwy sposób na powrót z ggvis, gdy dane są puste?

Question

Mój wykres ggvis zależy od kilku pól wejściowych, które działają jak filtr danych wejściowych. W przypadku niektórych kombinacji wynikowa ramka danych jest pusta, a ggvis zgłasza błąd i przerywa całą aplikację. Próbowałem wstawić

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

który nie pomógł. Jaki jest właściwy parametr powrotu w tej sytuacji (chcę zamiast tego mieć pustą fabułę lub jakąś wiadomość tekstową)?

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

Aktualizacja

Nie chcę, aby pokazać wszystkie dane, gdy dane jest pusta (jak sugeruje here) To mylące

Answer 1

w moim przypadku, z najnowszym błyszczący, ja może po prostu wysłać n pusta data.table (lub data.frame) i lśniąca tylko kreślenie pustego wykresu (data.frame lub data.table musi mieć odpowiednie kolumny)

Answer 2

Więc to by było pomocne, aby zobaczyć więcej logiki w twoim kodzie. Sądzę, że ogólnie rzecz biorąc, bardzo ważne jest zrozumienie, jak wyrażenia reaktywne działają w kontekście logiki programu. Próbowałbym czytać jak najwięcej kodu na błyszczącej stronie głównej. Oto krótki skrypt, który napisałem, myślę, że dostaje to, o co prosisz. Twoje zdrowie.

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