stat-utas commited on
Commit
6e1e1b6
·
verified ·
1 Parent(s): 4d75452

Update app.R

Browse files
Files changed (1) hide show
  1. app.R +1 -1
app.R CHANGED
@@ -22,7 +22,7 @@ ui <- fluidPage(
22
  server <- function(input, output, session) {
23
  observeEvent(input$save_btn, {
24
  text <- input$input_text
25
- file <- "input_texts.xlsx"
26
 
27
  if (file.exists(file)) {
28
  data <- read.xlsx(file, sheet = 1)
 
22
  server <- function(input, output, session) {
23
  observeEvent(input$save_btn, {
24
  text <- input$input_text
25
+ file <- "/data/input_texts.xlsx"
26
 
27
  if (file.exists(file)) {
28
  data <- read.xlsx(file, sheet = 1)