diff --git a/DESCRIPTION b/DESCRIPTION
index 8202ea07..cfaea545 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -23,7 +23,7 @@ License: GPL-2
 Encoding: UTF-8
 URL: https://github.com/RinteRface/shinyMobile, https://rinterface.github.io/shinyMobile/
 BugReports: https://github.com/RinteRface/shinyMobile/issues
-RoxygenNote: 7.2.3
+RoxygenNote: 7.3.1
 Suggests: 
     knitr,
     rmarkdown,
diff --git a/R/f7Accordion.R b/R/f7Accordion.R
index 98a9fb26..d9ded4f8 100644
--- a/R/f7Accordion.R
+++ b/R/f7Accordion.R
@@ -4,83 +4,60 @@
 #'
 #' @param ... Slot for \link{f7AccordionItem}.
 #' @param id Optional id to recover the state of the accordion.
-#' @param multiCollapse Whether to open multiple items at the same time. FALSE
-#' by default.
+#' @param side Accordion collapse toggle side. Default to right.
 #'
 #' @rdname accordion
 #'
 #' @examples
 #' # Accordion
-#' if(interactive()){
-#'  library(shiny)
-#'  library(shinyMobile)
-#'
-#'  shinyApp(
-#'   ui = f7Page(
-#'     title = "Accordions",
-#'     f7SingleLayout(
-#'      navbar = f7Navbar("Accordions"),
-#'      f7Accordion(
-#'       id = "myaccordion1",
-#'       f7AccordionItem(
-#'        title = "Item 1",
-#'        f7Block("Item 1 content"),
-#'        open = TRUE
-#'       ),
-#'       f7AccordionItem(
-#'        title = "Item 2",
-#'        f7Block("Item 2 content")
-#'       )
-#'      ),
-#'      f7Accordion(
-#'       multiCollapse = TRUE,
-#'       inputId = "myaccordion2",
-#'       f7AccordionItem(
-#'        title = "Item 1",
-#'        f7Block("Item 1 content")
-#'       ),
-#'       f7AccordionItem(
-#'        title = "Item 2",
-#'        f7Block("Item 2 content")
+#' if (interactive()) {
+#'   library(shiny)
+#'   library(shinyMobile)
+#'
+#'   shinyApp(
+#'     ui = f7Page(
+#'       title = "Accordions",
+#'       f7SingleLayout(
+#'         navbar = f7Navbar("Accordions"),
+#'         f7Accordion(
+#'           id = "myaccordion1",
+#'           f7AccordionItem(
+#'             title = "Item 1",
+#'             f7Block("Item 1 content"),
+#'             open = TRUE
+#'           ),
+#'           f7AccordionItem(
+#'             title = "Item 2",
+#'             f7Block("Item 2 content")
+#'           )
+#'         )
 #'       )
-#'      )
-#'     )
-#'   ),
-#'   server = function(input, output, session) {
-#'    observe({
-#'     print(
-#'      list(
-#'       accordion1 = input$myaccordion1,
-#'       accordion2 = input$myaccordion2
-#'      )
-#'     )
-#'    })
-#'   }
-#'  )
+#'     ),
+#'     server = function(input, output, session) {
+#'       observe({
+#'         print(input$myaccordion1)
+#'       })
+#'     }
+#'   )
 #' }
 #'
 #' @author David Granjon, \email{dgranjon@@ymail.com}
 #'
 #' @export
-f7Accordion <- function(..., id = NULL, multiCollapse = FALSE) {
-
-  accordionTag <- if (multiCollapse) {
-    shiny::tags$div(
-      class = "list",
-      shiny::tags$ul(...)
-    )
-  } else {
-    shiny::tags$div(
-      class = "list accordion-list",
-      shiny::tags$ul(...)
-    )
-  }
+f7Accordion <- function(..., id = NULL, side = c("right", "left")) {
+  side <- match.arg(side)
+  cl <- "list list-strong list-outline-ios list-dividers-ios inset-md accordion-list"
+  if (side == "left") cl <- sprintf("%s accordion-opposite", cl)
+  accordionTag <- shiny::tags$div(
+    class = cl,
+    shiny::tags$ul(...)
+  )
 
- tagAppendAttributes(
-   accordionTag,
-   id = id,
-   class = "collapsible"
- )
+  tagAppendAttributes(
+    accordionTag,
+    id = id,
+    class = "collapsible"
+  )
 }
 
 
@@ -96,7 +73,6 @@ f7Accordion <- function(..., id = NULL, multiCollapse = FALSE) {
 #' @export
 #' @rdname accordion
 f7AccordionItem <- function(..., title = NULL, open = FALSE) {
-
   accordionCl <- "accordion-item"
   if (open) accordionCl <- paste0(accordionCl, " accordion-item-opened")
 
@@ -104,7 +80,6 @@ f7AccordionItem <- function(..., title = NULL, open = FALSE) {
   shiny::tags$li(
     class = accordionCl,
     shiny::tags$a(
-      href = "#",
       class = "item-content item-link",
       shiny::tags$div(
         class = "item-inner",
@@ -136,47 +111,46 @@ f7AccordionItem <- function(..., title = NULL, open = FALSE) {
 #' @examples
 #' # Update accordion
 #' if (interactive()) {
-#'  library(shiny)
-#'  library(shinyMobile)
-#'
-#'  shinyApp(
-#'    ui = f7Page(
-#'      title = "Accordions",
-#'      f7SingleLayout(
-#'        navbar = f7Navbar("Accordions"),
-#'        f7Button(inputId = "go", "Go"),
-#'        f7Accordion(
-#'          id = "myaccordion1",
-#'          f7AccordionItem(
-#'            title = "Item 1",
-#'            f7Block("Item 1 content"),
-#'            open = TRUE
-#'          ),
-#'          f7AccordionItem(
-#'            title = "Item 2",
-#'            f7Block("Item 2 content")
-#'          )
-#'        )
-#'      )
-#'    ),
-#'    server = function(input, output, session) {
-#'
-#'      observeEvent(input$go, {
-#'        updateF7Accordion(id = "myaccordion1", selected = 2)
-#'      })
-#'
-#'      observe({
-#'        print(
-#'          list(
-#'            accordion1_state = input$myaccordion1$state,
-#'            accordion1_values = unlist(input$myaccordion1$value)
-#'          )
-#'        )
-#'      })
-#'    }
-#'  )
+#'   library(shiny)
+#'   library(shinyMobile)
+#'
+#'   shinyApp(
+#'     ui = f7Page(
+#'       title = "Accordions",
+#'       f7SingleLayout(
+#'         navbar = f7Navbar("Accordions"),
+#'         f7Button(inputId = "go", "Go"),
+#'         f7Accordion(
+#'           id = "myaccordion1",
+#'           f7AccordionItem(
+#'             title = "Item 1",
+#'             f7Block("Item 1 content"),
+#'             open = TRUE
+#'           ),
+#'           f7AccordionItem(
+#'             title = "Item 2",
+#'             f7Block("Item 2 content")
+#'           )
+#'         )
+#'       )
+#'     ),
+#'     server = function(input, output, session) {
+#'       observeEvent(input$go, {
+#'         updateF7Accordion(id = "myaccordion1", selected = 2)
+#'       })
+#'
+#'       observe({
+#'         print(
+#'           list(
+#'             accordion1_state = input$myaccordion1$state,
+#'             accordion1_values = unlist(input$myaccordion1$value)
+#'           )
+#'         )
+#'       })
+#'     }
+#'   )
 #' }
 updateF7Accordion <- function(id, selected = NULL, session = shiny::getDefaultReactiveDomain()) {
-  message <-list(selected = selected)
+  message <- list(selected = selected)
   session$sendInputMessage(id, message)
 }
diff --git a/R/utils.R b/R/utils.R
index c6c9e94e..888c0feb 100644
--- a/R/utils.R
+++ b/R/utils.R
@@ -15,22 +15,23 @@ colorToHex <- function(color) {
   if (is.null(color)) {
     "#007aff"
   } else {
-    switch (color,
-            "red" = "#ff3b30",
-            "green" = "#4cd964",
-            "blue" = "#2196f3",
-            "pink" = "#ff2d55",
-            "yellow" = "#ffcc00",
-            "orange" = "#ff9500",
-            "purple" = "#9c27b0",
-            "deeppurple" = "#673ab7",
-            "lightblue" = "#5ac8fa",
-            "teal" = "#009688",
-            "lime" = "#cddc39",
-            "deeporange" = "#ff6b22",
-            "gray" = "#8e8e93",
-            "white" = "#ffffff",
-            "black" = "#000000"
+    switch(color,
+      "primary" = "#007aff",
+      "red" = "#ff3b30",
+      "green" = "#4cd964",
+      "blue" = "#2196f3",
+      "pink" = "#ff2d55",
+      "yellow" = "#ffcc00",
+      "orange" = "#ff9500",
+      "purple" = "#9c27b0",
+      "deeppurple" = "#673ab7",
+      "lightblue" = "#5ac8fa",
+      "teal" = "#009688",
+      "lime" = "#cddc39",
+      "deeporange" = "#ff6b22",
+      "gray" = "#8e8e93",
+      "white" = "#ffffff",
+      "black" = "#000000"
     )
   }
 }
@@ -43,16 +44,17 @@ colorToHex <- function(color) {
 #' @export
 getF7Colors <- function() {
   c(
+    "primary",
     "red",
     "green",
     "blue",
     "pink",
     "yellow",
     "orange",
-    "purple" ,
+    "purple",
     "deeppurple",
     "lightblue",
-    "teal" ,
+    "teal",
     "lime",
     "deeporange",
     "gray",
@@ -136,11 +138,13 @@ sendCustomMessage <- function(type, message, session) {
 
 # Given a Shiny tag object, process singletons and dependencies. Returns a list
 # with rendered HTML and dependency objects.
-processDeps <- function (tags, session) {
+processDeps <- function(tags, session) {
   ui <- htmltools::takeSingletons(tags, session$singletons, desingleton = FALSE)$ui
   ui <- htmltools::surroundSingletons(ui)
-  dependencies <- lapply(htmltools::resolveDependencies(htmltools::findDependencies(ui)),
-                         shiny::createWebDependency)
+  dependencies <- lapply(
+    htmltools::resolveDependencies(htmltools::findDependencies(ui)),
+    shiny::createWebDependency
+  )
   names(dependencies) <- NULL
   list(html = htmltools::doRenderTags(ui), deps = dependencies)
 }
@@ -160,7 +164,6 @@ processDeps <- function (tags, session) {
 #' @param landscape Whether to put the device wrapper in landscape mode. Default to FALSE.
 #' @keywords internal
 app_container <- function(url, deps = FALSE, skin, color = NULL, landscape = FALSE) {
-
   # test app availability
   req <- httr::GET(url)
   show_app <- req$status_code == 200
@@ -179,7 +182,7 @@ app_container <- function(url, deps = FALSE, skin, color = NULL, landscape = FAL
       color = color,
       landscape = landscape
     )
-    if (deps){
+    if (deps) {
       shiny::tagList(
         shiny::tags$link(
           rel = "stylesheet",
@@ -197,8 +200,8 @@ app_container <- function(url, deps = FALSE, skin, color = NULL, landscape = FAL
 # Get arguments of function call at a given level. Level can be negative.
 get_args <- function(level) {
   cl <- sys.call(level)
-  f <- get(as.character(cl[[1]]), mode="function", sys.frame(-2))
-  cl <- match.call(definition=f, call=cl)
+  f <- get(as.character(cl[[1]]), mode = "function", sys.frame(-2))
+  cl <- match.call(definition = f, call = cl)
   as.list(cl)[-1]
 }
 
diff --git a/man/accordion.Rd b/man/accordion.Rd
index c9c4269f..e04e294f 100644
--- a/man/accordion.Rd
+++ b/man/accordion.Rd
@@ -6,7 +6,7 @@
 \alias{updateF7Accordion}
 \title{Framework7 accordion container}
 \usage{
-f7Accordion(..., id = NULL, multiCollapse = FALSE)
+f7Accordion(..., id = NULL, side = c("right", "left"))
 
 f7AccordionItem(..., title = NULL, open = FALSE)
 
@@ -21,8 +21,7 @@ updateF7Accordion(
 
 \item{id}{Accordion instance.}
 
-\item{multiCollapse}{Whether to open multiple items at the same time. FALSE
-by default.}
+\item{side}{Accordion collapse toggle side. Default to right.}
 
 \item{title}{Item title.}
 
@@ -41,95 +40,77 @@ by default.}
 }
 \examples{
 # Accordion
-if(interactive()){
- library(shiny)
- library(shinyMobile)
+if (interactive()) {
+  library(shiny)
+  library(shinyMobile)
 
- shinyApp(
-  ui = f7Page(
-    title = "Accordions",
-    f7SingleLayout(
-     navbar = f7Navbar("Accordions"),
-     f7Accordion(
-      id = "myaccordion1",
-      f7AccordionItem(
-       title = "Item 1",
-       f7Block("Item 1 content"),
-       open = TRUE
-      ),
-      f7AccordionItem(
-       title = "Item 2",
-       f7Block("Item 2 content")
-      )
-     ),
-     f7Accordion(
-      multiCollapse = TRUE,
-      inputId = "myaccordion2",
-      f7AccordionItem(
-       title = "Item 1",
-       f7Block("Item 1 content")
-      ),
-      f7AccordionItem(
-       title = "Item 2",
-       f7Block("Item 2 content")
+  shinyApp(
+    ui = f7Page(
+      title = "Accordions",
+      f7SingleLayout(
+        navbar = f7Navbar("Accordions"),
+        f7Accordion(
+          id = "myaccordion1",
+          f7AccordionItem(
+            title = "Item 1",
+            f7Block("Item 1 content"),
+            open = TRUE
+          ),
+          f7AccordionItem(
+            title = "Item 2",
+            f7Block("Item 2 content")
+          )
+        )
       )
-     )
-    )
-  ),
-  server = function(input, output, session) {
-   observe({
-    print(
-     list(
-      accordion1 = input$myaccordion1,
-      accordion2 = input$myaccordion2
-     )
-    )
-   })
-  }
- )
+    ),
+    server = function(input, output, session) {
+      observe({
+        print(input$myaccordion1)
+      })
+    }
+  )
 }
 
 # Update accordion
 if (interactive()) {
- library(shiny)
- library(shinyMobile)
+  library(shiny)
+  library(shinyMobile)
 
- shinyApp(
-   ui = f7Page(
-     title = "Accordions",
-     f7SingleLayout(
-       navbar = f7Navbar("Accordions"),
-       f7Button(inputId = "go", "Go"),
-       f7Accordion(
-         id = "myaccordion1",
-         f7AccordionItem(
-           title = "Item 1",
-           f7Block("Item 1 content"),
-           open = TRUE
-         ),
-         f7AccordionItem(
-           title = "Item 2",
-           f7Block("Item 2 content")
-         )
-       )
-     )
-   ),
-   server = function(input, output, session) {
-
-     observeEvent(input$go, {
-       updateF7Accordion(id = "myaccordion1", selected = 2)
-     })
+  shinyApp(
+    ui = f7Page(
+      title = "Accordions",
+      f7SingleLayout(
+        navbar = f7Navbar("Accordions"),
+        f7Button(inputId = "go", "Go"),
+        f7Accordion(
+          id = "myaccordion1",
+          f7AccordionItem(
+            title = "Item 1",
+            f7Block("Item 1 content"),
+            open = TRUE
+          ),
+          f7AccordionItem(
+            title = "Item 2",
+            f7Block("Item 2 content")
+          )
+        )
+      )
+    ),
+    server = function(input, output, session) {
+      observeEvent(input$go, {
+        updateF7Accordion(id = "myaccordion1", selected = 2)
+      })
 
-     observe({
-       print(
-         list(
-           accordion1_state = input$myaccordion1$state,
-           accordion1_values = unlist(input$myaccordion1$value)
-         )
-       )
-     })
-   }
- )
+      observe({
+        print(
+          list(
+            accordion1_state = input$myaccordion1$state,
+            accordion1_values = unlist(input$myaccordion1$value)
+          )
+        )
+      })
+    }
+  )
 }
 }
 \author{
diff --git a/tests/testthat/test-f7Accordion.R b/tests/testthat/test-f7Accordion.R
index a0bcef19..1ae3b34d 100644
--- a/tests/testthat/test-f7Accordion.R
+++ b/tests/testthat/test-f7Accordion.R
@@ -2,10 +2,11 @@ context("f7Accordion")
 
 test_that("accordion", {
   expect_true(inherits(f7Accordion(), "shiny.tag"))
-  expect_equal(
-    f7Accordion()$attribs$class,
-    "list accordion-list"
-  )
+  expect_equal(f7Accordion()$attribs$class, "list list-strong list-outline-ios list-dividers-ios inset-md accordion-list")
+
+  # Opposite
+  cl <- f7Accordion(side = "left")$attribs$class
+  expect_true(grepl("accordion-opposite", cl))
 
   # id
   expect_equal(
@@ -15,12 +16,6 @@ test_that("accordion", {
 
   # check that children are wrapped by an <ul></ul>
   expect_equal(f7Accordion()$children[[1]]$name, "ul")
-
-  # multicollapse
-  expect_equal(
-    f7Accordion(multiCollapse = TRUE)$attribs$class,
-    "list"
-  )
 })
 
 
@@ -45,11 +40,10 @@ test_that("accordion items", {
 
 
 test_that("update", {
-
   session <- as.environment(list(
     ns = identity,
     sendInputMessage = function(inputId, message) {
-      session$lastInputMessage = list(id = inputId, message = message)
+      session$lastInputMessage <- list(id = inputId, message = message)
     }
   ))
 
@@ -58,5 +52,4 @@ test_that("update", {
 
   expect_equal(result$message$selected, 1)
   expect_equal(result$id, "accordion")
-
 })