Shiny notes module - server function

Server function for the shinynotes module.

shinynotes(
  input,
  output,
  session,
  group_column,
  selected_group,
  group_options,
  table_id,
  db_conn,
  category_options = NA,
  style_options = default_styles()
)

Arguments

input

Standard shiny input

output

Standard shiny output

session

Standard shiny session

group_column

Column in table to group and filter notes by.

selected_group

Currently selected group column value.

group_options

Group column row value options.

table_id

Named list with member 'table' and 'schema' referring to a database table containing notes.

db_conn

An object that inherits from DBIConnection-class, typically generated by dbConnect()

category_options

Category column row value options. Useful if table is empty. Default is NA (retrieved from data)

style_options

Optional named list of CSS styles to apply to note panel elements.

Value

Module server component. Reactive expression containing the currently selected note data and database connection.

Details

The style_options argument contains the following default values:

• type = "paragraph"

• header

  • color = "#4b2c71"

  • style = "font-weight: bold; text-decoration: underline;"

• panel

  • status = "default"

  • background = "#fdfeff"

  • scrollY = "scroll"

  • max_height = "600px"

  • height = "100

  • padding = "4px"

  • width = "100

  • border_width = "2px"

  • border_radius = "4px"

  • border_style = "solid"

  • border_color = "#f5f5f5"

  • style = "text-align:left; margin-right:1px;"

• paragraph_style = "margin: 0px 0px 1px;white-space: pre-wrap;"

• bullet_style = "white-space: pre-wrap;"

• hr_style = "margin-top:10px; margin-bottom:10px;"

• ignoreCase = TRUE

Examples

if(interactive()){
  shiny::callModule(
    module = shinynotes,
    id = "paragraph",
    style_options = shiny::reactive({
    list(
      "type" = "bullets",
      "header" = list("color" = "#ccc"),
      "panel" = list("scrollY" = TRUE)
      )
    }),
    group_column = "package",
    selected_group = shiny::reactive("shiny"),
    group_options = c("shiny", "shinyWidgets", "dplyr"),
    table_id = list(table = "scroll_demo", schema = "notes"),
    db_conn = connect_sqlite(auto_disconnect = FALSE)
  )
}