R Flexdashboard: Как выполнить операцию загрузки данных вне приложения?

Question

Я пытаюсь получить около 55 000 строк с сервера SQL, используя драйвер odb c. Эта операция загрузки данных занимает много времени как в отдельности, так и во время работы блестящего приложения. Я искал некоторые решения. Одним из них является выполнение операций с базой данных вне приложения. Но я не могу найти способ сделать это для приложения flexdashboard.

Мой код для загрузки данных приведен ниже:

```{r include=FALSE}
#Establish connection to ODBC
con <- dbConnect(odbc(),
                 Driver = "SQL Server",
                 Server = "XXX.XX.XX.XXX",
                 Database = "XXXXX",
                 UID = "USERNAME",
                 PWD    = "pwd",
                 trusted_connection = 'yes',
                 Port = XXXX)



set.seed(12)
```

```{r include=FALSE}
#Fetching Main Data
TBL_VIEW_A<- tbl(con, in_schema("dbo", "View_A"))

#Fetching Secondary Data
TBL_VIEW_B<- tbl(con, in_schema("dbo", "View_B"))

#Load Data for Analysis
data <- TBL_VIEW_A %>%  
  select(A,B,C,D,E
         ) %>% as.data.frame() 
data$Date <- as.Date(data$Date)
data$f<- data$B+ data$C+ data$D

Sec_Data <- TBL_VIEW_B %>% 
  select(P,Q,R,S,t) %>%
  as.data.frame()
Sec_Data $Date <- as.Date(Sec_Data $Date)
```