remove compiled testthat code, appveyor

DESCRIPTION

@@ -37,8 +37,7 @@ Suggests:
     testthat,
     vdiffr
 LinkingTo: 
-    Rcpp,
-    testthat
+    Rcpp
 Encoding: UTF-8
 LazyData: true
 RoxygenNote: 7.0.2

README.Rmd

@@ -16,9 +16,7 @@ knitr::opts_chunk$set(
 
 <!-- badges: start -->
 [![R build
-status](https://github.com/extendr/rextendr/workflows/R-CMD-check/badge.svg)](https://github.com/extendr/rextendr/actions)
-[![Build Status](https://travis-ci.org/wilkelab/gridtext.svg?branch=master)](https://travis-ci.org/wilkelab/gridtext)
-[![AppVeyor build status](https://ci.appveyor.com/api/projects/status/github/wilkelab/gridtext?branch=master&svg=true)](https://ci.appveyor.com/project/clauswilke/gridtext)
+status](https://github.com/wilkelab/gridtext/workflows/R-CMD-check/badge.svg)](https://github.com/wilkelab/gridtext/actions)
 [![Coverage Status](https://img.shields.io/codecov/c/github/wilkelab/gridtext/master.svg)](https://codecov.io/github/wilkelab/gridtext?branch=master)
 [![CRAN status](https://www.r-pkg.org/badges/version/gridtext)](https://cran.r-project.org/package=gridtext)
 [![Lifecycle: maturing](https://img.shields.io/badge/lifecycle-maturing-blue.svg)](https://www.tidyverse.org/lifecycle/#maturing)

README.md

@@ -1,14 +1,13 @@
 
 <!-- README.md is generated from README.Rmd. Please edit that file -->
 
-# gridtext
+gridtext
+========
 
 <!-- badges: start -->
 
-[![Build
-Status](https://travis-ci.org/wilkelab/gridtext.svg?branch=master)](https://travis-ci.org/wilkelab/gridtext)
-[![AppVeyor build
-status](https://ci.appveyor.com/api/projects/status/github/wilkelab/gridtext?branch=master&svg=true)](https://ci.appveyor.com/project/clauswilke/gridtext)
+[![R build
+status](https://github.com/wilkelab/gridtext/workflows/R-CMD-check/badge.svg)](https://github.com/wilkelab/gridtext/actions)
 [![Coverage
 Status](https://img.shields.io/codecov/c/github/wilkelab/gridtext/master.svg)](https://codecov.io/github/wilkelab/gridtext?branch=master)
 [![CRAN
@@ -19,22 +18,20 @@ maturing](https://img.shields.io/badge/lifecycle-maturing-blue.svg)](https://www
 
 Improved text rendering support for grid graphics in R.
 
-## Installation
+Installation
+------------
 
 You can install the current release from CRAN with `install.packages()`:
 
-``` r
-install.packages("gridtext")
-```
+    install.packages("gridtext")
 
 To install the latest development version of this package, please run
 the following line in your R console:
 
-``` r
-remotes::install_github("wilkelab/gridtext")
-```
+    remotes::install_github("wilkelab/gridtext")
 
-## Examples
+Examples
+--------
 
 The gridtext package provides two new grobs, `richtext_grob()` and
 `textbox_grob()`, which support drawing of formatted text labels and
@@ -61,41 +58,39 @@ It is vectorized and can draw multiple text labels with one call. Labels
 can be drawn with padding, margins, and at arbitrary angles. Markdown
 and HTML parsing is turned on by default.
 
-``` r
-library(grid)
-library(gridtext)
-
-text <- c(
-  "Some text **in bold.**",
-  "Linebreaks<br>Linebreaks<br>Linebreaks",
-  "*x*<sup>2</sup> + 5*x* + *C*<sub>*i*</sub>",
-  "Some <span style='color:blue'>blue text **in bold.**</span><br>And *italics text.*<br>And some <span style='font-size:18pt; color:black'>large</span> text."
-)
-
-x <- c(.2, .1, .7, .9)
-y <- c(.8, .4, .1, .5)
-rot <- c(0, 0, 45, -45)
-gp = gpar(
-  col = c("black", "red"),
-  fontfamily = c("Palatino", "Courier", "Times", "Helvetica")
-)
-box_gp = gpar(
-  col = "black", fill = c(NA, "cornsilk", "lightblue1", NA),
-  lty = c(0, 1, 1, 1)
-)
-hjust <- c(0.5, 0, 0, 1)
-vjust <- c(0.5, 1, 0, 0.5)
-
-grid.newpage()
-g <- richtext_grob(
-  text, x, y, hjust = hjust, vjust = vjust, rot = rot, 
-  padding = unit(c(6, 6, 4, 6), "pt"),
-  r = unit(c(0, 2, 4, 8), "pt"),
-  gp = gp, box_gp = box_gp
-)
-grid.draw(g)
-grid.points(x, y, default.units = "npc", pch = 19, size = unit(5, "pt"))
-```
+    library(grid)
+    library(gridtext)
+
+    text <- c(
+      "Some text **in bold.**",
+      "Linebreaks<br>Linebreaks<br>Linebreaks",
+      "*x*<sup>2</sup> + 5*x* + *C*<sub>*i*</sub>",
+      "Some <span style='color:blue'>blue text **in bold.**</span><br>And *italics text.*<br>And some <span style='font-size:18pt; color:black'>large</span> text."
+    )
+
+    x <- c(.2, .1, .7, .9)
+    y <- c(.8, .4, .1, .5)
+    rot <- c(0, 0, 45, -45)
+    gp = gpar(
+      col = c("black", "red"),
+      fontfamily = c("Palatino", "Courier", "Times", "Helvetica")
+    )
+    box_gp = gpar(
+      col = "black", fill = c(NA, "cornsilk", "lightblue1", NA),
+      lty = c(0, 1, 1, 1)
+    )
+    hjust <- c(0.5, 0, 0, 1)
+    vjust <- c(0.5, 1, 0, 0.5)
+
+    grid.newpage()
+    g <- richtext_grob(
+      text, x, y, hjust = hjust, vjust = vjust, rot = rot, 
+      padding = unit(c(6, 6, 4, 6), "pt"),
+      r = unit(c(0, 2, 4, 8), "pt"),
+      gp = gp, box_gp = box_gp
+    )
+    grid.draw(g)
+    grid.points(x, y, default.units = "npc", pch = 19, size = unit(5, "pt"))
 
 ![](man/figures/README-unnamed-chunk-4-1.png)<!-- -->
 
@@ -104,38 +99,34 @@ heights, and alignment of text inside the box (specified via `hjust` and
 `vjust`) is separate from alignment of the box relative to a reference
 point (specified via `box_hjust` and `box_vjust`).
 
-``` r
-text <- c("January", "February", "March", "April", "May")
-x <- (1:5)/6 + 1/24
-y <- rep(0.8, 5)
-g <- richtext_grob(
-  text, x, y, halign = 0, hjust = 1,
-  rot = 45,
-  padding = unit(c(3, 6, 1, 3), "pt"),
-  r = unit(4, "pt"),
-  align_widths = TRUE,
-  box_gp = gpar(col = "black", fill = "cornsilk")
-)
-grid.newpage()
-grid.draw(g)
-grid.points(x, y, default.units = "npc", pch = 19, size = unit(5, "pt"))
-```
+    text <- c("January", "February", "March", "April", "May")
+    x <- (1:5)/6 + 1/24
+    y <- rep(0.8, 5)
+    g <- richtext_grob(
+      text, x, y, halign = 0, hjust = 1,
+      rot = 45,
+      padding = unit(c(3, 6, 1, 3), "pt"),
+      r = unit(4, "pt"),
+      align_widths = TRUE,
+      box_gp = gpar(col = "black", fill = "cornsilk")
+    )
+    grid.newpage()
+    grid.draw(g)
+    grid.points(x, y, default.units = "npc", pch = 19, size = unit(5, "pt"))
 
 ![](man/figures/README-unnamed-chunk-5-1.png)<!-- -->
 
 Basic support for images is available as well. As of now, images will
 always be vertically aligned with the baseline of the text.
 
-``` r
-grid.newpage()
+    grid.newpage()
 
-img_src <- system.file("extdata", "Rlogo.png", package = "gridtext")
-text <- glue::glue("Image with native aspect ratio: <img src='{img_src}' width='100'/> And some more text.")
-grid.draw(richtext_grob(text, x = 0.9, y = 0.7, hjust = 1))
+    img_src <- system.file("extdata", "Rlogo.png", package = "gridtext")
+    text <- glue::glue("Image with native aspect ratio: <img src='{img_src}' width='100'/> And some more text.")
+    grid.draw(richtext_grob(text, x = 0.9, y = 0.7, hjust = 1))
 
-text <- glue::glue("Image with forced size: <img src='{img_src}' width='100' height='30'/> And some more text.")
-grid.draw(richtext_grob(text, x = 0.9, y = 0.3, hjust = 1))
-```
+    text <- glue::glue("Image with forced size: <img src='{img_src}' width='100' height='30'/> And some more text.")
+    grid.draw(richtext_grob(text, x = 0.9, y = 0.3, hjust = 1))
 
 ![](man/figures/README-unnamed-chunk-6-1.png)<!-- -->
 
@@ -150,54 +141,50 @@ support rendering the text box at arbitrary angles. Only four different
 orientations are supported, corresponding to a rotation by 0, 90, 180,
 and 270 degrees.
 
-``` r
-g <- textbox_grob(
-  "**The quick brown fox jumps over the lazy dog.**<br><br>
-  The quick brown fox jumps over the lazy dog.
-  The **quick <span style='color:brown;'>brown fox</span>** jumps over the lazy dog.
-  The quick brown fox jumps over the lazy dog.",
-  x = unit(0.5, "npc"), y = unit(0.7, "npc"),
-  gp = gpar(fontsize = 15),
-  box_gp = gpar(col = "black", fill = "lightcyan1"),
-  r = unit(5, "pt"),
-  padding = unit(c(10, 10, 10, 10), "pt"),
-  margin = unit(c(0, 10, 0, 10), "pt")
-)
-grid.newpage()
-grid.draw(g)
-```
+    g <- textbox_grob(
+      "**The quick brown fox jumps over the lazy dog.**<br><br>
+      The quick brown fox jumps over the lazy dog.
+      The **quick <span style='color:brown;'>brown fox</span>** jumps over the lazy dog.
+      The quick brown fox jumps over the lazy dog.",
+      x = unit(0.5, "npc"), y = unit(0.7, "npc"),
+      gp = gpar(fontsize = 15),
+      box_gp = gpar(col = "black", fill = "lightcyan1"),
+      r = unit(5, "pt"),
+      padding = unit(c(10, 10, 10, 10), "pt"),
+      margin = unit(c(0, 10, 0, 10), "pt")
+    )
+    grid.newpage()
+    grid.draw(g)
 
 ![](man/figures/README-unnamed-chunk-7-1.png)<!-- -->
 
 The alignment parameters `hjust`, `vjust`, `halign`, and `valign`
 function just like they do in `richtext_grob()`.
 
-``` r
-g <- textbox_grob(
-  "**The quick brown fox jumps over the lazy dog.**<br><br>
-  The quick brown fox jumps over the lazy dog.
-  The **quick <span style='color:brown;'>brown fox</span>** jumps over the lazy dog.
-  The quick brown fox jumps over the lazy dog.",
-  x = unit(0.2, "npc"), y = unit(0.5, "npc"),
-  hjust = 0.5, vjust = 1, halign = 1,
-  gp = gpar(fontsize = 15),
-  box_gp = gpar(col = "black", fill = "lightcyan1"),
-  r = unit(5, "pt"),
-  padding = unit(c(10, 10, 10, 10), "pt"),
-  margin = unit(c(0, 10, 0, 10), "pt"),
-  orientation = "left-rotated"
-)
-grid.newpage()
-grid.draw(g)
-```
+    g <- textbox_grob(
+      "**The quick brown fox jumps over the lazy dog.**<br><br>
+      The quick brown fox jumps over the lazy dog.
+      The **quick <span style='color:brown;'>brown fox</span>** jumps over the lazy dog.
+      The quick brown fox jumps over the lazy dog.",
+      x = unit(0.2, "npc"), y = unit(0.5, "npc"),
+      hjust = 0.5, vjust = 1, halign = 1,
+      gp = gpar(fontsize = 15),
+      box_gp = gpar(col = "black", fill = "lightcyan1"),
+      r = unit(5, "pt"),
+      padding = unit(c(10, 10, 10, 10), "pt"),
+      margin = unit(c(0, 10, 0, 10), "pt"),
+      orientation = "left-rotated"
+    )
+    grid.newpage()
+    grid.draw(g)
 
 ![](man/figures/README-unnamed-chunk-8-1.png)<!-- -->
 
-## Acknowledgments
+Acknowledgments
+---------------
 
 This project is receiving [financial
 support](https://www.r-consortium.org/projects/awarded-projects) from
-the [R
-consortium.](https://www.r-consortium.org)
+the [R consortium.](https://www.r-consortium.org)
 
 <img src="https://www.r-consortium.org/wp-content/uploads/sites/13/2016/09/RConsortium_Horizontal_Pantone.png" width="250">

src/RcppExports.cpp

@@ -405,8 +405,6 @@ BEGIN_RCPP
 END_RCPP
 }
 
-RcppExport SEXP run_testthat_tests(SEXP);
-
 static const R_CallMethodDef CallEntries[] = {
     {"_gridtext_bl_make_null_box", (DL_FUNC) &_gridtext_bl_make_null_box, 2},
     {"_gridtext_bl_make_par_box", (DL_FUNC) &_gridtext_bl_make_par_box, 4},
@@ -438,7 +436,6 @@ static const R_CallMethodDef CallEntries[] = {
     {"_gridtext_rect_grob", (DL_FUNC) &_gridtext_rect_grob, 6},
     {"_gridtext_roundrect_grob", (DL_FUNC) &_gridtext_roundrect_grob, 7},
     {"_gridtext_set_grob_coords", (DL_FUNC) &_gridtext_set_grob_coords, 3},
-    {"run_testthat_tests", (DL_FUNC) &run_testthat_tests, 1},
     {NULL, NULL, 0}
 };