Last updated on 2024-11-03 11:49:23 CET.
| Flavor | Version | Tinstall | Tcheck | Ttotal | Status | Flags |
|---|---|---|---|---|---|---|
| r-devel-linux-x86_64-debian-clang | 0.1.1 | 2.34 | 25.89 | 28.23 | OK | |
| r-devel-linux-x86_64-debian-gcc | 0.1.1 | 0.28 | 1.60 | 1.88 | ERROR | |
| r-devel-linux-x86_64-fedora-clang | 0.1.1 | 45.49 | OK | |||
| r-devel-linux-x86_64-fedora-gcc | 0.1.1 | 43.26 | OK | |||
| r-devel-windows-x86_64 | 0.1.1 | 5.00 | 234.00 | 239.00 | OK | |
| r-patched-linux-x86_64 | 0.1.1 | 2.92 | 24.73 | 27.65 | OK | |
| r-release-linux-x86_64 | 0.1.1 | 2.63 | 23.92 | 26.55 | ERROR | |
| r-release-macos-arm64 | 0.1.1 | 19.00 | OK | |||
| r-release-macos-x86_64 | 0.1.1 | 31.00 | OK | |||
| r-release-windows-x86_64 | 0.1.1 | 5.00 | 78.00 | 83.00 | OK | |
| r-oldrel-macos-arm64 | 0.1.1 | 23.00 | OK | |||
| r-oldrel-macos-x86_64 | 0.1.1 | 25.00 | OK | |||
| r-oldrel-windows-x86_64 | 0.1.1 | 6.00 | 146.00 | 152.00 | OK |
Version: 0.1.1
Check: whether package can be installed
Result: ERROR
Installation failed.
Flavor: r-devel-linux-x86_64-debian-gcc
Version: 0.1.1
Check: package dependencies
Result: NOTE
Package suggested but not available for checking: ‘shiny’
Flavor: r-release-linux-x86_64
Version: 0.1.1
Check: examples
Result: ERROR
Running examples in ‘findInGit-Ex.R’ failed
The error most likely occurred in:
> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: findInGit-shiny
> ### Title: Shiny bindings for 'findInGit'
> ### Aliases: findInGit-shiny FIGOutput renderFIG
>
> ### ** Examples
>
> findGit <- Sys.which("git") != ""
> if(findGit){
+
+ library(findInGit)
+ library(shiny)
+
+ # First, we create a temporary git repo
+ library(R.utils) # to use the `copyDirectory` function
+ folder1 <- system.file("htmlwidgets", package = "findInGit")
+ folder2 <- system.file("htmlwidgets", "lib", package = "findInGit")
+ tmpDir <- paste0(tempdir(), "_gitrepo")
+ dir.create(tmpDir)
+ # set tmpDir as the working directory
+ cd <- setwd(tmpDir)
+ # copy folder1 in tmpDir
+ copyDirectory(folder1, recursive = FALSE)
+ # initialize git repo
+ system("git init")
+ # add all files to git
+ system("git add -A")
+ # commit files
+ system('git commit -m "mycommit1"')
+ # create a new branch
+ system("git checkout -b newbranch")
+ # copy folder2 in tmpDir, under the new branch
+ copyDirectory(folder2, recursive = FALSE)
+ # add all files to git
+ system("git add -A")
+ # commit files
+ system('git commit -m "mycommit2"')
+
+ # Now let's play with Shiny
+ onKeyDown <- HTML(
+ 'function onKeyDown(event) {',
+ ' var key = event.which || event.keyCode;',
+ ' if(key === 13) {',
+ ' Shiny.setInputValue(',
+ ' "pattern", event.target.value, {priority: "event"}',
+ ' );',
+ ' }',
+ '}'
+ )
+
+ ui <- fluidPage(
+ tags$head(tags$script(onKeyDown)),
+ br(),
+ sidebarLayout(
+ sidebarPanel(
+ selectInput(
+ "ext", "Extension",
+ choices = c("js", "css")
+ ),
+ tags$div(
+ class = "form-group shiny-input-container",
+ tags$label(
+ class = "control-label",
+ "Pattern"
+ ),
+ tags$input(
+ type = "text",
+ class = "form-control",
+ onkeydown = "onKeyDown(event);",
+ placeholder = "Press Enter when ready"
+ )
+ ),
+ checkboxInput(
+ "wholeWord", "Whole word"
+ ),
+ checkboxInput(
+ "ignoreCase", "Ignore case"
+ )
+ ),
+ mainPanel(
+ FIGOutput("results")
+ )
+ )
+ )
+
+ Clean <- function(){
+ setwd(cd)
+ unlink(tmpDir, recursive = TRUE, force = TRUE)
+ }
+
+ server <- function(input, output){
+
+ onSessionEnded(Clean)
+
+ output[["results"]] <- renderFIG({
+ req(input[["pattern"]])
+ findInGit(
+ ext = isolate(input[["ext"]]),
+ pattern = input[["pattern"]],
+ wholeWord = isolate(input[["wholeWord"]]),
+ ignoreCase = isolate(input[["ignoreCase"]])
+ )
+ })
+
+ }
+
+ if(interactive()){
+ shinyApp(ui, server)
+ }else{
+ Clean()
+ }
+
+ }
Error in library(shiny) : there is no package called ‘shiny’
Execution halted
Flavor: r-release-linux-x86_64