gpx 파일을 보관 용 계정에서 Shiny로 읽기

Question

보관 용 계정의 데이터에 액세스하는 Shiny 앱이 있습니다. https://github.com/karthik/rdrop2/blob/master/README.md에있는 지침을 사용하여 인증 단계를 수행 한 후 rdrop2 패키지의 drop_read_csv 명령을 사용하여 문제없이 CSV 데이터를 읽을 수있었습니다. 예 : .

my_data<-drop_read_csv("ProjectFolder/DataSI.csv") 

나의 다음 문제는 그러나 나는 앱이 읽을 수 있도록하려면 드롭 박스에 업로드 GPX 트랙 많은 파일이있을 예정이다 나는 사용하여 시도했다 :

gpx.files<-drop_search('gpx', path="ProjectFolder/gpx_files") 
trk.tmp<-vector("list",dim(gpx.files)[1]) 
for(i in 1: dim(gpx.files)[1]){ 
    trk.tmp[[i]]<-readOGR(gpx.files$path[i], layer="tracks") 
} 

하지만 행운은 없습니다. readOGR 단계에서 내가 얻을 :

Error in ogrInfo(dsn = dsn, layer = layer, encoding = encoding, use_iconv = use_iconv, : 
    Cannot open data source 

희망 누군가가 도움이 될 수 있습니다.

Answer 1

내 문제는 내가 보관 용 계정 경로를 올바르게 지정하지 않았기 때문입니다. 나는 drop_read_csv 코드를 사용하고 drop_readOGR 버전을 만들었습니다 : 난 그냥 새로운 함수를 호출하는 루프 라인을 변경 한 것을 제외하고 내가 전에 무엇을하고 있었는지 사용할 수 있습니다 그래서 지금

drop_readOGR<-function(my.file, dest=tempdir()){ 
    localfile = paste0(dest, "/", basename(my.file)) 
    drop_get(my.file, local_file = localfile, overwrite = TRUE) 
    readOGR(localfile, layer="tracks") 
} 

합니다.

gpx.files<-drop_search('gpx', path="ProjectFolder/gpx_files") 
trk.tmp<-vector("list",dim(gpx.files)[1]) 
for(i in 1: dim(gpx.files)[1]){ 
    trk.tmp[[i]]<-drop_readOGR(gpx.files$path[i]) 
}