Beagleboard Black无法从MicroSD启动(Beagleboard Black doesn't boot from MicroSD)

 我建议您尝试以下操作，而不是使用可能会让您感到困惑的for循环 
 
# Create a data frame 
DOCS <- c(1:5)
TEXT <- c("tanaman jagung seumur jagung " , 
          "tanaman jagung kacang ketimun rusak dimakan kelinci" , 
          "ladang diserbu kelinci tanaman jagung kacang ketimun rusak dimakan" , 
          "ladang diserbu kelinci tanaman jagung kacang ketimun rusak dimakan" , 
          "ladang diserbu kelinci tanaman jagung kacang ketimun rusak ")

df <- data.frame(DOCS , TEXT , Test)

# Convert to matrix 
M <- as.matrix(df)

# Create a function that will write every single file
write_file <- function(file){
  my_title <- format("docs")  
  file_name <- file.path(paste0( my_title , "_" , file[1] , ".txt"))
  file_content <- file[2]
  write.table(file_content , file = file_name , append = F , row.names = F 
  , col.names = F , quote = F)

}

# Use the apply function to pass each row in matrix to the 
# function that creates every single file

apply(M , 1 , write_file)

I suggest you try the following also instead of using for loops that may confuse you
 
# Create a data frame 
DOCS <- c(1:5)
TEXT <- c("tanaman jagung seumur jagung " , 
          "tanaman jagung kacang ketimun rusak dimakan kelinci" , 
          "ladang diserbu kelinci tanaman jagung kacang ketimun rusak dimakan" , 
          "ladang diserbu kelinci tanaman jagung kacang ketimun rusak dimakan" , 
          "ladang diserbu kelinci tanaman jagung kacang ketimun rusak ")

df <- data.frame(DOCS , TEXT , Test)

# Convert to matrix 
M <- as.matrix(df)

# Create a function that will write every single file
write_file <- function(file){
  my_title <- format("docs")  
  file_name <- file.path(paste0( my_title , "_" , file[1] , ".txt"))
  file_content <- file[2]
  write.table(file_content , file = file_name , append = F , row.names = F 
  , col.names = F , quote = F)

}

# Use the apply function to pass each row in matrix to the 
# function that creates every single file

apply(M , 1 , write_file)