दिलचस्प पोस्ट
ई -6 में वस्तु से कुछ गुण लेने के लिए एक-लाइनर एक्सएमएल से एक DialogPreference बनाने एएसपी.नेट एमवीसी विशेषता के साथ काम करने के लिए ELMAH कैसे प्राप्त करें? मैं किसी की उम्र C # में कैसे गणना करूं? डेविस के साथ खाता और उपयोगकर्ता तालिकाओं दोनों का उपयोग करें स्विफ्ट में NSObject उपवर्ग: हैश बनाम हैश वैल्यू, है एक्वाल बनाम == एक फीचर्ड जीजीप्लोट बार्कर्ट में वाई लैब का प्रतिशत? कॉलम के नाम लाने के लिए ओरेकल क्वेरी HTML में यूनिकोड प्रतीकों को प्रदर्शित करना हम कैसे जांच सकते हैं कि कोई फ़ाइल मौजूद है या Win32 प्रोग्राम का उपयोग नहीं कर रहा है? एपीआई कुंजी क्या है? प्रदर्शन समवर्ती हैशमैप बनाम हैशमैप एक numpy array पर देखें? प्रतिनिधियों और घटनाओं के बीच अंतर क्या हैं? आईओएस अद्वितीय उपयोगकर्ता पहचानकर्ता

विशेषज्ञ आर उपयोगकर्ता, आपका क्या है .प्रोफाइल?

मैं हमेशा भाषा के बारे में उपयोगी और शिक्षाप्रवाह दोनों अन्य लोगों की स्टार्टअप प्रोफ़ाइल फाइलों को मिला है इसके अलावा, जब मेरे पास बाश और विम के लिए कुछ अनुकूलन हैं, मेरे पास आर के लिए कुछ नहीं है

उदाहरण के लिए, एक बात जिसे मैं हमेशा चाहता था खिड़की के टर्मिनल में इनपुट और आउटपुट पाठ के लिए अलग रंग है, और शायद सिंटैक्स हाइलाइटिंग भी।

Solutions Collecting From Web of "विशेषज्ञ आर उपयोगकर्ता, आपका क्या है .प्रोफाइल?"

यह रहा मेरा। यह रंग भरने में आपकी मदद नहीं करेगा लेकिन मुझे ईएसएस और एएमएसीएस से मिलता है …

 options("width"=160) # wide display with multiple monitors options("digits.secs"=3) # show sub-second time stamps r <- getOption("repos") # hard code the US repo for CRAN r["CRAN"] <- "http://cran.us.r-project.org" options(repos = r) rm(r) ## put something this is your .Rprofile to customize the defaults setHook(packageEvent("grDevices", "onLoad"), function(...) grDevices::X11.options(width=8, height=8, xpos=0, pointsize=10, #type="nbcairo")) # Cairo device #type="cairo")) # other Cairo dev type="xlib")) # old default ## from the AER book by Zeileis and Kleiber options(prompt="R> ", digits=4, show.signif.stars=FALSE) options("pdfviewer"="okular") # on Linux, use okular as the pdf viewer 

मुझे पूरा शब्द 'सिर', 'सारांश', 'नाम' हर बार टाइप करने से नफरत है, इसलिए मैं उपनामों का उपयोग करता हूं।

आप उपनामों को अपने में डाल सकते हैं .प्रोफाइल फ़ाइल, लेकिन आपको फ़ंक्शन के पूर्ण पथ का उपयोग करना होगा (उदाहरण के लिए यूटिलस :: हेड) अन्यथा यह काम नहीं करेगा।

 # aliases s <- base::summary h <- utils::head n <- base::names 

संपादित करें: अपने प्रश्न का उत्तर देने के लिए, आप टर्मिनल में अलग-अलग रंग रखने के लिए रंगीन पैकेज का उपयोग कर सकते हैं। ठंडा! 🙂

 options(stringsAsFactors=FALSE) 

यद्यपि मेरे पास वास्तव में मेरे पास ऐसा नहीं है .प्रोफाइल, क्योंकि यह मेरे coauthors 'कोड को तोड़ सकता है, मैं चाहता हूं कि यह डिफ़ॉल्ट था क्यूं कर?

1) चरित्र वैक्टर कम स्मृति का उपयोग करते हैं (लेकिन केवल मुश्किल से);

2) इससे भी महत्वपूर्ण बात, हम जैसे समस्याओं से बचेंगे:

 > x <- factor(c("a","b","c")) > x [1] abc Levels: abc > x <- c(x, "d") > x [1] "1" "2" "3" "d" 

तथा

 > x <- factor(c("a","b","c")) > x[1:2] <- c("c", "d") Warning message: In `[<-.factor`(`*tmp*`, 1:2, value = c("c", "d")) : invalid factor level, NAs generated 

जब आपको उनकी ज़रूरत होती है तो कारक बहुत बढ़िया होते हैं (उदाहरण के लिए ग्राफ़ में आदेश लागू करना), लेकिन ज्यादातर समय में एक उपद्रव

ये मेरा। मैं हमेशा मुख्य क्रैन रिपॉजिटरी का उपयोग करता हूं, और इसमें कोड को स्रोत विकास के आसान कोड बनाने के लिए कोड दिया है।

 .First <- function() { library(graphics) options("repos" = c(CRAN = "http://cran.r-project.org/")) options("device" = "quartz") } packages <- list( "describedisplay" = "~/ggobi/describedisplay", "linval" = "~/ggobi/linval", "ggplot2" = "~/documents/ggplot/ggplot", "qtpaint" = "~/documents/cranvas/qtpaint", "tourr" = "~/documents/tour/tourr", "tourrgui" = "~/documents/tour/tourr-gui", "prodplot" = "~/documents/categorical-grammar" ) l <- function(pkg) { pkg <- tolower(deparse(substitute(pkg))) if (is.null(packages[[pkg]])) { path <- file.path("~/documents", pkg, pkg) } else { path <- packages[pkg] } source(file.path(path, "load.r")) } test <- function(path) { path <- deparse(substitute(path)) source(file.path("~/documents", path, path, "test.r")) } 

मुझे अपने आर कमांड इतिहास को बचाने और हर बार जब मैं आर चलाता हूं,

शेल या .bashrc में:

 export R_HISTFILE=~/.Rhistory 

में .प्रोफाइल:

 .Last <- function() { if (!any(commandArgs()=='--no-readline') && interactive()){ require(utils) try(savehistory(Sys.getenv("R_HISTFILE"))) } } 

यहां दो फ़ंक्शन हैं जो मुझे खिड़कियों के साथ काम करने के लिए मिलते हैं।

सबसे पहले \ s को / कनवर्ट करता है

 .repath <- function() { cat('Paste windows file path and hit RETURN twice') x <- scan(what = "") xa <- gsub('\\\\', '/', x) writeClipboard(paste(xa, collapse=" ")) cat('Here\'s your de-windowsified path. (It\'s also on the clipboard.)\n', xa, '\n') } 

दूसरा एक नया एक्सप्लोरर विंडो में कार्यशील निर्देशिका को खोलता है।

 getw <- function() { suppressWarnings(shell(paste("explorer", gsub('/', '\\\\', getwd())))) } 

मुझे पूर्ण टर्मिनल चौड़ाई का उपयोग करने के लिए यह अधिक गतिशील चाल मिल गया है, जो कि COLUMNS परिवेश चर (लिनक्स पर) से पढ़ने की कोशिश करता है:

 tryCatch( {options( width = as.integer(Sys.getenv("COLUMNS")))}, error = function(err) { write("Can't get your terminal width. Put ``export COLUMNS'' in your \ .bashrc. Or something. Setting width to 120 chars", stderr()); options(width=120)} ) 

इस तरह से आर पूरी चौड़ाई का उपयोग करेगा जैसे आप अपने टर्मिनल विंडो का आकार बदल दें।

मेरे व्यक्तिगत कार्यों और भारित पुस्तकालयों में से अधिकांश Rfunctions.r स्क्रिप्ट में हैं

 source("c:\\data\\rprojects\\functions\\Rfunctions.r") .First <- function(){ cat("\n Rrrr! The statistics program for Pirates !\n\n") } .Last <- function(){ cat("\n Rrrr! Avast Ye, YO HO!\n\n") } #=============================================================== # Tinn-R: necessary packages #=============================================================== library(utils) necessary = c('svIDE', 'svIO', 'svSocket', 'R2HTML') if(!all(necessary %in% installed.packages()[, 'Package'])) install.packages(c('SciViews', 'R2HTML'), dep = T) options(IDE = 'C:/Tinn-R/bin/Tinn-R.exe') options(use.DDE = T) library(svIDE) library(svIO) library(svSocket) library(R2HTML) guiDDEInstall() shell(paste("mkdir C:\\data\\rplots\\plottemp", gsub('-','',Sys.Date()), sep="")) pldir <- paste("C:\\data\\rplots\\plottemp", gsub('-','',Sys.Date()), sep="") plot.str <-c('savePlot(paste(pldir,script,"\\BeachSurveyFreq.pdf",sep=""),type="pdf")') 

मैक और लिनक्स के लिए डिज़ाइन किया गया मेरा ~ / .प्रोफाइल है ।

ये त्रुटियों को देखना आसान बनाता है

 options(showWarnCalls=T, showErrorCalls=T) 

मैं क्रान मेनू पसंद से नफरत करता हूं, इसलिए एक अच्छा एक पर सेट करें

 options(repos=c("http://cran.cnr.Berkeley.edu","http://cran.stat.ucla.edu")) 

अधिक इतिहास!

 Sys.setenv(R_HISTSIZE='100000') 

टर्मिनल से मैक ओएसएक्स पर चलने के लिए निम्नलिखित है (जो मैं आर.ए.पी. को पसंद करता हूं क्योंकि यह अधिक स्थिर है, और आप अपने काम को डायरेक्टरी के अनुसार व्यवस्थित कर सकते हैं, यह भी सुनिश्चित करें कि ~ / .inputrc प्राप्त करें )। डिफ़ॉल्ट रूप से, आपको एक X11 डिस्प्ले मिलता है, जो अच्छा नहीं दिखता; इसके बजाय जीयूआई के समान एक क्वार्ट्ज डिस्प्ले देता है if बयान मामले को पकड़ने के लिए माना जाता है जब आप मैक पर टर्मिनल से आर चला रहे हैं।

 f = pipe("uname") if (.Platform$GUI == "X11" && readLines(f)=="Darwin") { # http://www.rforge.net/CarbonEL/ library("grDevices") library("CarbonEL") options(device='quartz') Sys.unsetenv("DISPLAY") } close(f); rm(f) 

और कुछ पुस्तकालयों को पहले से लोड करें,

 library(plyr) library(stringr) library(RColorBrewer) if (file.exists("~/util.r")) { source("~/util.r") } 

जहां util.r सामान का एक यादृच्छिक थैला है, जिसका उपयोग मैं फ्लक्स के तहत करता हूं।

इसके अलावा, चूंकि अन्य लोग कंसोल चौड़ाई का उल्लेख कर रहे थे, यहां बताया गया है कि मैं यह कैसे करता हूं।

 if ( (numcol <-Sys.getenv("COLUMNS")) != "") { numcol = as.integer(numcol) options(width= numcol - 1) } else if (system("stty -a &>/dev/null") == 0) { # mac specific? probably bad in the R GUI too. numcol = as.integer(sub(".* ([0-9]+) column.*", "\\1", system("stty -a", intern=T)[1])) if (numcol > 0) options(width= numcol - 1 ) } rm(numcol) 

यह वास्तव में नहीं है .Rprofile क्योंकि आपको हर बार टर्मिनल विंडो का आकार बदलना पड़ता है मेरे पास यह उपयोग में है। util.r तो मैं इसे आवश्यक रूप से केवल स्रोत util.r हूं।

यहां मेरा है:

 .First <- function () { options(device="quartz") } .Last <- function () { if (!any(commandArgs() == '--no-readline') && interactive()) { require(utils) try(savehistory(Sys.getenv("R_HISTFILE"))) } } # Slightly more flexible than as.Date # my.as.Date("2009-01-01") == my.as.Date(2009, 1, 1) == as.Date("2009-01-01") my.as.Date <- function (a, b=NULL, c=NULL, ...) { if (class(a) != "character") return (as.Date(sprintf("%d-%02d-%02d", a, b, c))) else return (as.Date(a)) } # Some useful aliases cd <- setwd pwd <- getwd lss <- dir asd <- my.as.Date # examples: asd("2009-01-01") == asd(2009, 1, 1) == as.Date("2009-01-01") last <- function (x, n=1, ...) tail(x, n=n, ...) # Set proxy for all web requests Sys.setenv(http_proxy="http://192.168.0.200:80/") # Search RPATH for file <fn>. If found, return full path to it search.path <- function(fn, paths = strsplit(chartr("\\", "/", Sys.getenv("RPATH")), split = switch(.Platform$OS.type, windows = ";", ":"))[[1]]) { for(d in paths) if (file.exists(f <- file.path(d, fn))) return(f) return(NULL) } # If loading in an environment that doesn't respect my RPATH environment # variable, set it here if (Sys.getenv("RPATH") == "") { Sys.setenv(RPATH=file.path(path.expand("~"), "Library", "R", "source")) } # Load commonly used functions if (interactive()) source(search.path("afazio.r")) # If no R_HISTFILE environment variable, set default if (Sys.getenv("R_HISTFILE") == "") { Sys.setenv(R_HISTFILE=file.path("~", ".Rhistory")) } # Override q() to not save by default. # Same as saying q("no") q <- function (save="no", ...) { quit(save=save, ...) } # ---------- My Environments ---------- # # Rather than starting R from within different directories, I prefer to # switch my "environment" easily with these functions. An "environment" is # simply a directory that contains analysis of a particular topic. # Example usage: # > load.env("markets") # Load US equity markets analysis environment # > # ... edit some .r files in my environment # > reload() # Re-source .r/.R files in my environment # # On next startup of R, I will automatically be placed into the last # environment I entered # My current environment .curr.env = NULL # File contains name of the last environment I entered .last.env.file = file.path(path.expand("~"), ".Rlastenv") # Parent directory where all of my "environment"s are contained .parent.env.dir = file.path(path.expand("~"), "Analysis") # Create parent directory if it doesn't already exist if (!file.exists(.parent.env.dir)) dir.create(.parent.env.dir) load.env <- function (string, save=TRUE) { # Load all .r/.R files in <.parent.env.dir>/<string>/ cd(file.path(.parent.env.dir, string)) for (file in lss()) { if (substr(file, nchar(file)-1, nchar(file)+1) %in% c(".r", ".R")) source(file) } .curr.env <<- string # Save current environment name to file if (save == TRUE) writeLines(.curr.env, .last.env.file) # Let user know environment switch was successful print (paste(" -- in ", string, " environment -- ")) } # "reload" current environment. reload <- resource <- function () { if (!is.null(.curr.env)) load.env(.curr.env, save=FALSE) else print (" -- not in environment -- ") } # On startup, go straight to the environment I was last working in if (interactive() && file.exists(.last.env.file)) { load.env(readLines(.last.env.file)) } 
 sink(file = 'R.log', split=T) options(scipen=5) .ls.objects <- function (pos = 1, pattern, order.by = "Size", decreasing=TRUE, head = TRUE, n = 10) { # based on postings by Petr Pikal and David Hinds to the r-help list in 2004 # modified by: Dirk Eddelbuettel (http://stackoverflow.com/questions/1358003/tricks-to- manage-the-available-memory-in-an-r-session) # I then gave it a few tweaks (show size as megabytes and use defaults that I like) # a data frame of the objects and their associated storage needs. napply <- function(names, fn) sapply(names, function(x) fn(get(x, pos = pos))) names <- ls(pos = pos, pattern = pattern) obj.class <- napply(names, function(x) as.character(class(x))[1]) obj.mode <- napply(names, mode) obj.type <- ifelse(is.na(obj.class), obj.mode, obj.class) obj.size <- napply(names, object.size) / 10^6 # megabytes obj.dim <- t(napply(names, function(x) as.numeric(dim(x))[1:2])) vec <- is.na(obj.dim)[, 1] & (obj.type != "function") obj.dim[vec, 1] <- napply(names, length)[vec] out <- data.frame(obj.type, obj.size, obj.dim) names(out) <- c("Type", "Size", "Rows", "Columns") out <- out[order(out[[order.by]], decreasing=decreasing), ] if (head) out <- head(out, n) out } 

डेटा 'फ्रेम' को 'सिर' जैसे कुछ दिखाएं, केवल 'सिर' टाइप किए बिना

 print.data.frame <- function(df) { if (nrow(df) > 10) { base::print.data.frame(head(df, 5)) cat("----\n") base::print.data.frame(tail(df, 5)) } else { base::print.data.frame(df) } } 

( कैसे बनाने के लिए 'सिर' उत्पादन के लिए स्वचालित रूप से लागू किया जा सकता है? )

मुझे अक्सर डिबग कॉल की एक श्रृंखला होती है जिनसे मुझे कॉल करने की आवश्यकता होती है और उन्हें बहुत ही थकाऊ हो सकता है। ऐसे समुदाय की सहायता से, मैं निम्नलिखित समाधान के लिए गया था और इसे मेरे में डाला .Rprofile.site# BROWSER मेरे ग्रहण कार्य के लिए है, इसलिए मेरे पास कार्य व्यू विंडो में ब्राउज़र कॉल का एक अवलोकन है।

 # turn debugging on or off # place "browser(expr = isTRUE(getOption("debug"))) # BROWSER" in your function # and turn debugging on or off by bugon() or bugoff() bugon <- function() options("debug" = TRUE) bugoff <- function() options("debug" = FALSE) #pun intended 

मेरा भी फैंसी नहीं है:

 # So the mac gui can find latex Sys.setenv("PATH" = paste(Sys.getenv("PATH"),"/usr/texbin",sep=":")) #Use last(x) instead of x[length(x)], works on matrices too last <- function(x) { tail(x, n = 1) } #For tikzDevice caching options( tikzMetricsDictionary='/Users/cameron/.tikzMetricsDictionary' ) 
 setwd("C://path//to//my//prefered//working//directory") library("ggplot2") library("RMySQL") library("foreign") answer <- readline("What database would you like to connect to? ") con <- dbConnect(MySQL(),user="root",password="mypass", dbname=answer) 

मैं MySQL डेटाबेस से बहुत काम करता हूं, इसलिए तुरंत कनेक्ट करना एक आकस्मिक धन है मैं केवल इच्छा करता हूं कि avaialble डेटाबेस को सूचीबद्ध करने का एक तरीका था इसलिए मुझे सभी अलग-अलग नामों को याद रखना पड़े।

स्टीफन टर्नर की पोस्ट .प्रोफाइल में कई उपयोगी उपनाम और स्टार्टर फ़ंक्शन हैं।

मैं खुद को अपने एचटी और एच एच का उपयोग अक्सर मिल रहा है

 #ht==headtail, ie, show the first and last 10 items of an object ht <- function(d) rbind(head(d,10),tail(d,10)) # Show the first 5 rows and first 5 columns of a data frame or matrix hh <- function(d) d[1:5,1:5] 

मैं आरएसटीयूडीओ में "संकलन पीडीएफ" बटन के साथ काम करने के लिए कैशस्वेव (या पीजीएफएसवेव) प्राप्त करने के लिए निम्न का उपयोग करता हूं:

 library(cacheSweave) assignInNamespace("RweaveLatex", cacheSweave::cacheSweaveDriver, "utils") 

मेरा options(menu.graphics=FALSE) क्योंकि मैं आर में CRAN दर्पण चयन के लिए tcltk पॉपअप अक्षम / दबाना चाहता हूं I

ये मेरा। कुछ भी अभिनव नहीं है क्यों विशेष विकल्पों पर विचार:

  • मैं stringsAsFactors लिए एक डिफ़ॉल्ट सेट करने के साथ गया क्योंकि मुझे लगता है कि जब भी मैं सीएसवी को पढ़ता हूं, तो हर बार इसे एक बहस के रूप में पारित करने के लिए यह बहुत ही नाली पड़ता है। उसने कहा, यह कंप्यूटर पर मेरे सामान्य कंप्यूटर पर लिखे गए कोड का इस्तेमाल करते समय पहले ही मुझे कुछ मामूली परेशानी का कारण बना चुका है जो मेरे पास नहीं था .प्रोफाइल मैं इसे रख रहा हूं, हालांकि, मुसीबतों की वजह से परेशानियों के मुकाबले यह पीली हुई है क्योंकि इसे हर रोज इस्तेमाल करने के लिए प्रयोग नहीं किया जाता है।
  • यदि आप options(error=recover) से पहले utils पैकेज को लोड नहीं करते हैं, तो इसे interactive() ब्लॉक के अंदर रखा जाता है, जब इसे पुनर्प्राप्त नहीं किया जा सकता।
  • मैं अपने ड्रॉपबॉक्स सेटिंग के बजाय options(dropbox=...) लिए। file.path इस्तेमाल करता हूं क्योंकि मैं इसे हर समय file.path अंदर उपयोग करता file.path और यह बहुत टाइपिंग बचाता है। अग्रणी इसे ls() साथ प्रदर्शित होने से रोकता है

बिना और देरी के:

 if(interactive()) { options(stringsAsFactors=FALSE) options(max.print=50) options(repos="http://cran.mirrors.hoobly.com") } .db <- "~/Dropbox" # `=` <- function(...) stop("Assignment by = disabled, use <- instead") options(BingMapsKey="blahblahblah") # Used by taRifx.geo::geocode() .First <- function() { if(interactive()) { require(functional) require(taRifx) require(taRifx.geo) require(ggplot2) require(foreign) require(R.utils) require(stringr) require(reshape2) require(devtools) require(codetools) require(testthat) require(utils) options(error=recover) } } 

लेटेक्स में निर्यात तालिकाओं का उपयोग करने के लिए यहां थोड़ा स्निपेट है I यह मैंने लिखा कई रिपोर्टों के लिए सभी कॉलम नामों को गणित मोड में बदलता है। मेरे बाकी .प्रोफाइल सुंदर मानक है और अधिकतर ऊपर कवर किया गया है।

 # Puts $dollar signs in front and behind all column names col_{sub} -> $col_{sub}$ amscols<-function(x){ colnames(x) <- paste("$", colnames(x), "$", sep = "") x } 

मैंने अपने प्रोफ़ाइल में मेरी जाली रंग की थीम सेट की है। यहां दो अन्य बदलाव हैं जो मैं उपयोग करता हूं:

 # Display working directory in the titlebar # Note: This causes demo(graphics) to fail utils::setWindowTitle(base::getwd()) utils::assignInNamespace("setwd",function(dir) {.Internal(setwd(dir));setWindowTitle(base::getwd())},"base") # Don't print more than 1000 lines options(max.print=2000) 

मेरे पास एक पर्यावरण चर R_USER_WORKSPACE है जो मेरे पैकेज की शीर्ष डायरेक्टरी को इंगित करता है में .प्रोफाइल मैं एक फ़ंक्शन devlib को परिभाषित करता है जो कार्य निर्देशिका सेट करता है (ताकि डेटा () काम करता है) और सभी स्रोत .आर उपनिर्देशिका में फ़ाइलें। यह ऊपर हैडली के एल () समारोह के समान है।

 devlib <- function(pkg) { setwd(file.path(Sys.getenv("R_USER_WORKSPACE", "."), deparse(substitute(pkg)), "dev")) sapply(list.files("R", pattern=".r$", ignore.case=TRUE, full.names=TRUE), source) invisible(NULL) } .First <- function() { setwd(Sys.getenv("R_USER_WORKSPACE", ".")) options("repos" = c(CRAN = "http://mirrors.softliste.de/cran/", CRANextra="http://www.stats.ox.ac.uk/pub/RWin")) } .Last <- function() update.packages(ask="graphics") 

यहाँ मेरा है, कुछ उल्लेख किए गए विचारों सहित

दो चीजें जिन्हें आप देखना चाहते हैं:

  • .set.width () / w () टर्मिनल में से किसी एक को अपनी प्रिंट चौड़ाई अपडेट करें। दुर्भाग्य से मुझे इसे टर्मिनल आकार में स्वचालित रूप से करने का कोई तरीका नहीं मिला – आर दस्तावेज़ीकरण का उल्लेख है कि यह कुछ आर दुभाषियों द्वारा किया जाता है।
  • इतिहास हर बार एक टाइमस्टैम्प और कार्यशील निर्देशिका के साथ सहेजा जाता है

 .set.width <- function() { cols <- as.integer(Sys.getenv("COLUMNS")) if (is.na(cols) || cols > 10000 || cols < 10) options(width=100) options(width=cols) } .First <- function() { options(digits.secs=3) # show sub-second time stamps options(max.print=1000) # do not print more than 1000 lines options("report" = c(CRAN="http://cran.at.r-project.org")) options(prompt="R> ", digits=4, show.signif.stars=FALSE) } # aliases w <- .set.width .Last <- function() { if (!any(commandArgs()=='--no-readline') && interactive()){ timestamp(,prefix=paste("##------ [",getwd(),"] ",sep="")) try(savehistory("~/.Rhistory")) } } 

मुझे दो कार्यों को वास्तव में जरूरी मिला: सबसे पहले जब मैंने कई फ़ंक्शंस पर debug() सेट किया था और मैंने बग को हल किया है, तो मैं इन सभी कार्यों – एक-एक के बिना एक undebug() करना चाहता हूं। स्वीकार्य उत्तर के रूप में undebug_all() फ़ंक्शन जोड़ा गया सबसे अच्छा है

दूसरा, जब मैंने कई कार्यों को परिभाषित किया है और मैं एक विशिष्ट वैरिएबल नाम की तलाश कर रहा हूं, फ़ंक्शन के नामों सहित, ls() सभी परिणामों में इसे खोजने में मुश्किल है यहां पोस्ट किया गया lsnofun() फ़ंक्शन वास्तव में अच्छा है