Gibt es eine Möglichkeit, csv-Daten in R einzufügen, anstatt aus der Datei zu lesen?

Question

Ich versuche gerade, eine shinyapp auf shinyapp.io zu veröffentlichen, aber ich habe Probleme beim Konfigurieren meines Rdrop2 Tokens, um meine Datendatei damit hochzuladen. Es ist in CSV-Form und ich benutze app.R. Da ich den Token hier nicht hochladen kann, aus Angst, meine Dropbox online verfügbar zu haben, werde ich mein Bestes geben.

Die Funktion, die ich mit rdrop2 verwende ist die folgende:

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(... 

Wenn ich die glänzende App auf RStudio führen Sie es voll funktionsfähig ist, aber wenn ich die App bereitstellen es gibt mir eine von zwei Fehler.

ERROR: oauth_listener() needs an interactive environment. 

oder

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

weder Fehler tritt auf, wenn ich gerade bin es in den Viewer RStudio drucken.

Während ich dieses Problem beheben Problem gibt es eine Möglichkeit, die Daten einfach durch Kopieren der CSV-Datei Texteditor Version direkt in r mit etwas gesetzt wie

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 = ",") 

Ich sehe nicht wirklich keine andere Lösung, weil glänzend Meine Daten werden sowieso nicht von lokalen Dateien gelesen.

Answer 1

können Sie das text= Argument read.table verwenden (und damit 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") 

Answer 2

Sicher. Verwenden Sie so etwas.

Lines <- " 
header1, header2 
val1, 12 
val2, 23 
" 
con <- textConnection(lines) 
data <- read.csv(con) 
close(con) 

können Sie vereinfachen und haben die mehrzeilige Ausdruck um read.csv(textConnection("...here...")) auch.

Sie können auch aus der Zwischenablage einfügen, aber das neigt dazu, Betriebssystem spezifisch und weniger portabel zu bekommen.