R shinny-选择存储文件的目录后，主面板上没有显示任何内容

我正在尝试从存储文件的计算机中动态选择目录。目前，在我的win10 PC桌面下存储了一个名为“sample”的sas数据集

我想打印出我读入的样本数据集的前10个观察值，但它在没有显示任何错误的情况下无法工作

library(shiny)
library(shinyFiles)
library(haven)
library(DT) 

ui<-fluidPage(sidebarLayout(
  
  sidebarPanel(
    shinyDirButton("dir", "Chose directory", "Upload")
  ),
  
  mainPanel(
    DT::dataTableOutput("sasdat")
  )
  
))

server <- function(input,output,session){
  
  dir <- reactive(input$dir)
  shinyDirChoose(input, 'dir', roots=c(name=getwd()), session=session)
  path1 <- reactive({
    return(print(parseDirPath(volumes, input$dir)))
  })
  
  data1 <- eventReactive(input$path1, {
    sample <- data.frame(read_sas(paste0(path1, "sample.sas7bdat")))
    sample
  })
  output$sasdat = DT::renderDataTable({
    head(data1(),10)
  })
  
  
}
shinyApp(ui = ui, server = server)

库（闪亮）
图书馆（shinyFiles）
图书馆（避风港）
图书馆（DT）
ui试试这个

library(shiny)
library(shinyFiles)
library(haven)
library(DT) 

ui<-fluidPage(sidebarLayout(
  
  sidebarPanel(
    shinyDirButton("dir", "Chose directory", "Upload")
  ),
  
  mainPanel(
    DTOutput("sasdat")
  )
  
))

server <- function(input,output,session){
  
  #dir <- reactive(input$dir)
  volumes <- getVolumes()
  shinyDirChoose(input=input, 'dir', roots=volumes, session=session)
  path1 <- reactive({
    parseDirPath(volumes, input$dir)
  })
  
  data1 <- eventReactive(path1(), {
    sample <- data.frame(haven::read_sas(paste0(path1(), "sample.sas7bdat")))
    sample
  })
  output$sasdat = renderDT({
    head(data1(),10)
  })
  
  
}
shinyApp(ui = ui, server = server)

ui<-fluidPage(sidebarLayout(
  
  sidebarPanel(
    fileInput("sasdata1", "Choose a SAS dataset", multiple = FALSE, accept = ".sas7bdat"),
  ),
  
  mainPanel(
    DTOutput("sasdat")
  )
  
))

server <- function(input,output,session){
  
  data1 <- reactive({
    req(input$sasdata1)
    inData1 <- input$sasdata1
    if (is.null(inData1)){ return(NULL) }
    mydata1 <- haven::read_sas(inData1$datapath)
  })

  output$sasdat = renderDT({
    head(data1(),10)
  })
  
}
shinyApp(ui = ui, server = server)