Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Example no longer renders in either Quarto or RMarkdown #47

Open
daranzolin opened this issue Oct 15, 2024 · 0 comments
Open

Example no longer renders in either Quarto or RMarkdown #47

daranzolin opened this issue Oct 15, 2024 · 0 comments

Comments

@daranzolin
Copy link

Or reprex. I kept chopping the example down line by line, and the problem seems to be with the output of bi_class():

library(ggplot2)
#> Warning: package 'ggplot2' was built under R version 4.2.3
library(biscale)
#> Warning: package 'biscale' was built under R version 4.2.3

data <- bi_class(stl_race_income, x = pctWhite, y = medInc, style = "quantile", dim = 3)
ggplot() + geom_sf(data = data) 
#> Error in `geom_sf()`:
#> ! Problem while setting up layer.
#> ℹ Error occurred in the 1st layer.
#> Caused by error in `sym()`:
#> ! Can't convert `NULL` to a symbol.
#> Backtrace:
#>      ▆
#>   1. ├─base::tryCatch(...)
#>   2. │ └─base (local) tryCatchList(expr, classes, parentenv, handlers)
#>   3. │   ├─base (local) tryCatchOne(...)
#>   4. │   │ └─base (local) doTryCatch(return(expr), name, parentenv, handler)
#>   5. │   └─base (local) tryCatchList(expr, names[-nh], parentenv, handlers[-nh])
#>   6. │     └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
#>   7. │       └─base (local) doTryCatch(return(expr), name, parentenv, handler)
#>   8. ├─base::withCallingHandlers(...)
#>   9. ├─base::saveRDS(...)
#>  10. ├─base::do.call(...)
#>  11. ├─base (local) `<fn>`(...)
#>  12. └─global `<fn>`(input = base::quote("dopey-nyala_reprex.R"))
#>  13.   └─rmarkdown::render(input, quiet = TRUE, envir = globalenv(), encoding = "UTF-8")
#>  14.     └─knitr::knit(knit_input, knit_output, envir = envir, quiet = quiet)
#>  15.       └─knitr:::process_file(text, output)
#>  16.         ├─base::withCallingHandlers(...)
#>  17.         ├─base::withCallingHandlers(...)
#>  18.         ├─knitr:::process_group(group)
#>  19.         └─knitr:::process_group.block(group)
#>  20.           └─knitr:::call_block(x)
#>  21.             └─knitr:::block_exec(params)
#>  22.               └─knitr:::eng_r(options)
#>  23.                 ├─knitr:::in_input_dir(...)
#>  24.                 │ └─knitr:::in_dir(input_dir(), expr)
#>  25.                 └─knitr (local) evaluate(...)
#>  26.                   └─evaluate::evaluate(...)
#>  27.                     └─evaluate:::evaluate_call(...)
#>  28.                       ├─evaluate (local) handle(...)
#>  29.                       │ └─base::try(f, silent = TRUE)
#>  30.                       │   └─base::tryCatch(...)
#>  31.                       │     └─base (local) tryCatchList(expr, classes, parentenv, handlers)
#>  32.                       │       └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
#>  33.                       │         └─base (local) doTryCatch(return(expr), name, parentenv, handler)
#>  34.                       ├─base::withCallingHandlers(...)
#>  35.                       ├─base::withVisible(value_fun(ev$value, ev$visible))
#>  36.                       └─knitr (local) value_fun(ev$value, ev$visible)
#>  37.                         └─knitr (local) fun(x, options = options)
#>  38.                           ├─base::withVisible(knit_print(x, ...))
#>  39.                           ├─knitr::knit_print(x, ...)
#>  40.                           └─knitr:::knit_print.default(x, ...)
#>  41.                             └─evaluate (local) normal_print(x)
#>  42.                               ├─base::print(x)
#>  43.                               └─ggplot2:::print.ggplot(x)
#>  44.                                 ├─ggplot2::ggplot_build(x)
#>  45.                                 └─ggplot2:::ggplot_build.ggplot(x)
#>  46.                                   └─ggplot2:::by_layer(...)
#>  47.                                     ├─rlang::try_fetch(...)
#>  48.                                     │ ├─base::tryCatch(...)
#>  49.                                     │ │ └─base (local) tryCatchList(expr, classes, parentenv, handlers)
#>  50.                                     │ │   └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
#>  51.                                     │ │     └─base (local) doTryCatch(return(expr), name, parentenv, handler)
#>  52.                                     │ └─base::withCallingHandlers(...)
#>  53.                                     └─ggplot2 (local) f(l = layers[[i]], d = data[[i]])
#>  54.                                       └─l$setup_layer(d, plot)
#>  55.                                         └─ggplot2 (local) setup_layer(..., self = self)
#>  56.                                           └─rlang::sym(geometry_col)
#>  57.                                             └─rlang:::abort_coercion(x, "a symbol")
#>  58.                                               └─rlang::abort(msg, call = call)

Created on 2024-10-14 with reprex v2.0.2

Everything works fine in the console.

sessionInfo()

R version 4.2.1 (2022-06-23 ucrt)
Platform: x86_64-w64-mingw32/x64 (64-bit)
Running under: Windows 10 x64 (build 22631)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
Labels
None yet
Projects
None yet
Development

No branches or pull requests

1 participant