Как мне развернуть мое блестящее приложение? (ошибка открытия соединения)

Question

Я не могу развернуть блестящее приложение.Это ошибка, которую я получаю

> deployApp()
Preparing to deploy application...DONE
Uploading bundle for application: 565580...Error in file(con, "r") : cannot open the connection
In addition: Warning message:
In file(con, "r") :
  cannot open file '/var/folders/6_/gqrmklfs2vb00n2ksy7pthgh0000gn/T//RtmpnhMpxa/file63a82fe45b55': No such file or directory

Я не уверен, почему "R" ищет в этом конкретном месте.Когда я захожу на панель управления Shiny, я вижу, что приложение загружено, но еще не развернуто.Спасибо.

Вот минимальная версия кода.Он включает чтение в текстовом файле и отображение его в виде объекта .html.

shinyApp(

  ui <- fluidPage(
    sidebarLayout(
      sidebarPanel(
        fileInput("text_file", "Choose text file",
                  multiple = FALSE,
                  accept = c(".txt")
        )
      ),
      mainPanel(htmlOutput("example"))
    )
  ), 

  server <- function(input, output, session){

    text <- reactive({
      req(input$text_file)
      x <- scan(input$text_file$datapath, what = "string", sep = "\n")

    })

    # text output
    output$example <- renderUI({
      HTML(text())
    })
  }



    )

Answer 1

Мне нужно добавить картинку, используя метод ответа:

Вы пробовали использовать функциональность RStudio?

Обновление

У меня былоотредактируйте свой код, чтобы получить эту опцию:

library(shiny)  

ui <- fluidPage(
    sidebarLayout(
      sidebarPanel(
        fileInput("text_file", "Choose text file",
                  multiple = FALSE,
                  accept = c(".txt")
        )
      ),
      mainPanel(htmlOutput("example"))
    )
  )

server <- function(input, output, session){

  text <- reactive({
    req(input$text_file)
    x <- scan(input$text_file$datapath, what = "string", sep = "\n")

  })

  # text output
  output$example <- renderUI({
    HTML(text())
  })
}

shinyApp(ui, server)