0

学年別、教科別の問題と解答をまとめたファイルがあります。質問にパスを挿入する必要があります。パスは、固定の URL、件名、成績、および画像名 (これは質問にあります) で構成されます。パスを構築することはできましたが、sub を使用して古い値を新しい値に置き換える方法がわかりません。これが私がこれまでに持っているものです：

 x<-read.csv( 'E:/My Documents/RED-985_second_try_2013022802.csv' , header =
 TRUE, sep = ",", fill = TRUE , quote="\"", na.strings="NA")

 ## Here we determine which rows contain a line that begins with 'img src',
 since those are the ones we want.
 target.rows <- grep(x[,3], pattern = "img src=.*\\.gif")
 new.string <- ""
 grade.string<-""
 subject.string<-""

 #Will need to look through each column by changing the value in the
 target.row command so that I bet all images

 for (i in 1: length(target.rows))
 {
    subject<-x[target.rows[i],12]
    grade<-x[target.rows[i],2]
    string.to.check <- x[target.rows[i],3]
    first.quote.pos <- gregexpr(pattern='"', string.to.check)[[1]][1] + 1
    second.quote.pos <- gregexpr(pattern='"', string.to.check)[[1]][2] - 1
    new.string[i] <- substring(string.to.check,first.quote.pos,second.quote.pos)                                                        

    if (nchar(grade) == 1)
    {
            grade<-paste(0,grade,sep="")
    }

    if (subject == 1)
    {
            subject<-"MA"
    }
    else
    {
        subject<-"RE"
    }

    grade.string[i] <-grade

    subject.string[i]<-subject

    url.string2<-sub(, paste("http://ABC.com/_practice/",
    subject,"-",grade,"/",new.string[i], sep = ""), x[[i],3])
    gsub("img src=.*\\.gif", "url.string2", x)


     }
     warnings(url.strings <- paste("http://ABC.com/_practice/",
     subject.string,"-",grade.string,"/",new.string, sep = ""))

次のエラー メッセージが表示されます。

Running E:\My Documents\Revolution\Project_One\Project_One\GSUB_Try.R ...
E:\My Documents\Revolution\Project_One\Project_One\GSUB_Try.R(38): Error:
unexpected ','

私は何を間違っていますか、またはどのように見るべきですか? 事前にどうもありがとうございました。

4

1 に答える 1

1

最後に、これがあります：

x[[i],3]

そのコンマは予想外です。の以前の使用方法を見ると、次のxようにするとよいようです。

x[target.rows[i],3]
于 2013-03-10T22:35:45.603 に答える