Plot daily time spent on codereview.stackexchange.comView for Ultimate Tic-Tac-Toe boardType-safe Dictionary for various typesCalculate questions per day on CodeGolf.SE“How can I make this SEDE query better?” (bad title finder)Capitalize the first character of all words (even when following a '-')Is nesting grids a good idea?Telling fibonaccis to the userSelf-playing Baseball gameEuler's Totient Function in x86 assembly (MASM)Fast 32x32 bit multiply on ARM M0C++11 Any classSudoku solver in C++Reusable Unit Of Work Interface / FactoryIs the LINQ version faster than the foreach one?Simon, Mat's Mug, what's the (rating) difference?C++ API for interfacing with LuaStack implemented using linked list in x86_64 assemblyHow can I make my stack monad faster?Sudoku using 'exact cover' solverA header-only linear-time C++11 PEG parser generator supporting left-recursion and grammar ambiguityWebsockets client code and making it production-readyCustom session handler class - is it robust enough?Inverse transform samplingDefinitional Returns. Solved. MostlyOwn implementation of Lazy<T> objectClose to the metal C++ Palindrome ProgramFirst Scala FizzBuzz implementationCreate a C style char** from a C++ vector<string>HashSet and TreeSetIf she floats then she is not a witch like we thoughtCountdown Code: 'League of Legends'Monte Carlo pi calculationExporting information on a collection of books to ExcelGuessing a unique 4 random digits numberCardshifter game lobbyReverse a String in JavaIs it bad practice to increment more than one variable in a for loop declaration?Passing parameters by reference? Let me fix that for youAdding a course to one of 8 periodsAverage time to first answerAre there any open vulnerabilities in this mailer script?Reusing StringBuilder or creating a new one? [closed]Printing 1,000,000 numbers in 1 sec. in PythonObject Oriented Design of Card DeckPython review_generatorSimple method to detect int overflow“ONCE”, “UPON”, “A”, “TIME”RPG skeleton, Part 1 - The CharacterSimple card game to learn OOP

#1 楼

plotActivity <- function(
   activity  = 'codereview.stackexchange.com',
   api_key   = getOption('rescuetime_api_key'),
   from_date = NULL,
   to_date   = NULL) {

## This function plots time spent on a given URL
## using the rescue time API
##
## Arguments:
##    - activity:  the url you want to check for usage
##    - api_key:   user API key, you can get yours at
##                 https://www.rescuetime.com/anapi/manage
##    - from_date: a Date or string in "YYYY-MM-DD" format,
##                 defaults to January 1st of the same year as to_date
##    - to_date:   a Date or string in "YYYY-MM-DD" format,
##                 defaults to today
##    - verbose:   adds verbose, defaults to FALSE

   library("RCurl")
   library("ggplot2")

   # arguments parsing and default settings
   if (is.null(api_key)) stop("please set your rescue time API key...")

   if (is.null(to_date)) to_date <- Sys.Date()
   to_date <- as.Date(to_date)
   if (is.na(to_date)) stop("error parsing to_date...")

   if (is.null(from_date)) from_date <- format(to_date, "%Y-01-01")
   from_date <- as.Date(from_date)
   if (is.na(from_date)) stop("error parsing from_date...")

   # build the API request url
   # for more details see https://www.rescuetime.com/anapi/setup/documentation

   base_url  <- "https://www.rescuetime.com/anapi/data"
   arguments <- c(key = api_key,   # API key
                  format = 'csv',  # Output format
                  rb = from_date,  # Restrict Start Date
                  re = end_date,   # Restrict End Date
                  rk = 'activity', # Restrict Kind
                  pv = 'interval', # Perspective
                  rs = 'day',      # Resolution Time
                  rt = activity)   # Restrict Thingy (Restrict Kind of Type)

   arg_str <- paste(names(arguments), arguments, sep = '=', collapse = '&')
   api_url <- sprintf("%s?%s", base_url, arg_str)

   # read data
   csv_text_data <- textConnection(getURL(api_url))
   activity_data <- read.csv(csv_text_data, header = TRUE)

   # print diagnostic and plot
   cat(sprintf("Total Time Spent between %s and %s on '%s':%f (seconds)",
               activity, from_date, end_date, sum(activity_data$Time)))

   activity_data$Date <- as.Date(activity_data$Date)
   ggplot(activity_data, aes(x=Date, y=Time.Spent..seconds.)) +
      geom_bar(stat="identity") +
      xlab("Date") +
      ylab("Time (seconds)")
}

#2 楼

if(!require("lattice")){
  install.packages("lattice")
}
require("lattice")

if(!require("lattice")){
  install.packages("lattice")
  require("lattice")
}

# not so good
api_url  <- sprintf(url_format,api_key,from_date,to_date,activity)

# better
api_url <- sprintf(url_format, api_key, from_date, to_date, activity)

# not so good
if(!require("RCurl")){

# better
if (!require("RCurl")) {

rm(list = ls())