Сообщение, если результат запроса пуст - PullRequest
Новая
       4

Сообщение, если результат запроса пуст

1 голос
/ 14 февраля 2020

У меня есть flexdashboard с реактивными таблицами. Пользователи могут выбирать даты и ожидать результатов, но, если мой запрос пуст, как объяснить пользователю, что данные недоступны? Как я могу выйти из этого кода? 

---
title: "Dashboard"
output: 
  flexdashboard::flex_dashboard:
    orientation: rows
    vertical_layout: fill
runtime: shiny
---

```{r setup, include=FALSE}
library(flexdashboard)
library(DBI)
library(RPostgreSQL)
library(tidyverse)
```

```{r}
dataset <- eventReactive(input$button_execute, {
  date_start <- input$input_date_start
  date_end <- input$input_date_end
  drv <- dbDriver("PostgreSQL")
  query <- "SELECT * FROM mytable"
  conection <- dbConnect(drv, 
                       dbname = "xxx", 
                       host = "xxx",
                       user = "xxx",
                       password = "xxx",
                       port = 9999)
  rs <- dbSendQuery(conection, query)
  fetched <- dbFetch(rs)
  fetched <- fetched %>% mutate(colnew = sum(colmoney)) 
  dbDisconnect(conection)
})
```

Я пробовал следующее: 

if(nrow(fetched) != 0) then {
   # execute the mutate 
} else { 
   # say no data
}

Мой вопрос: есть ли способ выйти с сообщением в flexdashboard и избежать рендеринга реактивные таблицы?

...