fix #260

RinteRface · May 29, 2024 · b2650a3 · b2650a3
1 parent 36d7245
commit b2650a3
Show file tree

Hide file tree

Showing 7 changed files with 8 additions and 8 deletions.
diff --git a/R/f7-inputs.R b/R/f7-inputs.R
@@ -1756,7 +1756,7 @@ createOptions <- function(
 f7Form <- function(id, ...) {
   inputs <- list(...)
   # All inputs must have a name + no binding
-  inputs <- lapply(inputs, \(input) {
+  inputs <- lapply(inputs, function(input) {
     # Test for different input types
     valid_inputs <- c("input", "textarea", "select")
     target <- NULL

diff --git a/R/f7Button.R b/R/f7Button.R
@@ -193,7 +193,7 @@ f7Segment <- function(
   # the segment, if not already done.
   btns <- list(...)
   if (rounded) {
-    btns <- lapply(btns, \(btn) {
+    btns <- lapply(btns, function(btn) {
       is_rounded <- grepl("button-round", btn$attribs$class)
       if (!is_rounded) {
         btn <- tagAppendAttributes(btn, class = "button-round")

diff --git a/R/utils.R b/R/utils.R
@@ -243,7 +243,7 @@ create_app_link <- function(
 #' @keywords internal
 #' @noRd
 change_id <- function(items, ns) {
-  lapply(items, \(item) {
+  lapply(items, function(item) {
     full_ns <- ns(character(0))
     tmp <- strsplit(as.character(item), "\n")[[1]]
     outer_ns <- strsplit(full_ns, "-")[[1]][1]

diff --git a/inst/examples/update_entity/app.R b/inst/examples/update_entity/app.R
@@ -44,7 +44,7 @@ app <- shinyApp(
       f7BlockTitle("Swiper", size = "large"),
       f7Swiper(
         id = "swiper",
-        lapply(1:20, \(c) {
+        lapply(1:20, function(c) {
           f7Slide(
             f7Card(
               title = sprintf("Slide %s", c)

diff --git a/man/updateF7Entity.Rd b/man/updateF7Entity.Rd
diff --git a/tests/testthat/test-f7List.R b/tests/testthat/test-f7List.R
@@ -40,7 +40,7 @@ test_that("list group works", {
   expect_s3_class(f7ListGroup(title = "plop"), "shiny.tag")
   list_group <- f7ListGroup(
     title = "test",
-    lapply(1:3, \(x) f7ListItem(x))
+    lapply(1:3, function(x) f7ListItem(x))
   )
   expect_identical(list_group$attribs$class, "list-group")
 })

diff --git a/vignettes/update-app.Rmd b/vignettes/update-app.Rmd
@@ -865,7 +865,7 @@ There are many options to customize the `f7Swiper()` component. Note that on des
 ```{r, eval=TRUE, echo=FALSE}
 card(
   shinyMobile:::create_app_link(
-    "NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAdzgCMAnRRAVwhiLdIAoAdMAPQsAzgwEAbAJZ0BWCdIZQGATwHCAFpIjKAskTqTxcfgEpeEWo2ZbhpKOPF8IAAmf8NW3fsPG851wxwqETCzgC8zgR8YOqkpKjCiAICDFrkDABmUARwGADmkqTqLHQYkkQpaXCZ2XAAtNRQwjB1BIoQAqbmZhDmUoxKytwe2j39iirDmtp6BkY95iPKAILoTq4skuHOGQDsAApQeXDrrs6khUbb-ADK1JKo1fy4-md7N1p5RgAyUMqcPFeZ2c0AAbnQlNs9gA5KDgpTcC6kK4Rfjve6PBimF4uYE7XY3OB5eBkU54-EAIRYcRIZPJzi0qGpAEkACbXMAsVCsqDkZ5A+niKB0ODiDkAVW5vN8AuBJhx9Mp1NItNleMZLPZqLAgWEcFI-NxiqFIrF2qwcD1BrAatcPXJ8rV6Ie1TpwMkWrcYGEGKefiNeKIqAuJFCESktjdeLBkjyvPKLnDkkjtrxFGFRk9ADFlt8bgBRVN2hWK5yoI5aeMkbYRwEBxXpuiZ7YAFSw4vzJdLzlFHIwPpdDDq5YK0BDvTwbnr9IIUgIAGsM3BW+3C9O5anHevnEL0OIhgBGRAAJgADLg3LxuAQTM4QEX8TcpKyTg-XHsAMJKVlRxVIlHOMIqCpGQGTRE+HrLgApMIzyRPa3bOAhirIXiAC+qF2gKCFbq4eoMKC1RQmwBDjtwGqkBeAJMqQt73gG+j4YR+aEaSFEACRcjy5AXvR5JcdKWa7PmZCFEMqbuL6WL+oqQbjmGO7JnW3ZAXAcCegep7ng+wjPpa+zVAAapIcDUNsx5dvSQG1BS+q0BQ2yaZZ5JQNSQZCsoK4ds5eLCG0RAOBCDA1kpv5ptATbqdsOZ5mu3a4aWI6VuOIUptuwKkMojwcsBRB5LqwhBYaiE9hFzYRG2HYPglir5R6qXKYhGSGGaXrEOILAwBAsEyYhDBENQCkACzVZuaqoRhAoCox1TMaxPAcbq+q8WqAnkEJIlIuJ26SYOxX0nJCYKbWYV4Y8UURENWk+cCumQcIBkMMZpkcq5Kr7Yq1k5LZpD2YmzgAKzaelzhve5fzRbmBY3Wcfn9YFkJJmlJWNuVziVXFpY1fSSVjgmDWnWcmXZdqdAsA4+o9TDwKoxd6OrtV1POHVnonW+OwtRy7WdROTMBANCkHqN26YUhAqTbiaHdGAaEALpAA", # nolint
+    "NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAdzgCMAnRRAVwhiLdIAoAdMAPQsAzgwEAbAJZ0BWCdIZQGATwHCAFpIjKAskTqTxcfgEpeEWo2ZbhpKOPF8IAAmf8NW3fsPG851wxwqETCzgC8zgR8YOqkpKjCiAICDFrkDABmUARwGADmkqTqLHQYkkQpaXCZ2XAAtNRQwjB1BIoQAqbmZhDmUoxKytwe2j39iirDmtp6BkY95iPKAILoTq4skuHOGQDsAApQeXDrrs6khUbb-ADK1JKo1fy4-md7N1p5RgAyUMqcPFeZ2c0AAbnQlNs9gA5KDgpTcC6kK4Rfjve6PBimF4uYE7XY3OB5eBkU54-EAIRYcRIZPJzi0qGpAEkACbXMAsVCsqDkZ5A+niKB0ODiDkAVW5vN8AuBJhx9Mp1NItNleMZLPZqLAgWEcFI-NxiqFIrF2qwcD1BrAatcPXJ8rV6Ie1TpwMkWrcYGEGKefiNeKIqAuJFCESktjdeLBkjyvPKLnDkkjtrxFGFRk9ADFlt8bgBRVN2hWK5yoI5aeMkbYRwEBxXpuiZ7YAFSw4vzJdLzlFHIwPpdDDq5YK0BDvTwbnr9IIUgIAGsM3BW+3C9O5anHevnEL0OIhgBGRAAJgADLgdmwCOPuAQTM4QEX8TcpKyTk-XHsAMJKVlRxVIiizjCKgqRkBk0Qvh6y4AKTCM8kT2t2zhIYqqF4gAvuhdoCkhW6uHqDCgtUUJXjeGqkBeAJMqQ96PgG+iEcR+bEaSFEACRcjy5AXvR5JcdKWa7PmZCFEMqbuL6WL+oqQbjmGO7JnW3YgXAcCegep7nk+wivpa+zVAAapIcDUNsx5dvSIG1BS+q0BQ2yaZZ5JQNSQZCsoK4ds5eLCG0RAOBCDA1kp-5ptATbqdsOZ5mu3b4aWI6VuOIUptuwKkMojwcqBRB5LqwhBYayE9hFzYRG2HZPglir5R6qXKchGSGGaXrEOILAwBA8EychDBENQCkACzVZuaroVhAoCox1TMaxPAcbq+q8WqAnkEJIlIuJ26SYOxX0nJCYKbWYUEY8UURENWk+cCunQcIBkMMZpkcq5Kr7Yq1k5LZpD2YmzgAKzaelzhve5fzRbmBY3Wcfn9YFkJJmlJWNuVziVXFpY1fSSVjgmDWnWcmXZdqdAsA4+o9TDwKoxd6OrtV1POHVnonR+OwtRy7WdROTMBANCkHqN27YShAqTbiGHdGAGEALpAA", # nolint
     "app",
     header = FALSE
   ),
@@ -911,7 +911,7 @@ shinyApp(
             clickable = TRUE
           )
         ),
-        lapply(1:20, \(c) {
+        lapply(1:20, function(c) {
           f7Slide(
             f7Card(
               title = sprintf("Slide %s", c)