Modérateur : Groupe des modérateurs
Code : Tout sélectionner
system.file("user_docs", package = "mypackage")
Code : Tout sélectionner
load_aliases <- function() {
readRDS(file = system.file("help/aliases.rds", package = "parallel"))
}
x <- load_aliases()
Code : Tout sélectionner
dplyr_v3 <- as.list(tools::getVignetteInfo("dplyr")[3, c("Dir", "PDF")])
class(dplyr_v3) <- "vignette"
print(dplyr_v3) ### affiche la vignette dans le viewer
Code : Tout sélectionner
maVignette <-
structure(
list(Dir = "E:/packages-source", PDF = "maVignette.html"),
class = "vignette"
)
print(maVignette) ### n'affiche rien
Code : Tout sélectionner
str(dplyr_v3)
#> List of 2
#> $ Dir: chr "D:/Program_Files/R/packages_pyb/dplyr"
#> $ PDF: chr "programming.html"
#> - attr(*, "class")= chr "vignette"
str(maVignette)
#> List of 2
#> $ Dir: chr "E:/packages-source"
#> $ PDF: chr "maVignette.html"
#>- attr(*, "class")= chr "vignette"
Code : Tout sélectionner
utils:::print.vignette
Code : Tout sélectionner
browseURL(
file.path(system.file(package = "monpackage"), "admin/maVignette.html")
)
Code : Tout sélectionner
port <- tools::startDynamicHelp(NA)
browseURL(
sprintf("http://127.0.0.1:%d/library/monpackage/admin/maVignette.html", port)
)
Retourner vers « Questions en cours »
Utilisateurs parcourant ce forum : Aucun utilisateur enregistré et 1 invité