Ошибка при нормализации пути R блестящий

Это мой первый вопрос о переполнении стека, поэтому заранее прошу прощения, если задам довольно расплывчатый или сложный вопрос.

Я работал над разработкой небольшого веб-приложения, которое извлекает детализированные данные со страниц facebook с помощью пакета Rfacebook. Я выполнил функцию извлечения данных для этого веб-приложения и теперь перешел к разработке блестящего пользовательского интерфейса и серверных функций с помощью shinydashboard.

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

Предупреждение: ошибка в normalizePath: path [1] = "C: \ Users \ Adel \ AppData \ Local \ Temp \ RtmpIr7Hkl \ widgetbinding16a456f01dfa": система не может найти указанный файл Трассировка стека (сначала самый внутренний): 1: shiny :: runApp Ошибка в normalizePath (path.expand (path), winslash, mustWork): path [1] = "C: \ Users \ Adel \ AppData \ Local \ Temp \ RtmpIr7Hkl \ widgetbinding16a456f01dfa": системе не удается найти указанный файл

Я попытался удалить и переустановить все соответствующие пакеты, но это не удалось. Я также попытался создать файл "widgetbinding16a456f01dfa" по указанному пути, это привело к отображению блестящей панели мониторинга, но это была нефункциональная панель. Кроме того, я попытался изменить проекты в RStudio, блестящая панель управления работала, однако всякий раз, когда я закрываю и перезапускаю RStudio, я получаю ту же ошибку, но с неопределенно разными именами файлов (например, привязка виджетов [.. разные числа])

Информация об этой ошибке в Интернете была ограничена, я подозреваю, что это ошибка RStudio, а не блестящая.

Ниже приведен код, который я использовал для ui.r

library(shiny)
library(shinydashboard)
library(shinythemes)
library(DT)
library(Rfacebook)

header <- dashboardHeader()

sidebar <- dashboardSidebar(
  sidebarMenu(

    textInput("f_id", "Enter Facebook Page ID", value = "Enter ID ..."),
    dateRangeInput('dateRange',
                   label = 'Input Date',
                   start = Sys.Date() - 2, end = Sys.Date() + 2),
    actionButton("go", "Go")
  )
)


body <- dashboardBody(
  fluidRow(
    dashboardBody(
      dataTableOutput("table1",height = 5, width = "20") 
    )  
)     )

shinyUI(
  dashboardPage(header,sidebar,body))

Ниже приведен код, который я написал для server.R

shinyServer(function(input,output){

  table <- eventReactive(input$go, {
    facebook_analyzer(input$f_id, since = format(input$dateRange[1])
                      , until = format(input$dateRange[2]))
})  

  output$table1 <-  renderDataTable(
     datatable((table()[,c("poster_name","poster_id","post_content","date_of_post")]), 
               options = list(pageLength = 5, deferRender = TRUE )))
  }) 

Любая помощь была бы очень признательна, я пытался отладить эту ошибку в течение двух дней. Спасибо!