quietly <- function(fn) {
# obvs not required in purrr namespace
capture_output <- purrr:::capture_output
rlang::new_function(
rlang::fn_fmls(fn),
rlang::expr(capture_output(!!rlang::fn_body(fn)))
)
}
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
FROM ghcr.io/r-lib/rig/r:latest | |
RUN Rscript -e 'pak::pkg_install(c("devtools", "languageserver"))' | |
ARG PROJ_VERSION=6.3.1 | |
RUN apt-get -y update -y && \ | |
apt-get -y install build-essential software-properties-common cmake \ | |
libsqlite3-dev sqlite3 libtiff5-dev curl libcurl4-openssl-dev && \ | |
curl -Ls https://download.osgeo.org/proj/proj-${PROJ_VERSION}.tar.gz | \ | |
tar xz --strip-components=1 --one-top-level=/libproj && \ |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
library(dplyr) | |
library(sf) | |
if (!file.exists("rivers_gb.rds")) { | |
download.file( | |
"https://beaver-net-app.s3.eu-west-2.amazonaws.com/gb_rivers/rivers_gb.rds", | |
"rivers_gb.rds" | |
) | |
} |
This file has been truncated, but you can view the full file.
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
<!DOCTYPE html> | |
<html xmlns="http://www.w3.org/1999/xhtml" lang xml:lang> | |
<head> | |
<meta charset="utf-8" /> | |
<meta name="generator" content="pandoc" /> | |
<meta name="viewport" content="width=device-width, initial-scale=1.0, user-scalable=yes" /> | |
<title>deck.gl</title> | |
<style> | |
html { | |
line-height: 1.5; |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
cars %>% | |
group_by(speed) %>% | |
filter(any(dist == 2)) |
Loading
Sorry, something went wrong. Reload?
Sorry, we cannot display this file.
Sorry, this file is invalid so it cannot be displayed.
Loading
Sorry, something went wrong. Reload?
Sorry, we cannot display this file.
Sorry, this file is invalid so it cannot be displayed.