Как обновить R скрипт с информацией от R Shiny?

Question

У меня есть этот скрипт Shiny:

library(shiny)
source("oss_datamanip.R")
# Define UI ----
ui <- fluidPage(
    titlePanel("Prime Awards Analysis for the OSS Team"),
    sidebarPanel(fluidRow(
        column(12, textInput("text", h4("Please enter a DUNS number: "), 
                             value = "Enter text...")),
        column(12, textInput("text", h4("Please enter the file path where you would like your output to be saved: "), 
                             value = "Enter text...")))),
    mainPanel(textOutput("duns"),
              textOutput("file_path")),
    actionButton("script", "Run the Script")
)


# Define server logic ----
server <- function(input, output, session){
    observe({
        user.input <<- input$duns
        output.dir <<- input$file_path
    })
    source("oss_datamanip.R")
}

# Run the app ----
shinyApp(ui = ui, server = server)

, и я хочу, чтобы пользовательский ввод из приложения Shiny обновил скрипт R до его запуска. Это возможно? Как бы я поступил так?