Simon Smart
LightNews LightNews
banner
simonsmart.bsky.social
Simon Smart
@simonsmart.bsky.social
96 followers 200 following 77 posts
✨ Shiny app developer at University of Leicester with @statsforbios
🥔 Former spudologist.
🌱 Grows plants 🚲 Rides bikes 🍺 Brews beer
🌐 https://github.com/simon-smart88
Posts Replies Media Videos
simonsmart.bsky.social
#rstats when I run devtools::test() from the Build pane I get an error that mirai isn't installed even though it is. I use r2u and have already uninstalled with apt remove and reinstalled. It runs okay from the terminal but whatever environment shinytest2 runs in can't find mirai either. Any ideas?
==> devtools::test() ℹ Testing metainsight Error in load_imports(path) : The package "mirai" is required. Calls: <Anonymous> ... load_imports -> deps_check_installed -> check_installed Execution halted Exited with status 1.
October 20, 2025 at 2:21 PM
simonsmart.bsky.social
I've made digital art using .svgs for many years and inspired by #rtistry I've made a #rstats #rshiny app which generates them: simonsmart.shinyapps.io/savage-patte... the video shows some example outputs.
August 21, 2025 at 9:51 PM
simonsmart.bsky.social
Myself and @statsforbios.bsky.social are running a workshop in September to introduce Disagapp disagapp.le.ac.uk for disaggregation regression. More details and sign up at forms.office.com/e/pjfbD6RvTi #rstats #episky #AcademicSky
Disaggregation regression produces high resolution predictions from data aggregated into polygons making it well suited to epidemiological modelling. Disagapp makes the process simple and easy! Join Simon Smart and Tim Lucas for this introductory workshop. On Teams 14:00-16:00 UTC 16 September 2025 See more details and sign up via the QR code
July 21, 2025 at 1:47 PM
simonsmart.bsky.social
Pretty cool that 10 % of UK farmland is now being managed with an #rstats #rshiny app www.linkedin.com/posts/tomscr... #iykyk
🚀 Today, we’re announcing a big milestone for Soil Benchmark ✨ 10% of… | Tom Scrope | 39 comments
🚀 Today, we’re announcing a big milestone for Soil Benchmark ✨ 10% of English farmland now uses our platform ✨ 🎉 To celebrate, we’re offering 10% off all week. It&#39;s free to get started and a...
www.linkedin.com
June 11, 2025 at 2:02 PM
simonsmart.bsky.social
Shinyscholar 0.4.1 is up on CRAN. The UI has been migrated to {bslib} along with other tweaks to modernise it. Async tasks now run using {mirai}. Want to learn more? Then come along to the Workshop for Ukraine in a few weeks : sites.google.com/view/dariia-... #rstats
Dariia Mykhailyshyna - Workshops for Ukraine
Feedback on the past workshops (if you want to learn how to make wordclouds, check out Text Data Analysis workshop below)
sites.google.com
May 19, 2025 at 11:59 AM
simonsmart.bsky.social
I'm delivering a Workshop for Ukraine on 5 June about {shinyscholar} cran.r-project.org/web/packages... a template for creating reproducible shiny apps for complex analyses in #rstats . More info and sign up here: sites.google.com/view/dariia-...
Dariia Mykhailyshyna - Workshops for Ukraine
Feedback on the past workshops (if you want to learn how to make wordclouds, check out Text Data Analysis workshop below)
sites.google.com
May 2, 2025 at 9:37 AM
simonsmart.bsky.social
Being able to cancel and restart slow-running jobs in shiny with {mirai} is a bit of a game-changer #rstats Full app in alt text / gist.github.com/simon-smart8... with a method for updating progress too
library(shiny) library(bslib) library(mirai) daemons(1) onStop(function() daemons(0)) ui <- page_fluid( p("The time is ", textOutput("current_time", inline = TRUE)), hr(), numericInput("n", "Sample size (n)", 100), numericInput("delay", "Seconds to take for plot", 5), actionButton("btn", "Go"), textOutput("progress_log"), plotOutput("plot"), ) my_func <- function(x, y, file){ writeLines(paste0("Starting..."), file) for (i in 1:y){ Sys.sleep(1) writeLines(paste0("Step ", i, " complete"), file) } writeLines(paste0("Finished"), file) runif(x) } server <- function(input, output, session) { progress_file <- tempfile() output$current_time <- renderText({ invalidateLater(1000) format(Sys.time(), "%H:%M:%S %p") }) task_var <- NULL task <- ExtendedTask$new( function(...) task_var <<- mirai(run(...), environment(), .args = list(run = my_func)) ) observeEvent(input$btn, { if (task$status() == "running"){ mirai::stop_mirai(task_var) } task$invoke(input$n, input$delay, progress_file)} ) output$plot <- renderPlot({ if (task$status() == "success"){ hist(task$result()) } }) progress_reader <- reactiveFileReader(100, session, progress_file, readFunc = function(file) { if (file.exists(file)) { readLines(file) } } ) output$progress_log <- renderPrint({ cat(paste(progress_reader(), collapse = "\n")) }) } shinyApp(ui = ui, server = server)
April 29, 2025 at 3:13 PM
simonsmart.bsky.social
My first R package is now available on CRAN! Shinyscholar is a template for creating complex analytical applications that are reproducible outside the application. 🧵 cran.r-project.org/web/packages...
#rstats #rshiny #openscience
A screenshot of an R shiny application created by shinyscholar, with user inputs on the left sidebar, a tab panel to move between components and a main panel featuring a map, table and results.
February 10, 2025 at 3:09 PM
simonsmart.bsky.social
Day 6 part 1 of #adventofcode in #Rstats. I learnt from day 4 and padded the input from the start which made it a lot simpler. Barely any use of apply which makes a change from so far.
December 6, 2024 at 7:26 PM
simonsmart.bsky.social
Day 5 part 2 of #adventofcode in base #Rstats. This took forever to work out until I realised I could always put the first wrong element at the end
December 5, 2024 at 11:38 PM
simonsmart.bsky.social
Just in time for Day 5 part 1 of #adventofcode in base #Rstats. Not super pleased with this and I'm sure there is some room for improvement, but it works.
December 5, 2024 at 11:32 PM
simonsmart.bsky.social
Day 4 part 1 of #adventofcode in base #Rstats. This was a whole lot easier once the input was padded. I was surprised there is no function equivalent to rdrr.io/cran/terra/m... for a matrix (or is there?)
December 4, 2024 at 8:46 PM
simonsmart.bsky.social
Day 3 of #adventofcode in base #Rstats and I managed to write some regex all by myself!
December 4, 2024 at 8:39 PM