use smaller threshold

tests/testthat/test-shiny2screenshot.R

@@ -32,7 +32,7 @@ describe("get_screenshot_from_app", {
         name = name,
         compare = purrr::partial(
           shinytest2::compare_screenshot_threshold,
-          threshold = 200
+          threshold = 99
         )
       )
     }