Path 规范化路径R中出错

这是我关于堆栈溢出的第一个问题，所以如果我问了一个相当模糊或困难的问题，我会提前道歉

我一直致力于开发一个小型web应用程序，它使用Rfacebook包从facebook页面提取细粒度数据。我已经完成了这个web应用程序的数据提取功能，现在开始使用shinydashboard开发闪亮的UI和服务器功能

我已经完成了仪表板开发的一个阶段，并且已经成功地测试了多次，但是一旦我关闭并保存RStudio，然后重新启动它，每当我尝试runApp时，我总是会遇到这个错误

警告：normalizePath:path[1]=“C:\Users\Adel\AppData\Local\Temp\RtmpIr7Hkl\widgetbinding16a456f01dfa”中出错：系统找不到指定的文件 堆栈跟踪（最里面的第一个）： 1:Shining:：runApp normalizePath（path.expand（path）、winslash、mustWork）中出错： 路径[1]=“C:\Users\Adel\AppData\Local\Temp\RtmpIr7Hkl\widgetbinding16a456f01dfa”：系统找不到指定的文件

我尝试删除并重新安装所有相关软件包，但失败了。 我还尝试在指定的路径中创建一个文件“widgetbinding16a456f01dfa”，它导致了shinydashboard的渲染，但它是非功能仪表板。 此外，我尝试在RStudio上更改项目，shinydashboard工作正常，但是每当我关闭并重新启动RStudio时，我都会收到相同的错误，但文件名略有不同（即widgetbinding[…不同的数字]）

网上关于这个bug的信息非常有限，我有预感这是一个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))

库（闪亮）
图书馆（shinydashboard）
图书馆（shinythemes）
图书馆（DT）
图书馆（Rfacebook）
header我试图重现错误。我创建了一个文件夹
app
，并将两个文件复制到其中；一切都很好。因此，更高版本的软件包可能会解决这个问题（自从提出这个问题以来，四年多过去了）。此外，我要确保文件
server.R
和
ui.R
在同一个文件夹中，并且工作目录设置为app文件夹（也不需要这样做）

以下内容可能不直接适用于所述问题，因为它发生在
库（gfonts）
和
设置\u font（id=“roboto”，output\u dir=“www”，variants=“regular”）
的上下文中，但错误消息类似：

normalizePath（path.expand（path）、winslash、mustWork）中出错：
路径[1]=“www”：系统找不到指定的文件

在我的例子中，我创建了文件夹（
www
），解决了这个问题

通常，如果目录不存在，则命令
normalizePath（'myFolder'）
将返回上述消息

因为，最初的问题包含了一条路径。需要检查路径（和文件）是否存在。如果存在，则必须检查访问权限。如果它不存在，则需要识别创建它的库（
…widgetbinding…
>
htmlwidgets
），并检查较新的版本是否解决了该问题，或其他一些解决方法（例如，较短的路径、不同的文件夹等）。
我怀疑这与
htmlwidgets
包有关（参见第55行），或者使用它的包（例如
DT
）。你能发布你使用的软件包版本吗？（使用
sessionInfo（）
）。同时尝试安装github版本的
DT
看看是否有帮助。此处出现类似错误。您是否解决了此问题？
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 )))
  })