在Shiny中输入后运行R脚本，并在r脚本中更新变量值

Question

请参阅该帖子Run R script after input in Shiny，该解决方案对我而言有效。但是如何在r脚本中使用变量来更改先前的值。

library(shiny)

ui <- fluidPage(
  textInput("text", "Enter text", value = "test"),
  actionButton("runScript", "Run")
)

server <- function(input, output, session) {

  mylist <- reactiveVal() # we will store the inputs in a reactive list

  observe({ # create the list
    mylist(list(
      text = input$text))
  })

  observeEvent(input$runScript, { # "runScript" is an action button
    source("myscript.R", local = list2env(mylist()))
  })

}

shinyApp(ui, server)

这适用于

这样的r脚本

myscript.R

writeLines(text, "output.txt")

如果我的r脚本包含一些路径

类似路径

如何更新文本变量？

如果我输入的是People，它将打开People.xlsx

但是它抛出了这个错误

不能将“ closure”类型强制为“ character”类型的向量