Edit a dataframe from R shiny - r

Question

I have been reviewing all sorts of documents all day but I do not see a clear solution to my problem. The issue I am having is that I want to bring in a file locally (.xlsx) into the shiny rmarkdown file. Once the app is hosted, users will be able to go in and edit the dataframe and upon exiting the app, the updated dataframe will reflect the changes made my the user.
---
title: "Component Health Dashboard"
output:
flexdashboard::flex_dashboard:
orientation: rows
social: menu
runtime: shiny
---
```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = F)
library(flexdashboard)
library(tidyverse)
library(readxl)
```
Dashboard
=======================================================================
## Table
```{r cars, echo= F}
cars<-read_xlsx("cars.xlsx")
DT::renderDataTable(cars, editable = T,rownames = F)
```
I have referenced this question r shiny: updating rhandsontable from another rhandsontable & Using Shiny to update dataframe values and access it in the local environment after Shiny session ends, but it only seems to work when a DF is in the global environment for a UI/Server. I feel like there is a much better way of doing this. Any help in pushing me into the correct direction or other idea is greatly appreciated.

Answer 1

Instead of using flex_dashboard, let me suggest you use shiny, something like the following.
library(shiny)
library(DT)
cars <- data.frame(rbind(c(1,2,3), c(4,5,6), c(7,8,9)))
ui <- fluidPage(
mainPanel(
HTML("<br><br><b>Double click on a cell in this table. Enter a number.</b><br><br>"),
DTOutput("table1"),
HTML("<br><br><b>See the change reflected in this table.</b><br><br>"),
DTOutput("table2")
)
)
server <- function(input, output) {
RV <- reactiveValues(data = NULL)
RV$data <- cars
observeEvent(input$table1_cell_edit, {
row <- input$table1_cell_edit$row
clmn <- input$table1_cell_edit$col + 1
val <- input$table1_cell_edit$value
RV$data[row, clmn] <- as.numeric(val)
})
output$table1 <- renderDT({
datatable(RV$data, options = list(dom = 't'), editable = TRUE, rownames = F)
})
output$table2 <- renderDT({
datatable(RV$data, options = list(dom = 't'), editable = FALSE, rownames = F)
})
}
shinyApp(ui = ui, server = server)