是否可以从服务器端 R Shiny 应用更改本地文件？

问：

问题

我正在制作一个应用程序，允许人们将数据添加到 csv 文件中。为了避免我的同事看到任何代码，我希望这个应用程序是服务器端的，例如在 shinyapps.io 上。目前，我已经尝试过 和 ：当我的应用程序在我的本地 PC 上时，这些工作（请参阅 MWE），但当我将其部署到 shinyapps.io 时则不起作用。fileinput()shinyFiles

这能起作用吗，或者从服务器写入本地目录总是有问题吗？

MWE 用于fileinput()

library(shiny)
library(shinyWidgets)
library(dplyr) # For bind_rows

# Define UI
ui = fluidPage(
    fileInput("my_file", "Add to Master Sheet", accept = ".csv"), # File upload
    actionButton("submit_btn", "Submit data") # Submit button
)

# Define Server Logic
server = function(input, output) {
    observeEvent(input$submit_btn, {
        my_data = read.csv(input$my_file$datapath) # Read in my data
        my_new_data = bind_rows(my_data, data.frame(5)) # Add new data
        write.csv(my_new_data, input$my_file$name) # Write the updated file
        stopApp() # Close app
    })
    
}

# Run the application
shinyApp(ui, server)

此示例在应用位于本地计算机上时有效，但即便如此，它也只会将新的.csv文件保存到与应用相同的位置。使用不起作用。当应用程序处于 shinyapps.io 状态时，不会更新任何文件。input$my_file$datapath

MWE 用于shinyFiles()

library(shiny)
library(shinyFiles)
library(shinyWidgets)
library(dplyr)

# Define UI
ui = fluidPage(
    shinyFilesButton("file_upload", "Choose a CSV file", title = "Upload", multiple = FALSE),
    verbatimTextOutput("file_status", placeholder = TRUE),  # Placeholder text will be shown until a file is uploaded
    actionButton("submit_btn", "Submit data"),
)

server <- function(input, output, session) {
    
    volumes <- c(Home = fs::path_home(), "R Installation" = R.home(), getVolumes()())
    shinyFileChoose(input, "file_upload", roots = volumes, filetypes = c('', 'csv'), session = session)
    observe({
        if (!is.null(input$file_upload)) {
            file_info <- parseFilePaths(volumes, input$file_upload)
            output$file_status <- renderText(paste("Selected file:", file_info$name))
        }
    })

    observeEvent(input$submit_btn, {
        infile = parseFilePaths(volumes, input$file_upload)
        my_data = read.csv(infile$datapath) # Read in my data
        my_new_data = bind_rows(my_data, data.frame(5)) # Add new data
        write.csv(my_new_data, infile$datapath) # Write the updated file
        stopApp() # Close app
    })
}

shinyApp(ui, server)

同样，这在我的本地 PC 上有效，但在 shinyapps.io 上，当我单击“文件上传”时，我的大多数系统文件都不会显示。