| # When in your package in development | |
| db <- tools:::.read_description("DESCRIPTION") | |
| testdir <- "tests/testthat" | |
| Rinfiles <- list.files(testdir, pattern = "\\.Rin$", full.names = TRUE) | |
| Rfiles <- list.files(testdir, pattern = "\\.[rR]$", full.names = TRUE) | |
| res <- tools:::.check_packages_used_helper(db, c(Rinfiles, Rfiles)) | |
| res | |
| repos <- tools:::.get_standard_repository_URLs() |
| library(shiny) | |
| # Define UI for application that draws a histogram | |
| ui <- fluidPage( | |
| # Application title | |
| titlePanel("Old Faithful Geyser Data"), | |
| # Sidebar with a slider input for number of bins | |
| sidebarLayout( |
| #' Render Table of Contents | |
| #' | |
| #' A simple function to extract headers from an RMarkdown or Markdown document | |
| #' and build a table of contents. Returns a markdown list with links to the | |
| #' headers using | |
| #' [pandoc header identifiers](http://pandoc.org/MANUAL.html#header-identifiers). | |
| #' | |
| #' WARNING: This function only works with hash-tag headers. | |
| #' | |
| #' Because this function returns only the markdown list, the header for the |
| # Thanks for article | |
| library(purrr) | |
| library(gh) | |
| repos <- gh("/repos/statnmap/gitlabr/stats/contributors") | |
| map(repos, "author") %>% map("login") | |
| map_chr(repos, ~paste0( | |
| # "[@", # With @ before | |
| "[", |
R and Rmd features are handled by:
| library(sf) | |
| library(ggplot2) | |
| library(dplyr) | |
| # Get data | |
| extraWD <- "." | |
| if (!file.exists(file.path(extraWD, "departement.zip"))) { | |
| githubURL <- "https://github.com/statnmap/blog_tips/raw/master/2018-07-14-introduction-to-mapping-with-sf-and-co/data/departement.zip" | |
| download.file(githubURL, file.path(extraWD, "departement.zip")) | |
| unzip(file.path(extraWD, "departement.zip"), exdir = extraWD) |
| library(raster) | |
| # remotes::install_github("statnmap/cartomisc") | |
| library(cartomisc) | |
| library(dplyr) | |
| library(purrr) | |
| # Create original raster | |
| fn <- system.file("external/test.grd", package="raster") | |
| s <- stack(fn, fn) |
| percent <- function(x, digits = 2, format = "f", ...) { | |
| paste0(formatC(100 * x, format = format, digits = digits, ...), "%") | |
| } | |
| mon_print <- function(synth){ | |
| N<-nrow(synth) | |
| if( is.null(N)){ | |
| N<-1 | |
| synth <- | |
| matrix(synth,nrow=1) | |
| library(hexbin) | |
| library(sf) | |
| # Create an hexbin | |
| set.seed(101) | |
| x <- rnorm(10000) | |
| y <- rnorm(10000) | |
| bin <- hexbin(x, y) | |
| str(bin) | |
| # st_as_sf(bin) |