在 R/Shiny 中获取本地文件数据

Question

根据https://github.com/jpowell96/readFilesWithFetch/blob/master/index.html 的想法，我正在尝试从“www”文件夹中的 .csv 文件中读取数据，但我只得到“正在读取文件”行并且未显示数据。我也尝试在 fetch (fetch(file:///C:/.../www/this_data.csv')) 中使用完整路径，但得到了相同的结果。

任何想法让它工作？ （目前在 Windows 中工作，但最终会将其移植到 shinyapps.io。）

非常感谢

  library(shiny)
  library(shinyjs)
  ui <- fluidPage(
    useShinyjs(),

      tags$div(
       tags$html("Reading file"),

       tags$script("
         fetch('./www/this_data.csv')
          .then(response => response.text()) 
          .then(csvString => {
         // Split the csv into rows
         const rows = csvString.split('\n');
         for (row of rows) {
           // Split the row into each of the comma separated values
           console.log(row.split(','));
         }
       });
       ")
    )
  )
  server <- function(input, output, session) {}
  shinyApp(ui, server)

这是 this_data.csv：

Date,Open,High,Low,Close
1/2/2007,50.03978,50.11778,49.95041,50.11778
1/3/2007,50.2305,50.42188,50.2305,50.39767
1/4/2007,50.42096,50.42096,50.26414,50.33236
1/5/2007,50.37347,50.37347,50.22103,50.33459
1/6/2007,50.24433,50.24433,50.11121,50.18112
1/9/2007,49.99489,49.99489,49.80454,49.91333
1/10/2007,49.91228,50.13053,49.91228,49.97246
1/11/2007,49.88529,50.2391,49.88529,50.2391

Answer 1

1. 你需要将你的应用文件保存到app.R，就是这个名字。
2. 在与应用文件相同的文件夹中，创建一个 www 文件夹并将您的 csv 添加到该 www 文件夹中。
3. 当你从js中引用它时，去掉www前缀。 www 中的每条路径都是相对路径。例如你有一个www/myfile.txt，它就是myfile.txt，或者如果你有另一个子文件夹www/sub1/file2.csv，它就是sub2/file2.csv。
4. 你需要使用HTML函数来包装和转义你的js代码，像>这样的符号在HTML中有特殊的含义。
5. 不需要shinyjs。

完整代码：

library(shiny)
ui <- fluidPage(
    tags$div(
        tags$html("Reading file"),
        tags$script(HTML("
         fetch('this_data.csv')
          .then(response => response.text())
          .then(csvString => {
         // Split the csv into rows
         const rows = csvString.split('\\n');
         for (row of rows) {
         // Split the row into each of the comma separated values
           console.log(row.split(','));
         }
       });
       "))
    )
)
server <- function(input, output, session) {}
shinyApp(ui, server)

如果你做了所有这些，你会看到：