R 我闪亮的web应用程序将表格写到了哪里？

我试图制作一个闪亮的web应用程序，我想记录每个在线数据输入，并将它们附加到一个.csv文件中

下面列出了服务器.R的当前代码。当我在RStudio中单击“运行应用程序”时，它可以附加到我的本地捆绑包文件夹中的csv文件。但在我上传到之后，我不知道闪亮的应用程序将表格写到了哪里。即使在我下载捆绑包文件时，里面的.csv文件也与我上载时完全相同

我如何解决这个问题

library(shiny)

shinyServer(function(input, output) {
output$tableforpatient <- renderDataTable({
patientall <- read.table("brian.csv")
patient <- data.frame(firstname=input$firstname,
                      lastname=input$lastname,
                      dob=input$dob,
                      number=paste0("+1",input$numbers),
                      email=input$email,
                      joined=Sys.Date())
write.table(patient, file = "brian.csv", sep = ",", append = TRUE,
            row.names = FALSE, col.names = FALSE)
patient
                                         })
                                     })

库（闪亮）
shinyServer（功能（输入、输出）{
输出$tableforpatient您可能希望使用
反应值
：

shinyServer(function(input, output) {
  my <- reactiveValues(patientall=read.table("brian.csv"))
  output$tableforpatient <- renderDataTable({my$patientall})
  observeEvent(input$submit, {
    patient <- data.frame(firstname=input$firstname,
                          lastname=input$lastname,
                          dob=input$dob,
                          number=paste0("+1",input$numbers),
                          email=input$email,
                          joined=Sys.Date())
    my$patientall <- rbind(my$patientall,patient)
  })
})

shinyServer（功能（输入、输出）{
my如何在rbind之后获取新的日期集？它将在每次更改时呈现。它的名称是
my$PatientTall