How to have an editable DT table when using Flexdashboard with shiny?

0
votes

I don't know if this is the best approach, but any guidence is greatly appreciated. I have a table that in one of my flexdashboard's I will show applications. This table shows ID, date recieved, and a status which is blank.

I would like for a user to go in there and enter a status once they see application and have that status be saved in the table. I can do this with the editable=TRUE but it doesn't save when I reload my shiny app.

What is the best approach for this?

enter image description here

Code

---
title: "CARS TABLE "
output: 
  flexdashboard::flex_dashboard:
    orientation: columns
    vertical_layout: fill
    runtime: shiny
---

```{r setup, include=FALSE}
library(flexdashboard)
library(shiny)
library(DT)
```

Column {data-width=650}
-----------------------------------------------------------------------

### Chart A

```{r}

data <- data.frame(id = c(12456,12457,12458,12459,12569,23456),
                   date_recived = c("10/25/2021", "10/05/2021","11/25/2021","11/25/2021","11/25/2021","10/22/2021"),
                   status = c("","","","","",""))

datatable(data
  ,
          editable = TRUE,
  options = list(
    columnDefs = list(list(className = 'dt-center', targets = "_all")))
)
```
rshinydtflexdashboard