stat-utas commited on
Commit
33c1eae
·
verified ·
1 Parent(s): fd01f47

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 <- "/data/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 <- "input_texts.xlsx"
26
 
27
  if (file.exists(file)) {
28
  data <- read.xlsx(file, sheet = 1)