从gWidgets中使用gfilebrowse读取csv

我正在尝试使用gWidgets R库构建一个GUI来下载卫星图像。目的是从逗号分隔值文件中读取URL。图形用户界面看起来不错，但它没有达到我期望的效果。我做错了什么，非常感谢任何帮助。从gWidgets中使用gfilebrowse读取csv

这里是样本数据：

Online.Access.URLs <- c("http://e4ftl01.cr.usgs.gov//MODIS_Composites/MOLT/MOD09A1.005/2000.02.18/MOD09A1.A2000049.h09v06.005.2006268183648.hdf", 
          "http://e4ftl01.cr.usgs.gov//MODIS_Composites/MOLT/MOD09A1.005/2000.02.26/MOD09A1.A2000057.h09v06.005.2006270065224.hdf", 
          "http://e4ftl01.cr.usgs.gov//MODIS_Composites/MOLT/MOD09A1.005/2000.03.05/MOD09A1.A2000065.h09v06.005.2006269234536.hdf") 



Producer.Granule.ID <- c("MOD09A1.A2000049.h09v06.005.2006268183648.hdf", 
           "MOD09A1.A2000057.h09v06.005.2006270065224.hdf", 
           "MOD09A1.A2000065.h09v06.005.2006269234536.hdf")

df <- data.frame(Producer.Granule.ID,Online.Access.URLs)

write.csv(df,"C:\\GUI_test\\h09v06v3.csv",row.names=FALSE)

这是我尝试：

my.DownloadHDF <- function(){ 

    library(gWidgets) 
    library(gWidgetstcltk) 
    library(RCurl) 

    options(guiToolkit = "tcltk") 
    win <- gwindow("Download HDF with R!", visible = FALSE) 

    csv.frame  <- gframe("csv file ", container = win) 
    csv.label  <- glabel("csv with HDF's names ", container = csv.frame) 
    csv.file.name <- gfilebrowse("Select csv file", type="open",cont=csv.frame,action="read.csv") 

    dir.frame <- gframe("Output Directory ", container = win) 
    dir.label <- glabel("Where to save HDF's? ", container = dir.frame) 
    dir.out <- gfilebrowse("Select folder ",type = "selectdir", cont=dir.frame) 

    dlw.frame <- gframe("Download ", container = win) 
    dlw.label <- glabel(" ", container = dlw.frame) 

    btnDwn <- gbutton("Start Download", container = dlw.frame, 
        handler = function(csv.file.name,dir.out){ 

         df  <- read.csv(csv.file.name, header=TRUE,sep=",") 
         hdf.urls <- df$Online.Access.URLs      
         hdf.urls <- as.character(hdf.urls) 
         hdf.names <- df$Producer.Granule.ID     
         hdf.names <- as.character(hdf.names) 

         for (i in 1:length(hdf.names)){ 
         URL  <- hdf.urls [i]  
         file  <- hdf.names[i]  
         download.file(URL,paste(dir.out,file,sep=""),mode="wb") 
         cat(paste("Composite number ",i,"successfully downloaded!"),sep="\n") 
         cat("\n\n\n\n\n\n\n\n") 
         }}) 
    visible(win) <- TRUE 
} 
my.DownloadHDF()

我使用的R-3.2.2 RStudio 0.98。 1103。

来源

2016-04-15 Shepherd

你有没有想过使用光泽？它看起来比gWidgets更简单。 – YCR

你好YCR，谢谢你的回答。我没有用R创建图形用户界面的经验。我快速浏览了闪亮的和gWdigets，并且我发现后者更直观。我创建的图形用户界面直到某个时间点都完成了工作，问题是我不知道如何让函数读取csv文件。任何想法？ – Shepherd

gWidgets2tcltk和Shiny存在问题。也许现在已经修好了。如果确实有效，那么read.csv就是你的朋友。它可以在一个处理程序中调用：'a = gfilebrowse（cont = w，handler = function（h，...）x << - read.csv（svalue（h $ obj）））'这将分配给x值读入。在那里应该有一些验证，但你可以添加。但是，如果您从预先填充的url列表中进行选择，您可能还需要'gcombobox'。 – jverzani

以下是改进后的脚本。现在它完全符合我的期望。我希望有人认为它有用：

# load functions #### 
# download function 
f.d <- function(hdf.urls,hdf.names,out.dir){ 
    for(i in 1:length(hdf.urls)){ 
    URL  <- hdf.urls [i]  
    file  <- hdf.names [i] 
    download.file(URL,paste(out.dir,"/",file,sep=""),mode="wb") 
    }} 

# read csv function 
f.csv <- function(x){ 
    df1 <<- read.csv(x,header=TRUE,sep=",") 
    hdf.urls <<- df1$Online.Access.URLs 
    hdf.urls <<- as.character(hdf.urls) 
    hdf.names <<- df1$Producer.Granule.ID 
    hdf.names <<- as.character(hdf.names) 
} 
# load functions #### 

# my.DownloadHDFv2 this one works fine #### 
my.DownloadHDF <- function(){ 
    options(guiToolkit = "tcltk") 

    win   <- gwindow("Download HDF with R!", visible = FALSE) 
    csv.frame <- gframe("csv with HDFs names ", container = win) 

    a <- gfilebrowse("Upload csv file",cont=csv.frame, 
        handler=function(h,...){ 
        f.csv(svalue(a))     
    }) 

    path.frame <- gframe("Output Directory ", container = win) 
    brow   <- gfilebrowse(text = "Select folder...", type = "selectdir",container=path.frame, 
           handler=function(h,...){ 
           out.dir  <<- svalue(brow) 
           }) 

    b <- gbutton(text="Start Download",container = win, 
         handler = function(h,...){ 
          f.d(hdf.urls,hdf.names,out.dir=out.dir)     
         }) 
    visible(win)<-TRUE 
} 
my.DownloadHDF() 
# my.DownloadHDFv2 this one works fine ####

来源

2016-04-18 10:16:36 Shepherd

从gWidgets中使用gfilebrowse读取csv

回答

相关问题