Spaces:

stat-utas
/

persistentdataxls

Sleeping

stat-utas commited on Jul 18, 2024

Commit

af2adae

verified ·

1 Parent(s): 3866dd9

Update app.R

Files changed (1) hide show

app.R CHANGED Viewed

@@ -22,7 +22,7 @@ ui <- fluidPage(
 server <- function(input, output, session) {
   observeEvent(input$save_btn, {
     text <- input$input_text
-    file <- "/data/input_texts.xlsx"
     if (file.exists(file)) {
       data <- read.xlsx(file, sheet = 1)
@@ -38,7 +38,7 @@ server <- function(input, output, session) {
   })
   observeEvent(input$clear_btn, {
-    file <- "/data/input_texts.xlsx"
     if (file.exists(file)) {
       file.remove(file)
     }
@@ -47,7 +47,7 @@ server <- function(input, output, session) {
   })
   updateTableOutput <- function() {
-    file <- "/data/input_texts.xlsx"
     if (file.exists(file)) {
       data <- read.xlsx(file, sheet = 1)

 server <- function(input, output, session) {
   observeEvent(input$save_btn, {
     text <- input$input_text
+    file <- "/srv/shiny-server/data/input_texts.xlsx"
     if (file.exists(file)) {
       data <- read.xlsx(file, sheet = 1)
   })
   observeEvent(input$clear_btn, {
+    file <- "/srv/shiny-server/data/input_texts.xlsx"
     if (file.exists(file)) {
       file.remove(file)
     }
   })
   updateTableOutput <- function() {
+    file <- "/srv/shiny-server/data/input_texts.xlsx"
     if (file.exists(file)) {
       data <- read.xlsx(file, sheet = 1)