Просто для полноты: на самом деле вы можете «имитировать» тик и ток в R, так что вы можете написать
tic
## do something
toc
без скобок. Хитрость заключается в том, чтобы использовать функцию print
, как показано в Fun: tic и toc в R :
tic <- 1
class(tic) <- "tic"
toc <- 1
class(toc) <- "toc"
print.tic <- function(x, ...) {
if (!exists("proc.time"))
stop("cannot measure time")
gc(FALSE)
assign(".temp.tictime", proc.time(), envir = .GlobalEnv)
}
print.toc <- function(x,...) {
if (!exists(".temp.tictime", envir = .GlobalEnv))
stop("did you tic?")
time <- get(".temp.tictime", envir = .GlobalEnv)
rm(".temp.tictime", envir = .GlobalEnv)
print(res <- structure(proc.time() - time,
class = "proc_time"), ...)
invisible(res)
}
, поэтому ввод
tic
Sys.sleep(2)
toc
должен привести к результатам. примерно так:
user system elapsed
0.000 0.000 2.002
Как я уже сказал, это уловка; system.time
, Rprof
и такие пакеты, как rbenchmark
являются способом измерения времени вычисления в R.
Есть плагин jQuery comments () , который сделает это за вас. Использование:
var comments = $( "#foo" ).comments();
alert(comments.html());
И если вам не нужен плагин:
var content = jQuery('body').html();
alert(content.match(/<!--.*?-->/g));
Он использует регулярные выражения. Он настроен на поиск всего, что заключено в и
->
, при этом не имеет значения, что написано внутри.
ПРИМЕЧАНИЕ: Я не уверен однако, если jQuery также возвращает комментарии. Если это не так, этот подход не работает.