如何使read_excel（file.choose（））函数出现在远程服务器应用程序的客户端

我试图创建一个闪亮的应用程序，允许用户上传excel文件进行预处理。我尝试使用以下代码，但上传文件只出现在服务器端，用户无法看到它和上传文件，我缺少什么？注意！若我使用FileInput函数，我将能够像重命名列名、删除特定变量中的列或子集值一样对其进行预处理

library(shiny)
library(readxl)

options(shiny.maxRequestSize = 30*1024^2)
runApp(host="0.0.0.0",port=5050,
       list(
         ui = fluidPage(
           titlePanel("Upload Excel File"),
           sidebarLayout(
             sidebarPanel(
             
               actionButton("uploada", "Upload"),
    
             ),
             
             mainPanel(
               tableOutput('contents'),
               ),
             
           ),
           
         ),

server = function(input, output){
           
           observeEvent(input$uploada, {
             
             output$contents <-  renderTable({read_excel(file.choose())})
             
             
           })
           
         }
       )
)

库（闪亮）
图书馆（readxl）
选项（shinny.maxRequestSize=30*1024^2）
runApp（主机=“0.0.0.0”，端口=5050，
名单(
ui=fluidPage(
标题面板（“上传Excel文件”），
侧边栏布局(
侧栏面板(
操作按钮（“上传”、“上传”），
),
主面板(
tableOutput（'contents'），
),
),
),
服务器=功能（输入、输出）{
observeEvent（输入$uploada{
输出$contents