How to make shiny fileInput more modern with a large drop zone?

Is it possible to modify fileInput to be a little more clean, large, and modern?

I'm looking to get to something closer to this:

source: Upload file modal — Untitled UI by Jordan Hughes® on Dribbble

I can get "kind of" close with the following:


ui <- fluidPage(
      .file-input-container {
        position: relative;
        width: 800px;
        margin: 20px auto;
        padding: 10px;
        border: 2px dashed #0087F7;
        border-radius: 5px;
        display: flex;
        flex-direction: column;
        align-items: center;
        justify-content: space-around; /* Distribute space around items */
      .file-input-text {
        text-align: center;
        font-size: 1.2em;
        margin-top: 20px; /* Add space above the text */
        margin-bottom: 20px; /* Add space below the text */
      #file1 {
        text-align: center; 
        display: block; 
        margin: auto; 
  titlePanel("Upload Files"),
    class = "file-input-container",
    fileInput("file1", "Choose a file", multiple = TRUE, buttonLabel = "Browse Files", placeholder = "No file selected"),
    div(class = "file-input-text", "Some text")

server <- function(input, output, session) {
  # Server logic

shinyApp(ui, server)

But notice my "drop zone" does not extend the full width of my blue dashed border.