Ustal, czy skrypt jest uruchomiony w notatniku RStudio

Question

W moim pakiecie htmlTable używam base::interactive w celu ustalenia, czy dane wyjściowe powinny być wyprowadzane jako łańcuch znaków, czy do okna przeglądarki (tutaj jest code). Niestety interactive() zwraca TRUE podczas pracy w ramach RStudio notebook, jaki jest równoważny sposób określania środowiska wykonawczego w notebooku?

Próbowałem już ls() i search(), ale wyglądają identycznie, niezależnie od środowiska. Mam również funkcję S3 knit_print.htmlTable, która jest wywoływana przez dokumenty default for knitr, ale wydaje się, że nie jest poprawnie wykrywana w środowisku notebooka.

Answer 1

Więc najlepszym rozwiązaniem, które znalazłem tak daleko jest do realizacji detektora kontekstowego za pomocą RStudio API:

prIsNotebook <- function() { 
    if (!rstudioapi::isAvailable()) { 
    return(FALSE) 
    } 

    ctxt <- rstudioapi::getActiveDocumentContext() 
    if (grepl("\\.Rmd$", ctxt$path)) { 
    return(TRUE) 
    } 

    # Look for html_notebook within the header if the file hasn't been saved 
    contents <- ctxt$contents 
    header <- grep("^---$", contents) 
    if (length(header) == 2) { 
    return(any(grepl("html_notebook$", 
        contents[min(header) : max(header)]))) 
    } 

    return(FALSE) 
} 

nie sprawdzi to jako odpowiedź, ponieważ to bardziej hack niż prawdziwe rozwiązanie.