# Single-Layout

#### David Granjon

#### 2019-11-27

shinyMobile comes with 3 predefined layouts. `f7SingleLayout()` is dedicated to build simple, one-page apps or gadgets.

    library(shiny)
    library(shinyMobile)
    library(echarts4r)

    plot <- USArrests %>%
      dplyr::mutate(
        State = row.names(.),
        Rape = -Rape
      ) %>%
      e_charts(State) %>%
      e_line(Murder) %>%
      e_area(Rape, name = "Sick basterd", x_index = 1) %>%  # second y axis
      e_title("Your plot", "Subtext", sublink = "https://john-coene.com") %>%
      e_x_axis(1, show = FALSE) # hide scond X Axis

    shiny::shinyApp(
      ui = f7Page(
        title = "My app",
        f7SingleLayout(
          navbar = f7Navbar(
            title = "Single Layout",
            hairline = TRUE,
            shadow = TRUE
          ),
          toolbar = f7Toolbar(
            position = "bottom",
            f7Link(label = "Link 1", src = "https://www.google.com"),
            f7Link(label = "Link 2", src = "https://www.google.com", external = TRUE)
          ),
          # main content
          f7Shadow(
            intensity = 16,
            hover = TRUE,
            f7Card(
              title = "Card header",
              plot,
              footer = tagList(
                f7Button(color = "blue", label = "My button", src = "https://www.google.com"),
                f7Badge("Badge", color = "green")
              )
            )
          )
        )
      ),
      server = function(input, output) {
        output$distPlot <- renderPlot({
          dist <- rnorm(input$obs)
          hist(dist)
        })
      }
    )