OpasnetUtils/Opasnet.data: Difference between revisions
Jump to navigation
Jump to search
mNo edit summary |
mNo edit summary |
||
Line 18: | Line 18: | ||
label="Initiate functions" | label="Initiate functions" | ||
graphics="1" | graphics="1" | ||
showcode="1" | |||
> | > | ||
# OPASNET.DATA ##################################### | # OPASNET.DATA ##################################### |
Revision as of 10:50, 15 June 2012
Moderator:Nobody (see all) Click here to sign up. |
This page is a stub. You may improve it into a full page. |
Upload data
|
Description
opasnet.data downloads a file from Finnish Opasnet wiki, English Opasnet wiki, or Opasnet File.
Parameters
- filename is the URL without the first part (see below), wiki is "opasnet_en", "opasnet_fi", or "M-files".
- If table is TRUE then a table file for read.table function is assumed; all other parameters are for this read.table function.
Parameters
Code
# OPASNET.DATA ##################################### ## opasnet.data downloads a file from Finnish Opasnet wiki, English Opasnet wiki, or Opasnet File. ## Parameters: filename is the URL without the first part (see below), wiki is "opasnet_en", "opasnet_fi", or "M-files". ## If table is TRUE then a table file for read.table function is assumed; all other parameters are for this read.table function. opasnet.data <- function(filename, wiki = "opasnet_en", table = FALSE, ...) { if (wiki == "opasnet_en") { file <- paste("http://en.opasnet.org/en-opwiki/images/", filename, sep = "") } if (wiki == "opasnet_fi") { file <- paste("http://fi.opasnet.org/fi_wiki/images/", filename, sep = "") } if (wiki == "M-files") { file <- paste("http://http://fi.opasnet.org/fi_wiki/extensions/mfiles/", filename, sep = "") } #if(table == TRUE) { #file <- re#ad.table(file, header = FALSE, sep = "", quote = "\"'", # dec = ".", row.names, col.names, # as.is = !stringsAsFactors, # na.strings = "NA", colClasses = NA, nrows = -1, # skip = 0, check.names = TRUE, fill = !blank.lines.skip, # strip.white = FALSE, blank.lines.skip = TRUE, # comment.char = "#", # allowEscapes = FALSE, flush = FALSE, # stringsAsFactors = default.stringsAsFactors(), # fileEncoding = "", encoding = "unknown") #return(file) #} #else {return(ge#tURL(file))} } |