After upgrading to 2.0, updateF7Login doesn't work!

[korterling]

hi ,@DivadNojnarg

I have a code ,it is work in version 1.0;
but after upgrading to 2.0, updateF7Login doesn't work!
can you help me,the code is as follow:

library(shiny)
library(shinyMobile)

ui <- f7Page(
  title = "shinyMobile App",
  f7SingleLayout(
    navbar = f7Navbar(title = "Login Demo"),
    f7Login(
      id = "login",
      title = "Login",
      subtitle = "Please log in to continue",
      footer = tagList(
        f7Link(label = "Forgot password?", href = "#"),
        f7Link(label = "Sign up", href = "#")
      )
    ),
    f7Button(inputId = "login_btn", label = "Log In")
  )
)

server <- function(input, output, session) {
  observeEvent(input$`login-submit`, {
    updateF7Login(
      id = "login",
      session = session,
      user='abc',password='abc',cancel=T
      
    )
  })
}

shinyApp(ui, server)

[DivadNojnarg]

Hi,

Sorry we made some changes here and you have to come up with your own server logic implementation as a form of module like with myModuleServer defined below. f7Login is the UI module so your custom module must share the same id when you call it (see below).
You can have a look at the f7LoginServer code for inspiration or use it directly but this isn't secured.

library(shiny)
library(shinyMobile)

ui <- f7Page(
  title = "shinyMobile App",
  f7SingleLayout(
    navbar = f7Navbar(title = "Login Demo"),
    f7Login(
      id = "login",
      title = "Login",
      "Please log in to continue",
      footer = tagList(
        f7Link(label = "Forgot password?", href = "#"),
        f7Link(label = "Sign up", href = "#")
      )
    ),
    f7Button(inputId = "login_btn", label = "Log In")
  )
)

myLoginServer <- function(id) {
  moduleServer(
    id,
    function(input, output, session) {
      observeEvent(input$submit, {
        updateF7Login(
          user = 'abc', 
          password = 'abc'
        )
      })
    }
  )
}

server <- function(input, output, session) {
  myLoginServer("login")
}

shinyApp(ui, server)

[korterling]

@DivadNojnarg thank you very much.
I changed a little bit to understand your code, but this doesn't work anymore,
Where did I go wrong?
the code as bellow:

library(shiny)
library(shinyMobile)

ui <- f7Page(
  title = "shinyMobile App",
  f7SingleLayout(
    navbar = f7Navbar(title = "Login Demo"),
    f7Login(
      id = "login",
      title = "Login",
      "Please log in to continue",
      footer = tagList(
        f7Link(label = "Forgot password?", href = "#"),
        f7Link(label = "Sign up", href = "#")
      )
    ),
    f7Button(inputId = "login_btn", label = "Log In")
  )
)


server <- function(input, output, session) {
  observeEvent(input$`login-submit`, {
    if (input$`login-user` == "abc" && input$`login-password` == "abc") {
    updateF7Login(
      user = 'abc',
      password = 'abc',
      cancel = TRUE
    )
    }
  })
}

shinyApp(ui, server)