Загружать глобальные данные с SQL, используя flexdashboard - PullRequest
Новая
       3

Загружать глобальные данные с SQL, используя flexdashboard

0 голосов
/ 04 февраля 2020

Есть ли способ загрузить глобальные данные с помощью SQL в flexdashboard, нажав кнопку? Я пробовал это до сих пор: 

---
title: "The data"
output: 
  flexdashboard::flex_dashboard:
runtime: shiny
---
```{r setup, include=FALSE}
library(flexdashboard)
library(DBI)
library(RPostgreSQL)
library(tidyverse)
library(DT)
```
```{r global}
drv <- dbDriver("PostgreSQL")
dataset <- eventReactive(input$button_execute, {
  query <- paste0("SELECT * from table tl 
              WHERE tl.disbursement_date >= '20200120')
  conection <- dbConnect(drv, dbname = "database", host = "hosting", user = "user",
                   password = "pwd", port = 9999)
  rs <- dbSendQuery(conection, query)
  dbFetch(rs)
})

Column {.sidebar}
-----------------------------------------------------------------------
```{r}
actionButton("button_execute", "Execute")
```
Column
-----------------------------------------------------------------------
### Table
```{r}
DT::datatable(dataset)
```

Но набор данных объекта равен NULL при каждом нажатии кнопки, даже когда выполняется запрос.

Любая помощь будет оценена.

...