R Файл Shinydashboard Ошибка ввода

Question

Я ссылаюсь на коды из галереи блестящих виджетов, чтобы создать виджет fileInput на моей блестящей панели инструментов.

ui.R

fluidPage(
    
  # Copy the line below to make a file upload manager
  fileInput("file", label = h3("File input")),
  
  hr(),
  fluidRow(column(4, verbatimTextOutput("value")))
  
)

server.R

function(input, output) {

  # You can access the value of the widget with input$file, e.g.
  output$value <- renderPrint({
    str(input$file)
  })

}

Я ожидаю, что мое приложение будет показывать «прогресс загрузки файла», «статус загрузки завершен» и «сводку» файла, как на изображении ниже.

Below are my codes for shinydashboard: ** for your convenience, refer to "tab Item" = "file".

library(shinydashboard)
library(shiny)

# define user interface
ui 

I click on "Run App", tried to upload csv file but I don't see any progress bar or file upload complete status after I select a file. The widget basically doesn't work at all.

введите описание изображения здесь