个人中心
gpt4 book ai didi

r - 部署使用 fileInput 上传数据的 Shiny 应用程序时出错

转载 作者：行者123 更新时间：2023-12-01 16:24:14 26 4
gpt4 key购买 nike

部署我的第一个 Shiny 应用程序 - 简单的 html 解析器，让用户上传 html 文件，然后解析它以获取有关 LinkedIn 上的分享/提及/喜欢的信息。

该应用程序在本地运行良好(在部署之前进行了测试)，并且 Rstudio 没有显示任何部署错误。但是，当我使用shinyapps链接运行它时，上传似乎无法完成，并且我没有得到任何输出。

本地情况

打开应用程序

Start

上传 .html 文件

enter image description here

shinyapps.io 上的样子

enter image description here

我已经编辑了文件名，因为它包含识别信息。

代码如下:

library(rvest)
library(shiny)
ui <- fluidPage(
  # theme = "https://bootswatch.com/4/superhero/bootstrap.css",
  title = "LinkedIn Report",

  fluidRow(
    column(12,
           fileInput("infile", "Choose .html file", 
              accept = "text/html", multiple = F) )
  ),

  fluidRow(
    column(12,
           tableOutput("savedLocation") )
  ), 

  fluidRow(
    column(12,
           tableOutput("parsedData") ),
    column(8, 
           downloadButton("downloadData", "Download"))
  )

)


server <- function(input, output){
  dd <- reactive(input$infile)

  output$savedLocation <- renderTable({
    if(is.null(input$infile)){
      return(data.frame(Elapsed = character(), 
                        Time = character(),
                        Name = character(), 
                        Action = character()))
    }else{
      return(dd())
    }
  })

  actual_data <- reactive({
    if(is.null(input$infile)){
      asdad <- data.frame(Elapsed = character(), 
                          Time = character(),
                          Name = character(), 
                          Action = character())
    }else{
      notifications <- read_html(input$infile$datapath)
      name_action <- gsub("\\n", "", notifications %>% html_nodes(".nt-card__text--3-line") %>% html_text())
      tme <- trimws(gsub("\\n", "", notifications %>% html_nodes(".nt-card__time-ago") %>% html_text()))
      action <- notifications %>% html_nodes(".nt-card__text--3-line strong") %>% html_text
      nme <- trimws( sapply(1:length(name_action), function(z) gsub(action[z], "", name_action[z])))


  asdad <- data.frame(Elapsed = tme, Time = elap(tme), Name = nme, Action = action)
    }
    return(asdad)
  })

  output$parsedData <- renderTable({ actual_data()})

  output$downloadData <- downloadHandler(
    filename = "yourdata.csv", 
    content = function(filename){ write.table(actual_data(), file = filename, 
                                              row.names = F, sep = ",")}
  )
}

shinyApp(ui = ui, server = server)

这是否与我拥有免费帐户有关？正在上传的文件大小小于 420kb。

我查看了以下问题，但它们没有解决上述问题:

  1. Shiny app deployment error on shinyapps.io
  2. Error in deploying a shiny app
  3. Unable to deploy shiny app on shiny server

Rstudio 有一个使用 fileInput 的类似示例，可以在此处找到:https://shiny.rstudio.com/articles/upload.html

最佳答案

为了子孙后代，另一个几乎没有答案。就上下文而言，我之前也在shinyapps.io 上遇到过这个问题几次，但从 RStudio 运行时从未在 Mac 或 Windows 上遇到过。特别是，我通过压缩文件得到了这个(在某些情况下是压缩的 .txt 文件，在其他情况下是 ESRI Shapefiles)。我在上传进度栏中看到的格式化 HTML 如下所示。

作为经常使用 VPN 和代理的用户，我发现上传过程中连接断开可能会导致这种情况。如果您的互联网连接有可能出现问题，我会进行调查。

<小时/> 
  <!DOCTYPE HTML>
<html lang="en">
   <head>
      <title>Error</title>
      <style type="text/css"> body { color: #222; background: #ddd; font-family: sans-serif; margin: 20px; } h1, h2, pre { margin: 20px; } .box { background: white; overflow: hidden; box-shadow: 1px 1px 8px gray; border-radius: 1px; } .footer { text-align: center; font-family: serif; margin: 10px; font-size: 12px; color: #A7A7A7; } </style>
   </head>
   <body>
      <div class="box">
         <h1>Error</h1>
         <pre>/opt/openresty/luajit/share/lua/5.1/lapis/application.lua:73: attempt to index local &#039;curr&#039; (a string value)</pre>
         <h2>Traceback</h2>
         <pre> stack traceback: /opt/openresty/luajit/share/lua/5.1/lapis/application.lua:73: in function &#039;add_params&#039; /opt/openresty/luajit/share/lua/5.1/lapis/application.lua:394: in function &#039;handler&#039; /opt/openresty/luajit/share/lua/5.1/lapis/application.lua:416: in function &lt;/opt/openresty/luajit/share/lua/5.1/lapis/application.lua:412&gt; [C]: in function &#039;xpcall&#039; /opt/openresty/luajit/share/lua/5.1/lapis/application.lua:412: in function &#039;dispatch&#039; /opt/openresty/luajit/share/lua/5.1/lapis/nginx.lua:181: in function &#039;serve&#039; access_by_lua(nginx.conf:232):1: in function &lt;access_by_lua(nginx.conf:232):1&gt;</pre>
      </div>
      <div class="footer">lapis 1.0.4</div>
   </body>
</html>

关于r - 部署使用 fileInput 上传数据的 Shiny 应用程序时出错，我们在Stack Overflow上找到一个类似的问题： https://stackoverflow.com/questions/49825288/

26 4 0
文章推荐： linq - 如何在基于两个表的 linq2db 模板中使用 LINQ 删除多行？
文章推荐： google-drive-api - Google Drive V2 Java API - 将文件上传到特定文件夹
文章推荐： omnet++ - 在 omnet++ 的路径中找不到 g++ 和 gcc
文章推荐： python - Pandas 不匹配的 conda 版本
行者123
个人简介

我是一名优秀的程序员,十分优秀！

滴滴打车优惠券免费领取
滴滴打车优惠券
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com