From 79cf69b1c8fdb134d6fdef8f96cd1c7b841b4327 Mon Sep 17 00:00:00 2001 From: DivadNojnarg Date: Sat, 20 Jan 2024 22:37:46 +0100 Subject: [PATCH] tools vignette --- docs/articles/Gadgets.html | 4 +- docs/articles/shinyMobile_tools.html | 84 +++++++++++++++++++------- docs/pkgdown.yml | 2 +- vignettes/Gadgets.Rmd | 2 +- vignettes/shinyMobile_tools.Rmd | 90 +++++++++++++++++++++++----- 5 files changed, 143 insertions(+), 39 deletions(-) diff --git a/docs/articles/Gadgets.html b/docs/articles/Gadgets.html index e29aca29..97a55fc8 100644 --- a/docs/articles/Gadgets.html +++ b/docs/articles/Gadgets.html @@ -111,8 +111,8 @@

2024-01-20

shinyMobile is particularly well suited to build shiny -gagdet. To convert an existing app to a gadget, wrap it in the -shiny::runGadget() function.

+gagdets. To convert an existing app to a gadget, wrap +it in the shiny::runGadget() function.

 library(shiny)
 library(shinyMobile)
diff --git a/docs/articles/shinyMobile_tools.html b/docs/articles/shinyMobile_tools.html
index 28d37e2f..e01e5881 100644
--- a/docs/articles/shinyMobile_tools.html
+++ b/docs/articles/shinyMobile_tools.html
@@ -95,7 +95,8 @@ 
shinyMobile 0.1.0

 
 
 
-
+
+
 

   

       
shinyMobile Tools

@@ -139,11 +140,21 @@ 
Pull to RefreshpullToRefresh = TRUE in f7Page options will
 activate it. On the server side, an input, namely input$ptr is TRUE when
-ptr is refreshed and becomes NULL at the end of the animation. This
-allows to trigger updates/computations on the server side, for
-instance:

+ptr is refreshed and becomes NULL at the end of the animation (You may
+run the app below in full screen mode and hold a left click with your
+mouse from top to bottom):

+

+

+
+

+
+
+

 
-shinyApp(
+library(shiny)
+library(shinyMobile)
+
+shinyApp(
   ui = f7Page(
     title = "My app",
     options = list(pullToRefresh = TRUE),
@@ -197,10 +208,21 @@ 
Informations about your current
 
Description
 

 
shinyMobile has a predefined input, namely
-input$deviceInfo:

+input$deviceInfo.

+

+

+
+

+
+
+

 
-shiny::shinyApp(
+library(shiny)
+library(shinyMobile)
+
+shinyApp(
   ui = f7Page(
+    options = list(dark = FALSE),
     title = "My app",
     f7SingleLayout(
       navbar = f7Navbar(
@@ -282,9 +304,20 @@ 
Usecase
 
Below the example displays a card only when the app is on
 desktop.

+

+

+
+

+
+
+

 
-shinyApp(
+library(shiny)
+library(shinyMobile)
+
+shinyApp(
   ui = f7Page(
+    options = list(dark = FALSE),
     title = "My app",
     f7SingleLayout(
       navbar = f7Navbar(
@@ -303,13 +336,12 @@ 
Usecase    
     # generate a card only for desktop
     output$card <- renderUI({
-      if (input$deviceInfo$desktop) {
-        f7Card(
-          "This is a simple card with plain text,
-          but cards can also contain their own header,
-          footer, list view, image, or any other element."
-        )
-      }
+      req(input$deviceInfo$desktop)
+      f7Card(
+        "This is a simple card with plain text,
+        but cards can also contain their own header,
+        footer, list view, image, or any other element."
+      )
     })
   }
 )

@@ -320,10 +352,21 @@ 
Informations about Shiny inputs
 
shinyMobile has input$lastInputChanged
 which returns the name, value and type of the last changed input, see
-below:

+below.

+

+

+
+

+
+
+

 
-shinyApp(
+library(shiny)
+library(shinyMobile)
+
+shinyApp(
   ui = f7Page(
+    options = list(dark = FALSE),
     title = "My app",
     f7SingleLayout(
       navbar = f7Navbar(
@@ -359,9 +402,10 @@ 
Informations about Shiny inputs
 
Other information
 

-
input$shinyInfo gives the current workerId (for
-shinyapps.io, shiny server pro, rstudio connect), the unique sessionId
-(equal to session$token on the server side).

+
input$shinyInfo gives the current
+workerId (for shinyapps.io, shiny server pro, Posit
+Connect), the unique sessionId (equal to
+session$token on the server side).