RShiny: проблема с созданием файла .docx в Shiny

Question

Я пытаюсь использовать пакет officer для сохранения данных в блестящем приложении в виде файла слов.Странно то, что это работает в IDE, но не в приложении.Далее, я не получаю ошибку, просто говоря: ничего не происходит.

Это то, что происходит в IDE:

library(magrittr)
library(officer)

x<-'square'

doc <- read_docx()

doc <- doc %>%
      body_add_par(paste('My favorite shape is',input$id), style = "Normal") %>%
      body_add_table(iris,style = "table_template")

    print(doc,target = "doc1.docx")

Это работает правильно, создавая Word (.docx) файл, как показано здесь:

Однако при попытке включить его в Shiny ничего не происходит:

library(shiny)
library(magrittr)
library(officer)


ui <- fluidPage(
  selectizeInput('id','Choose shape:',
                 choices = c('Triangle','Circle','Square')),

  actionButton('submit','Submit Form', icon = icon('table'))
)

server <- function(input, output) {

  WriteWord<-function() {

    doc <- read_docx()

    doc <- doc %>%
      body_add_par(paste('My favorite shape is',input$id), style = "Normal") %>%
      body_add_table(iris,style = "table_template")
    print(doc,target = "doc1.docx")
  }

  observeEvent(input$submit, {
    WriteWord()
  })


}

shinyApp(ui = ui, server = server)

Нет ошибок , ничего не происходит.Я нажимаю кнопку действия, и файл не создается.Одд.