## ----setup, echo=FALSE, message=FALSE----------------------------------------- library(bslib) ## ----eval=TRUE, echo=FALSE---------------------------------------------------- card( shinyMobile:::create_app_link( "NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAdzgCMAnRRAVwhiLdIAoAdMAPQsAzgwEAbAJZ0BWCdIZQGATwHCAFpIjKAskTqTxcfgEpeEWo2ZbhpKOPF8IAAmf8NW3fsPG851wxwqETCzgC8zgR8YOqkpKjCiAICDFrkDABmUARwGADmkqTqLHQYkkQpaXCZ2XAAtNRQwjB1BIoQAqbmZhDmUoxKytwe2j39iirDmtp6BkY95sTiRAyhADx1kU6uUnmxdOIscOFuYADEAKzZABxZ-Lj+zqhaANYn-GcZGQBMACYXF3uj3I9ne5wADOCAJwANmu1yBLmcyjgDiI1DBnwyBAIkP43XM5hGygAguhts4WJIThkAOwABSgeTgFNcpEKRjBAFVUL8oORnGTUIjXK4iKh2SRQhFWaKpLZZaLIkRlgxMVcCLcoPikUqenqHrrnHSAMpaPJGAAyUGUnB4jyV0AAbnQlDTaQA5KAupTcdmkTkRfg8vkCoWmQ1K1x0gBCywILwAKhyWcHefzjkU4PAIw7Raa4Hl4GRFfnaTGWHESKWlVpUJWAJK-MFZ+AAfXKwhFUaV-EkAHkTc5W748wax2WK1WIDXRXXG82g2AR22YL9uz3XPwdAARYfqbOjo16icmSNR2PxpMp6ImuCkZx8hhvDi-XxnicFosUe3HyeV0hqwnWsIHrUgmzBCgoAOOA2yfF5X18c9N1OABRaAYMfJQEKIN8dRQj8-2jcsAKAoi51AhcwV+SRhGgow4OwxCN03fgd1o+jjng5iwGA5x9SjQie0vIgE2TANUzAABhdQoAgZllVVfdD1zP8v2LX8ULsPJLVozSUOccQ0FQcQhmgeBhG4JYVmEISDM3DI2AISUZ2shgTGcEA+Ps40SOnWcfNcedwMXJ4mnIcFojctt7kUlY7MCzcjLoVETjc5DEqjNy0pVFYMsy-jvJQgBfIqBJ7crRUqgS7OEaonWqGknJc7hgtwZw7TA9q6uEYRyggDyvN6I19DqhgGtQhqS2CgASFdO3aoaexYdNyAAMVpIVZ3FFzpUMvSAuU+AwU7fDN0q1xKuKhYRroMaJqmnhZpXNdFonFbQzgDatr4nb+r2+V9K0g9jqXNczoq0882uwlbvuuBJp-VrKNIGaoJgxjn0Qt6-w+jNvvJX6JX+k5AcO+CTkTLAuVQviLsKo0YeGpVRvqhHHuRsCZpouiMe43C4Bx5bVq+zbCfIv6pVJg6iopiI1pJS0TVp8j6aum6lSM9BTO4cy4EstzbPaxyIGc-qrNy9zPInVnxvZpHguAYBUHCuBIv4aLYrckwAF0faFzc8fWsXUEOyWIABmXyKVbKIkN4A3J9sq6YnJmlSZx5SoGsBip9oA", # nolint "app", header = FALSE ), full_screen = TRUE, style = "width: 393px; margin: 0 auto; float: none;" ) ## ----eval=FALSE--------------------------------------------------------------- # library(shiny) # library(shinyMobile) # # colors <- c( # lightblue = "#5ac8fa", # pink = "#ff2d55", # teal = "#009688", # yellow = "#ffcc00" # ) # # shinyApp( # ui = f7Page( # title = "Update App", # options = ( # list( # color = "#5ac8fa" # ) # ), # f7SingleLayout( # navbar = f7Navbar(title = "Update App"), # f7BlockTitle("Update theme"), # f7Segment( # f7Button( # inputId = "theme_ios", # "iOS theme" # ), # f7Button( # inputId = "theme_md", # "MD theme" # ) # ), # f7BlockTitle("Set dark mode"), # f7Segment( # f7Button( # inputId = "enable_darkmode", # "Enable darkmode" # ), # f7Button( # inputId = "disable_darkmode", # "Disable darkmode" # ) # ), # f7BlockTitle("Change color theme"), # f7Segment( # tagList( # lapply(names(colors), # function(color) { # f7Button( # inputId = paste0("color_", color), # label = color, # color = color, # ) # } # ) # ) # ) # ) # ), # server = function(input, output, session) { # # observeEvent(input$theme_ios, { # updateF7App( # options = list( # theme = "ios" # ) # ) # }) # # observeEvent(input$theme_md, { # updateF7App( # options = list( # theme = "md" # ) # ) # }) # # observeEvent(input$enable_darkmode, { # updateF7App( # options = list( # dark = TRUE # ) # ) # }) # # observeEvent(input$disable_darkmode, { # updateF7App( # options = list( # dark = FALSE # ) # ) # }) # # lapply(names(colors), function(color) { # observeEvent(input[[paste0("color_", color)]], { # updateF7App( # options = list( # color = colors[color] # ) # ) # }) # }) # # } # ) ## ----eval=TRUE, echo=FALSE---------------------------------------------------- card( shinyMobile:::create_app_link( "NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAdzgCMAnRRAVwhiLdIAoAdMAPQsAzgwEAbAJZ0BWCdIZQGATwHCAFpIjKAskTqTxcfgEpeEWo2ZbhpKOPF8IAAmf8NW3fsPG851wxwqETCzgC8zgR8YOqkpKjCiAICDFrkDABmUARwGADmkqTqLHQYkkQpaXCZ2XAAtNRQwjB1BIoQAqbmZhDmUoxKytwe2j39iirDmtp6BkY95iPKAILoTq4skuHOGQDsAApQeXDrrs6khUbb-ACqqAAmUOTOq6j8uP5newDKWnlGABkoMpODxPmdnNAAG50JTbPYAOSgMKU3AupCuEVuDyecBe6FMHxcEJ2uwAQuIiAQANYAFUuJ2xj2eewAIpJ7EQ8pESBlJHkWIoLiRCeCvrtvnA8vAyKcSaSySw4iQ5fLnFpUEqAJL3a5gPJERXK3p+Ylqtxgb7qIjUUnszncgCM-DFEJMRPNeyNpBVrpJGu1uqx+sNSp9EAATO8-RD+FabXaOZTuVGwDHnO7016w76zWqA6QdXqWDjyNG8-KmbieRA+XkXRWzj15Zm882Mx7nMJqlDqvC2ARhRBuAXcM5QZrSGPu8JhOUICZnCAxfpuwxewBRXuygsAEgN3pIY+XjbZSa5qohkiDFvu57yztN5vRmIt9uT5wZ5efcAAHqQ9VpTRQkkUIoBrPkGBgZw7wdb81VIZRUDxYNiFrSQoIbFsxQAX3bVwVzoNdN23Hg9wPHNI2PP0zwdS8zhfFCLWWCAiCKPtYI-Rj4Plch-0A4D1TAlx7GqUgsJJfDnDw8xCOIuAtwoMiIEnXcS2ZOBqMbdTcQAMV2V56NcIhUCHUIIikWwjLOTiuW2SywUbeU6EogB5ak9QATTgKBfKgdQAEIePNZwXONABhKAIBycQ9VclgEoSIK0ycpt0yk1wMrcU9dnfC902vPVbLyVNO14hk9QAdSUCA-mCiFEOQvU0MgmB6oYv8AODAEiCIDynmceAxy1Zx1GRPFwIgOBbTC8NhGSv0ssrPMZLzT4cO6MAcIAXSAA", # nolint "app", header = FALSE ), full_screen = TRUE, style = "width: 393px; margin: 0 auto; float: none;" ) ## ----eval=FALSE--------------------------------------------------------------- # library(shiny) # library(shinyMobile) # # shinyApp( # ui = f7Page( # title = "Update App", # f7SingleLayout( # navbar = f7Navbar(title = "Update App"), # f7BlockTitle("Update f7Dialog configuration"), # f7Segment( # f7Button( # inputId = "goButton", # "Show f7Dialog 1" # ), # f7Button( # inputId = "goButton2", # "Show f7Dialog 2" # ), # f7Button( # inputId = "update", # "Update config" # ) # ), # ) # ), # server = function(input, output, session) { # observeEvent(input$goButton, { # f7Dialog( # id = "dialog1", # title = "Dialog title", # text = "This is a confirm dialog", # type = "confirm" # ) # }) # # observeEvent(input$goButton2, { # f7Dialog( # title = "Another dialog title", # text = "This is an alert" # ) # }) # # observeEvent(input$update, { # updateF7App( # options = list( # dialog = list( # buttonOk = "Yeaaaah!", # buttonCancel = "Ouuups!" # ) # ) # ) # # f7Dialog( # id = "dialog2", # title = "Warning", # type = "confirm", # text = "Look at me, I have a new buttons!" # ) # # }) # # } # ) ## ----eval=TRUE, echo=FALSE---------------------------------------------------- card( shinyMobile:::create_app_link( "NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAdzgCMAnRRAVwhiLdIAoAdMAPQsAzgwEAbAJZ0BWCdIZQGATwHCAFpIjKAskTqTxcfgEpeEWo2ZbhpKOPF8IAAmf8NW3fsPG851wxwqETCzgC8zgR8YOqkpKjCiAICDFrkDABmUARwGADmkqTqLHQYkkQpaXCZ2XAAtNRQwjB1BIoQAqbmZhDmUoxKytwe2j39iirDmtp6BkY95iPKAILoTq4skuHOGQDsAApQeXDrrs6khUbb-ACqqAAmUOTOAKJkhcr8uP5newDKWjyRgAMlBlJweD8zs5oAA3OhKbZ7AByUHhSm4F1IVwitweTzgzmyFxIzg0cDgpGcNjsEBypm+LmhO12fzgeXgZFOzJZACEWHESNyedSIKgBQBJe7XMB5Ij8wW9PxMkXOcRQOhwcQygDiRAAhPwocyTIzVXsFaQhcaeVpxaQpTKWPjyF8bcz1ZrtbiwHdHs9iBAMpI8kaVSazSKLQKrRBhbaxZLpT7AsJKW7wzzPVqZVg4GnSGHVT0eSWzmXTT80wxYdUkWwCCS43aBbhnBD7W208JhOUICZnCBjfpq7WXrWuS3SAASOWWkhtoeZlnLRt9v7qCmQ5euPKpZPOAAqWBuL0jtoP-GJfYAjBnVXQYyRQhEpLZ4x7JO-3TzyAAPKkfWRIgLmDAgnj7e9VTOSRAyRXYJUDaItAyIgGR-ZliHEIgGG2ZEbmBYEMNcSsdzON9t2gs5-0AtwwAAEUkewiFDZUqNcWDSQiPZEOtMApDyWJH3EOgAH1gwcdCyOhLCcLwgiiOk5wy1Ld0VOcABfBZwxHaoxwnHgp2nZ1-TgRd3RMgkADFdjeLEhgwyRLxQNcSDvNiRSIVAmxfNUv0o6DH0VXyKI-LN-LCkUaJlYDQNgiCSCg9jqTg7iEKQ-gULQsBSOS1xZNwiJ8MI4jy1K9ToQq5TjS08xhzoUc4HHChDMTGdU0pczl0s8gbLsj5IqcmVrzcpLmS8nztlC0qgtjEKItK1xpqU6FoqAkDJDAhKlXPdjOJcNLeLjTKg2y3K8oK+SSpW5TdtVZa8vOOAAJlRjmNYu7oP2+CjuiAShJYETxMMcQpMey6ioUxbqqUqqSLUmqyw07owA0gBdIA", # nolint "app", header = FALSE ), full_screen = TRUE, style = "width: 393px; margin: 0 auto; float: none;" ) ## ----eval=FALSE--------------------------------------------------------------- # library(shiny) # library(shinyMobile) # # shinyApp( # ui = f7Page( # title = "Update Entity", # f7SingleLayout( # navbar = f7Navbar(title = "Update action sheet instance"), # f7Segment( # f7Button( # inputId = "goButton", # label = "Go!" # ), # f7Button( # inputId = "update", # label = "Update config" # ), # f7Button( # inputId = "reset", # label = "Reset" # ) # ) # ) # ), # server = function(input, output, session) { # observeEvent(input$goButton, { # f7ActionSheet( # grid = TRUE, # id = "action1", # buttons = list( # list( # text = "Notification", # icon = f7Icon("info"), # color = NULL # ), # list( # text = "Dialog", # icon = f7Icon("lightbulb_fill"), # color = NULL # ) # ) # ) # }) # # observeEvent(input$update, { # updateF7Entity( # id = "action1", # options = list( # buttons = list( # list( # text = "Notification", # icon = f7Icon("info"), # color = NULL # ) # ) # ) # ) # }) # # observeEvent(input$reset, { # updateF7Entity( # id = "action1", # options = list( # buttons = list( # list( # text = "Notification", # icon = f7Icon("info"), # color = NULL # ), # list( # text = "Dialog", # icon = f7Icon("lightbulb_fill"), # color = NULL # ) # ) # ) # ) # }) # } # ) ## ----eval=TRUE, echo=FALSE---------------------------------------------------- card( shinyMobile:::create_app_link( "NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAdzgCMAnRRAVwhiLdIAoAdMAPQsAzgwEAbAJZ0BWCdIZQGATwHCAFpIjKAskTqTxcfgEpeEWo2ZbhpKOPF8IAAmf8NW3fsPG851wxwqETCzgC8zgR8YOqkpKjCiAICDFrkDABmUARwGADmkqTqLHQYkkQpaXCZ2XAAtNRQwjB1BIoQAqbmZhDmUoxKytwe2j39iirDmtp6BkY95iPKAILoTq4skuHOGQDsAApQeXDrrs6khUbb-ADiUCzHwvy4-md7AMpaeUYAMlDKnB4rzOzmgADc6EptnsAHJQCFKbgXUhXCL8PZ3B6+EwvFwgna7d5wPLwMinfEEgBCLDiJHJFOcWlQNIAkgATa5gFioNlQcjPYEM8RQOhwcScgCqPL5cGcmOO-EFFJxSreu2ptIg9IpTNZHLRYECwjgpAFeIZzmFovFBqwcGNprAqpBPWVuIpe0p4iIBAA1tq1fKTs6zpJ9W4wDBlHl7gq-OaGaRlKhZQbjTBJARJAwCEYzRbXGD7CxU84AKwABndBboRAYbOqAGEiN6GJyAMQAJgAjABOABsGQAzPma3WGwwAOphorbbtVkOF4twABiJFInwAXqWACzd6sWoviEsAFTgAA9SM3Wx2ewPh6OLVaxWfL5zYJwyM4iBlnMIiPARRfIqCYuqqrpnBBKp4saDBgtU0JsAQFx0rqpC4N+NLMuhf72sI5QQCYzggIK+iwfBACi8FkmhAAk3K8uQGEkaBoJwNQAD6R7OAAPHUzi7GWqoMTKK67BRZCFEMIZhpyUYxlij74kQqAoRAoQRFItgBiC7bODoIikM4orGSatAUM4FbOFAEAct2i7OEeJbbBA7FcfYzgCM485Vm4rEgk5cCvkZESoE05AVtwrmcUeGH8AApKYB5CiKL4XiFEYwuxlqpeIACEIEWhBYEJgAvsVfkgmR1SUdRPB0UaJrMcJ0rkGJEnItJ-mMuG-DybGvjJVVqkERplqSNpDmBdslaed5FYLt1S7HkF6WcpWiXxgWOXWsF74cFw36-v+gHTHkhUMhVrgVeVryld0YClQAukAA", # nolint "app", header = FALSE ), full_screen = TRUE, style = "width: 393px; margin: 0 auto; float: none;" ) ## ----eval=FALSE--------------------------------------------------------------- # library(shiny) # library(shinyMobile) # # shinyApp( # ui = f7Page( # title = "Gauges", # f7SingleLayout( # navbar = f7Navbar(title = "f7Gauge"), # f7Segment( # f7Button( # inputId = "update", # label = "Update Gauge" # ), # f7Button( # inputId = "reset", # label = "Reset" # ) # ), # f7Block( # f7Gauge( # id = "mygauge", # type = "semicircle", # value = 50, # borderColor = "#2196f3", # borderWidth = 10, # valueFontSize = 41, # valueTextColor = "#2196f3", # labelText = "amount of something" # ) # ) # ) # ), # server = function(input, output, session) { # observeEvent(input$update, { # new_val <- 75 # updateF7Entity( # id = "mygauge", # options = list( # # Must be between 0 and 1 # value = new_val / 100, # valueText = paste0(new_val, "%"), # labelText = "New label!" # ) # ) # }) # # observeEvent(input$reset, { # updateF7Entity( # id = "mygauge", # options = list( # value = 50 / 100, # valueText = "50%", # labelText = "amount of something" # ) # ) # }) # } # ) ## ----eval=TRUE, echo=FALSE---------------------------------------------------- card( shinyMobile:::create_app_link( "NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAdzgCMAnRRAVwhiLdIAoAdMAPQsAzgwEAbAJZ0BWCdIZQGATwHCAFpIjKAskTqTxcfgEpeEWo2ZbhpKOPF8IAAmf8NW3fsPG851wxwqETCzgC8zgR8YOqkpKjCiAICDFrkDABmUARwGADmkqTqLHQYkkQpaXCZ2XAAtNRQwjB1BIoQAqbmZhDmUoxKytwe2j39iirDmtp6BkY95iPKAILoTq4skuHOGQDsAApQeXDrrs6khUbb-DrKzmio-Lj+Z3sAylp5RgAyUMqcPBeZ2c0AAbnQlNs9gA5KDgpTcC6kK4Rfh7b6SWymZ4uYE7XZvOB5eBkU54-EAIRYcRIZPJzi0qGpAEkACbXMAsVCsqDkJ5A+niKB0ODiDkAVW5vN8AuBJhx9Mp1NItNleMZLPZqLAgWEcFI-NxiqFIrF2qwcD1BrAatcPXJ8rV6MxgKNioZWrcYBgymIZGypGEhvdZw4rLgHL9dgIgeDIecQvQ4iGAEZEABmXA7Ngx8oQbiSEzOEC2+nO2wAcQYnFQdPj50uEYi3wAogAVNstrBvYCSAC6CvrZ0TqGT3DTKYADFmMjmLrSAFZF8ukZnkGDcIxxarCYALvsme1Do8hgC+J-pF6PjtxeoYoOqULneYLECZpCzAPfWb1wmEeaLEs3RXZkIHDAAPAtPX4KMAyDPA3Ddes7AYY5SA5ABiH1YJjeCs1LY1hVFbY2ywcUWwvAV9DvB8WwfUkNVIAASLkeXILMgPJVjpQAMV2FsyEKIZSxgkho1jPwkLOIhUHnCBQgiKRbDrPETWIiIeOWb43hbUsLztAVzwFKi6BouA6IoHhGKY3V9Q4tVuPIPiBKRYSpNcUT-VwuNyRkuSFITF0VOBNSzWcUjyL0tULyMt0XlPbowFPPsgA", # nolint "app", header = FALSE ), full_screen = TRUE, style = "width: 393px; margin: 0 auto; float: none;" ) ## ----eval=FALSE--------------------------------------------------------------- # library(shiny) # library(shinyMobile) # # shinyApp( # ui = f7Page( # title = "My app", # f7SingleLayout( # navbar = f7Navbar(title = "f7List"), # f7Segment( # f7Button( # inputId = "update", # label = "Update" # ), # f7Button( # inputId = "reset", # label = "Reset" # ) # ), # f7List( # id = "mycontacts", # mode = "contacts", # lapply(1:3, function(i) { # f7ListGroup( # title = LETTERS[i], # lapply(1:10, function(j) f7ListItem(letters[j])) # ) # }) # ) # ) # ), # server = function(input, output, session) { # f7ListIndex(id = "contacts", # target = "#mycontacts", # label = TRUE) # # observeEvent(input$update, { # updateF7Entity( # "contacts", # options = list( # label = FALSE # ) # ) # }) # # observeEvent(input$reset, { # updateF7Entity( # "contacts", # options = list( # label = TRUE # ) # ) # }) # # } # ) ## ----eval=TRUE, echo=FALSE---------------------------------------------------- card( shinyMobile:::create_app_link( "NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAdzgCMAnRRAVwhiLdIAoAdMAPQsAzgwEAbAJZ0BWCdIZQGATwHCAFpIjKAskTqTxcfgEpeEWo2ZbhpKOPF8IAAmf8NW3fsPG851wxwqETCzgC8zgR8YOqkpKjCiAICDFrkDABmUARwGADmkqTqLHQYkkQpaXCZ2XAAtNRQwjB1BIoQAqbmZhDmUoxKytwe2j39iirDmtp6BkY95iPKAILoTq4skuHOGQDsAApQeXDrrs6khUbb-Hv76kSkRABCDETUwtX8uP5newDKWjyRgAMlBlJweD8zs5oAA3OhKbZ7AByUHhSm4F1IVwiNwO90eLzeHwYpm+LmhO12fzgeXgZFOlKpTxYcRIjKZzi0qFZAEkACbXMCPPJAuB3B5EL5QzniKB0ODiIUAeVQFGcqAJUrAMuhJnJnOZrMeEA5TO5fMFuLALFQ-Kg5GlFMNcoVSutAFU7Q7fLqzj0mQH-T99T8SbDqki2AQLuyLaRcM4ITyE84PsJhOUICZnCAZfpw3AAKIRhnxgAkIrFEseibzzt++MlRPe1TNZ0kVrcYE1ksYxOqAEYnYainB4EL7QwANYjzmkZRqoWoI6+A2c3uPUIRKS2dvQ3c8FgMd3d2LxRLJAj8iAYDKKeDUIgz3ZlCqoOU5e7ifnVNTBBhSGEOpBwABgAJgAFgADzAqCQIwAArVA8jJP0D0kPdj1PfhzwSJIBGvW971gOAnxfN8BA-Wpv1-MRhAAoCQIgmC4MgupwKQlC0IbJlD24bChTwy9CJvO8HzI59p1fcoqM-OBaL-BjnyYtjYJYuoAGYuNQvxeMNVwCDQWMXGtHQ4EiZQCCkCBdKDQN1yZIoWBgOht0ifczlwuJ8KvMSSMfKSZPfeTFPoxjgLUtiEOQ3THM5byLwIojxNI8jpMo6ivyIH8lIi5ioPU+DONiudDUS3zROIiT0uCuSaJyuj-xUyKWKK9jtNKnV9NcezgwbABfBYGwLaoIxLCgeArW17XIOs-Rmn0ADFdiLMhCiGdDu03fRXlbBhhz0w0iFQEz3P4rbXAXJdrWCHlUDKjcTttfYRHUbYABUsA9It4qcogcoRBhtiW5ZgT+X7Lo1LVzswyEerOfjBOtYTkv8mqgsy0LGrylqCtYjTBx0roEd6v7KWc1zYb3CqRJSgLJIo2SsoUnHwrxqLCeJsA+r1P0+qGn4Bu6MABoAXSAA", # nolint "app", header = FALSE ), full_screen = TRUE, style = "width: 393px; margin: 0 auto; float: none;" ) ## ----eval=FALSE--------------------------------------------------------------- # library(shiny) # library(shinyMobile) # # shinyApp( # ui = f7Page( # title = "f7PhotoBrowser", # f7SingleLayout( # navbar = f7Navbar(title = "f7PhotoBrowser"), # f7Segment( # f7Button( # inputId = "togglePhoto", # label = "Open photo" # ), # f7Button( # inputId = "update", # label = "Update" # ) # ) # ) # ), # server = function(input, output, session) { # observeEvent(input$togglePhoto, { # f7PhotoBrowser( # id = "photobrowser1", # theme = "dark", # type = "page", # photos = list( # list(url = "https://cdn.framework7.io/placeholder/sports-1024x1024-1.jpg"), # list(url = "https://cdn.framework7.io/placeholder/sports-1024x1024-2.jpg"), # list(url = "https://cdn.framework7.io/placeholder/sports-1024x1024-3.jpg", # caption = "Me cycling") # ), # thumbs = c( # "https://cdn.framework7.io/placeholder/sports-1024x1024-1.jpg", # "https://cdn.framework7.io/placeholder/sports-1024x1024-2.jpg", # "https://cdn.framework7.io/placeholder/sports-1024x1024-3.jpg" # ) # ) # }) # # observeEvent(input$update, { # updateF7Entity( # "photobrowser1", # options = list( # type = "popup", # popupPush = TRUE, # toolbar = FALSE, # photos = list( # list(url = "https://cdn.framework7.io/placeholder/sports-1024x1024-1.jpg") # ), # thumbs = list("https://cdn.framework7.io/placeholder/sports-1024x1024-1.jpg") # ) # ) # }) # } # ) ## ----eval=TRUE, echo=FALSE---------------------------------------------------- card( shinyMobile:::create_app_link( "NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAdzgCMAnRRAVwhiLdIAoAdMAPQsAzgwEAbAJZ0BWCdIZQGATwHCAFpIjKAskTqTxcfgEpeEWo2ZbhpKOPF8IAAmf8NW3fsPG851wxwqETCzgC8zgR8YOqkpKjCiAICDFrkDABmUARwGADmkqTqLHQYkkQpaXCZ2XAAtNRQwjB1BIoQAqbmZhDmUoxKytwe2j39iirDmtp6BkY95iPKAILoTq4skuHOGQDsAApQeXDrrs6khUbb-PtEqCyo-Lj+Z3sAylp5RgAyUMqcPBeZ2c0AAbnQlNs9gA5KDgpSnYGuC6kK4Rfh7W73R5gIFnEzPFxI95wPLwMiI4m7ABCLDiJEpSOcWnupAAkgATa5gUhEPJfXy4NxEpmucRQOhwcTcgAqfIFzixD34eOBBNVrxpdN5EEZSJZdM53IeHKg5CewtFZ3Fkul6LAAFVUKbyIq7sqwD0mV78S91UThNVQdUoWwCBcGQbSEKAayhYHhMJyhATM4QHjY3SACSBUIAHjqzkCEA51X2qQpUaz5AAHqQfa4M3RAwxgwBRYOViCs6vyoxC9MizVK1B61ySLn24LYp4a5GXODcnTKHaSBi2ZzTj2Eq17GVwOtjs78WukC03d2oSIkchkWdDpn8GWaUKSUIwFcZNcbrdXuDBhghTZZxhFoJQAEIVQffEd1FACIQuGB9zrAB5OlWWiXMumghtnAAX1wpsW3bTseCrE0zTgAcNQo8gADFdjbMhCiGOdmUnNwwF-e8rTuCMIFCCIpFsI9XFAyRUDgOUAGFxBCRcIhlLAHTbWCrSgCBJBgSjtjo5ZvjeVS2NcAg5MDFCIDbYQCDQBTnCUlS1NFABiZxpJvChSGcGARC84gyCgLRznURduOg4FXPFf46XA2LjOvMhPO2AByPMOUkUFInFRMwn4biwAAPni1w0oyrKmmEXKwFBSQ4GofgivC0VSsy0yKqq1Ajl8RqrStFrypy-gwQhBgGuK5r0ta7LKqGuERrqOg8gavMBEmnrer6yaBpmyA5qUOotAgaoxqajaSq2trBp5BcGpHFa1vGzaysunbUjyWITrOs683AupC2+LQAGtziILL5M3S9nD+9avr6qBtqqqQIGB39WjM7rZPklaoBh2HgXujLcbxgnQSJ77VsJx6zn6l6Oq61oPLvQqqfxi7pqqug5IIQGGuhOqEtvLyMGFkmyY20WqYl07qYp0n4tF5K2Nw1xcIIl48O6MA8IAXSAA", # nolint "app", header = FALSE ), full_screen = TRUE, style = "width: 393px; margin: 0 auto; float: none;" ) ## ----eval=FALSE--------------------------------------------------------------- # library(shiny) # library(shinyMobile) # # shinyApp( # ui = f7Page( # title = "Popup", # f7SingleLayout( # navbar = f7Navbar( # title = "f7Popup" # ), # f7Segment( # f7Button( # inputId = "toggle", # label = "Toggle Popup" # ), # f7Button( # inputId = "update", # label = "Update Popup") # ) # ) # ), # server = function(input, output, session) { # output$res <- renderPrint(input$text) # # observeEvent(input$toggle, { # f7Popup( # id = "popup", # title = "My first popup", # f7Text( # "text", "Popup content", # "This is my first popup ever, I swear!" # ), # verbatimTextOutput("res") # ) # }) # # observeEvent(input$update, { # updateF7Entity( # id = "popup", # options = list( # swipeToClose = TRUE, # animate = FALSE, # closeOnEscape = TRUE, # # Content must contain the popup # # layout!!! # content = '
#
#
#
#
#
#
Popup
#
# # Close #
#
#
#
#
New content ...
#
#
#
#
' # ) # ) # }) # } # ) ## ----eval=TRUE, echo=FALSE---------------------------------------------------- card( shinyMobile:::create_app_link( "NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAdzgCMAnRRAVwhiLdIAoAdMAPQsAzgwEAbAJZ0BWCdIZQGATwHCAFpIjKAskTqTxcfgEpeEWo2ZbhpKOPF8IAAmf8NW3fsPG851wxwqETCzgC8zgR8YOqkpKjCiAICDFrkDABmUARwGADmkqTqLHQYkkQpaXCZ2XAAtNRQwjB1BIoQAqbmZhDmUoxKytwe2j39iirDmtp6BkY95gSFknChADx1ztDwwtyogUuoCxAjygCC6E6uLJLhzhkA7AAKUHlwV67OpIVGd-wAogAPVBQCAAEygdF+wjgSgI6joSn4uH8n0eAGUtHkjAAZKDKTg8VGfLZQABuiIYd0eADlyZSPiTXN9SL8IvwMbCGPDKc5qIV1F9Unk3gxkcSmcISnSKUpqQ90dL6UpGUzXJy4QiVRK1a5JGC-mAYZqAIzItwuXUkuDA0EQqFwO4AFSwAFV-jqmT0rd6vSjLSTOXl4GRVYGHgAhFhxEhhplaVDRgCSBvZYBYqAh5HFAd14khcHEhtdmag2bAntcJn9VseUZjEDjJITydTbjAgRhpBzVtc+bohcNWFWcG7FdzJN9k5rTLr4iIBAA1k37gquTylE7haLuHYGG9SCnDcbueozWAp58TM4AKQAPhvq4AEvq4AB5CDo9fqbjVz2PHFJFsFd83QcQhhhABHAB9ewSDybglm+VZq3uNgCG+WNJGvEBKzRB5ANsJNyBgRDllWYBJAAXUvEkAF9aOca970fR4ADFOHBX8Z3DCN5yXFdUGiGkiCKLF7k4sEugnJjbwfVcRNIDi2DBX8JV9P9LRhBgyWqal0MwxsW1IXBnEJRNSBwiV9G03T-l00NjIAEgzLM4FM3CZNcss4DYh5-jIQohjw-Vj2-c8eKZIhUEM0IIikYC8NcMEgMhIx61IEg7jYs4cXRD0ZKrT1LwYiVrLoWy4HsigeGcztRw8z1vPIPyApZYLCucUK0xPeEIrw6LYruBKiU65LUodDKsoiF13TwxiSt9OjujAOiqKAA", # nolint "app", header = FALSE ), full_screen = TRUE, style = "width: 393px; margin: 0 auto; float: none;" ) ## ----eval=FALSE--------------------------------------------------------------- # library(shiny) # library(shinyMobile) # # cities <- names(precip) # # shinyApp( # ui = f7Page( # title = "Expandable searchbar", # f7SingleLayout( # navbar = f7Navbar( # title = "f7Searchbar with trigger", # subNavbar = f7SubNavbar( # f7Searchbar( # id = "search1", # expandable = TRUE # ) # ) # ), # f7Segment( # f7Button( # inputId = "update", # label = "Update" # ), # f7Button( # inputId = "reset", # label = "Reset" # ) # ), # f7Block( # f7SearchbarTrigger(targetId = "search1") # ) %>% f7HideOnSearch(), # f7List( # lapply(seq_along(cities), function(i) { # f7ListItem(cities[i]) # }) # ) %>% f7Found(), # f7Block( # p("Nothing found") # ) %>% f7NotFound() # ) # ), # server = function(input, output) { # observeEvent(input$update, { # updateF7Entity( # id = "search1", # options = list( # disableButton = FALSE # ) # ) # }) # # observeEvent(input$reset, { # updateF7Entity( # id = "search1", # options = list( # disableButton = TRUE # ) # ) # }) # } # ) ## ----eval=TRUE, echo=FALSE---------------------------------------------------- card( shinyMobile:::create_app_link( "NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAdzgCMAnRRAVwhiLdIAoAdMAPQsAzgwEAbAJZ0BWCdIZQGATwHCAFpIjKAskTqTxcfgEpeEWo2ZbhpKOPF8IAAmf8NW3fsPG851wxwqETCzgC8zgR8YOqkpKjCiAICDFrkDABmUARwGADmkqTqLHQYkkQpaXCZ2XAAtNRQwjB1BIoQAqbmZhDmUoxKytwe2j39iirDmtp6BkY95iPKAILoTq4skuHOGQDsAApQeXDrrs6khUbb-ADK1JKo1fy4-md7N1p5RgAyUMqcPFeZ2c0AAbnQlNs9gA5KDgpTcC6kK4Rfjve6PBimF4uYE7XY3OB5eBkU54-EAIRYcRIZPJzi0qGpAEkACbXMAsVCsqDkZ5A+niKB0ODiDkAVW5vN8AuBJhx9Mp1NItNleMZLPZqLAgWEcFI-NxiqFIrF2qwcD1BrAatcPXJ8rV6Ie1TpwMkWrcYGEGKefiNeKIqAuJFCESktjdeLBkjyvPKLnDkkjtrxFGFRk9ADFlt8bgBRVN2hWK5yoI5aeMkbYRwEBxXpuiZ7YAFSw4vzJdLzlFHIwPpdDDq5YK0BDvTwbnr9IIUgIAGsM3BW+3C9O5anHevnEL0OIhgBGRAAJgADLgdmwCOPuAQTM4QEX8TcpKyTk-XHsAMJKVlRxVIiizjCKgqRkBk0Qvh6y4AKTCM8kT2t2zhIYqqF4gAvuhdoCkhW6uHqDCgtUUJXjeGqkBeAJMqQ96PgG+iEcR+bEaSFEACRcjy5AXvR5JcdKWa7PmZCFEMqbuL6WL+oqQbjmGO7JnW3YgXAcCegep7nk+wivpa+zVAAapIcDUNsx5dvSIG1BS+q0BQ2yaZZ5JQNSQZCsoK4ds5eLCG0RAOBCDA1kp-5ptATbqdsOZ5mu3b4aWI6VuOIUptuwKkMojwcqBRB5LqwhBYayE9hFzYRG2HZPglir5R6qXKchGSGGaXrEOILAwBA8EychDBENQCkACzVZuaroVhAoCox1TMaxPAcbq+q8WqAnkEJIlIuJ26SYOxX0nJCYKbWYUEY8UURENWk+cCunQcIBkMMZpkcq5Kr7Yq1k5LZpD2YmzgAKzaelzhve5fzRbmBY3Wcfn9YFkJJmlJWNuVziVXFpY1fSSVjgmDWnWcmXZdqdAsA4+o9TDwKoxd6OrtV1POHVnonR+OwtRy7WdROTMBANCkHqN27YShAqTbiGHdGAGEALpAA", # nolint "app", header = FALSE ), full_screen = TRUE, style = "width: 393px; margin: 0 auto; float: none;" ) ## ----eval=FALSE--------------------------------------------------------------- # library(shiny) # library(shinyMobile) # # shinyApp( # ui = f7Page( # title = "Swiper", # f7SingleLayout( # navbar = f7Navbar(title = "f7Swiper"), # f7Segment( # f7Button( # inputId = "update", # label = "Update" # ), # f7Button( # inputId = "reset", # label = "Reset" # ) # ), # f7Swiper( # id = "swiper", # options = list( # navigation = list( # enabled = FALSE # ), # pagination = list( # enabled = TRUE, # el = ".swiper-pagination", # clickable = TRUE # ) # ), # lapply(1:20, function(c) { # f7Slide( # f7Card( # title = sprintf("Slide %s", c) # ) # ) # }) # ) # ) # ), # server = function(input, output) { # observeEvent(input$update, { # updateF7Entity( # "swiper", # options = list( # speed = 100, # slidesPerView = 2, # spaceBetween = 10, # autoplay = TRUE, # scrollbar = list( # enabled = FALSE # ), # pagination = list( # type = "progressbar", # enabled = TRUE # ), # grid = list( # fill = "columns", # rows = 4 # ) # ) # ) # }) # # observeEvent(input$reset, { # updateF7Entity( # "swiper", # options = list( # speed = 400, # slidesPerView = "auto", # spaceBetween = 50, # autoplay = FALSE, # scrollbar = list( # enabled = TRUE # ), # pagination = list( # type = "bullets", # enabled = TRUE # ), # grid = list( # fill = "column", # rows = 1 # ) # ) # ) # }) # } # )