add options(stringsAsFactors = FALSE) as comment - if needed
This commit is contained in:
parent
7536473c5d
commit
61a2c01be4
@ -3,9 +3,13 @@
|
|||||||
# This script is automatically executed on startup
|
# This script is automatically executed on startup
|
||||||
# ==============================================================================
|
# ==============================================================================
|
||||||
|
|
||||||
|
# DO NOT uncomment, unless you know exactly why, or have been instructed to
|
||||||
|
# do so:
|
||||||
|
# options(stringsAsFactors = FALSE)
|
||||||
|
|
||||||
init <- function() {
|
init <- function() {
|
||||||
|
|
||||||
# Create a local copy of myScript.R if required, and not been done yet.
|
# Create a local copy of myScript.R if not done yet.
|
||||||
if (! file.exists("myScript.R") && file.exists(".tmp.R")) {
|
if (! file.exists("myScript.R") && file.exists(".tmp.R")) {
|
||||||
file.copy(".tmp.R", "myScript.R")
|
file.copy(".tmp.R", "myScript.R")
|
||||||
cat("A new file \"myScript.R\" was created. You can use it for\n")
|
cat("A new file \"myScript.R\" was created. You can use it for\n")
|
||||||
@ -13,7 +17,7 @@ init <- function() {
|
|||||||
}
|
}
|
||||||
|
|
||||||
cat("\n\n")
|
cat("\n\n")
|
||||||
cat("Please open the file \".myProfile.r\" (click on the file-name in the\n")
|
cat("Please open the file \".myProfile.R\" (click on the file-name in the\n")
|
||||||
cat("\"files\" pane), edit it, and save it into the \"myScripts\" folder.\n\n")
|
cat("\"files\" pane), edit it, and save it into the \"myScripts\" folder.\n\n")
|
||||||
|
|
||||||
file.edit("ABC-units.R")
|
file.edit("ABC-units.R")
|
||||||
|
Loading…
Reference in New Issue
Block a user