r - 有没有办法将 csv 数据粘贴到 R 而不是从文件中读取？

Question

我目前正在尝试将一个 Shinyapp 发布到 Shinyapp.io，但我在配置我的 rdrop2 token 以使用它上传我的数据文件时遇到问题。它是 csv 格式，我使用 app.R。由于担心我的 Dropbox 完全可以在线使用，我无法在此处上传 token ，因此我会尽力而为。

我与 rdrop2 一起使用的功能如下:

token <- drop_auth()
saveRDS(token, "droptoken.rds")
token <- readRDS("droptoken.rds")
drop_acc(dtoken = token)

statadata <- drop_read_csv("/shinyapp/alldata.csv")
g <- na.omit(statadata)
data <- reactive({
  g[1:input$scatterD3_nb,]
})

ui <-  fluidPage(...

当我在 RStudio 上运行 Shiny 的应用程序时，它功能齐全，但是当我部署该应用程序时，它给了我两个错误之一。

ERROR: oauth_listener() needs an interactive environment.

或者

Error in func(fname, ...) : app.R did not return a shiny.appobj object.

当我只是将其打印到 RStudio 查看器中时，不会发生任何错误。

虽然我解决了这个问题，但有没有一种方法可以通过将 csv 文件文本编辑器版本直接复制到 r 中来简单地创建数据集，例如

read.csv("country,nutsid,year,cyril_index_left,delta_cyril_left,manifesto,cyril_index_abs
,cyril_index,cyril_index_right,delta_cyril_right,Employment_15_64_,Employment_total,youth_employment,L_Employment_total,
L_youth_employment,growth, Austria,AT11,2002,-1017.925,-216.9429,-17.64,72.93657,1017.925,
0,-977.0339,1.1,0.9,0.5,-2.1,-8.9,4.7,Austria,AT11,2006,-923.9658,93.95892,
-4.308,104.4628,923.9658,0,0,0.8,0.4,-1.9,2.5,2.8,1.6", sep = ",")

我真的没有看到任何其他解决方案，因为无论如何， Shiny 都不会从本地文件中读取我的数据。

Answer 1

您可以使用 text=论据 read.table (因此 read.csv ):

x <- read.csv(text="country,nutsid,year,cyril_index_left,delta_cyril_left,manifesto,cyril_index_abs,cyril_index,cyril_index_right,delta_cyril_right,Employment_15_64_,Employment_total,youth_employment,L_Employment_total,L_youth_employment,growth
Austria,AT11,2002,-1017.925,-216.9429,-17.64,72.93657,1017.925,0,-977.0339,1.1,0.9,0.5,-2.1,-8.9,4.7
Austria,AT11,2006,-923.9658,93.95892,-4.308,104.4628,923.9658,0,0,0.8,0.4,-1.9,2.5,2.8,1.6")