jasdumas/shinylp

A R package for Bootstrap Components to make Landing Home Pages for Shiny :globe_with_meridians:

shinyLP

Bootstrap Landing Home Pages for Shiny

The goal of shinyLP is to provide functions that wrap HTML Bootstrap code to enable the design and layout of informative landing home pages for Shiny applications. A Landing page is the first page of a web app or website that a user interacts with to learn the purpose, usage and status of the tool. The user experience and interface are important features to consider when developing Shiny applications to direct, especially non-technical users how to use the application.

This package is inspired by the shinyBS package which incorporates useful components from the Bootstrap web framework for use in Shiny. shinyLP extends the Bootstrap components that are used in the Shiny package by making it easier by not having to write additional HTML code.

A talk was given about shinyLP at the Portland, Oregon R Users Group in 2017.

How to install this package?

To install the package type the following:

install.packages("shinyLP")
library("shinyLP")

Or you can install the development version from Github:

library(devtools)
install_github("jasdumas/shinyLP")
library(shinyLP)

How to use this package?

The components of the package are functions that wrap HTML Bootstrap code for use in shiny apps. Include the functions in the UI section of your app to provide additional features which normally requires including HTML code.

This project is released with a Contributor Code of Conduct. By participating in this project you agree to abide by its terms.

shinyLP Example app

To run this example shiny app provided with the package:

install.packages(c("shinyBS", "shinythemes"))
shinyLP::runExample()

The app also runs with display.mode="showcase" in the browser to facilitate re-using the template.

---

---

Contact

Package Author: Jasmine Daly @jasdumas | jasminedaly.com

shinylp's Issues

Enable default arguments to runExample

Enhancement Purpose: allowing the display.mode = "showcase" to allow users to more easily obtain the shiny app template code.

shinyLP::runExample(display.mode = "showcase")
Error in shinyLP::runExample(display.mode = "showcase") : 
  unused argument (display.mode = "showcase")

steps

• fix runExample() function

• add a DESCRIPTION file in inst/ folder (ref: https://shiny.rstudio.com/articles/display-modes.html)

• Add a readme.md file in the inst/ folder as helptext below the author/title section of the showcase mode

How to make thumbnail_label a fixed size?

Great package which I am using to link to several Shiny apps within a corporate network.

Is it possible to give a fixed size to each thumbnail_label element? (as in height)

Thanks

Add unit tests with `testthat`

Error while runExample ()

ERROR: argument "tabName" is missing, with no default

Could not run example

I got this error message when running the page

> shinyLP::runExample()

Listening on http://127.0.0.1:4365
Warning: Error in tagList: could not find function "shinytheme"
Stack trace (innermost first):
    53: tagList
    52: attachDependencies
    51: bootstrapPage
    50: navbarPage
    49: tag
    48: tags$div
    47: div
    46: tagList
    45: attachDependencies
    44: bootstrapPage
    43: fluidPage
    42: shinyUI
     2: shiny::runApp
     1: shinyLP::runExample
Error : could not find function "shinytheme"

My session info:

> devtools::session_info()
Session info ----------------------------------------------------------------------
 setting  value                       
 version  R version 3.3.2 (2016-10-31)
 system   x86_64, mingw32             
 ui       RStudio (1.0.136)           
 language (EN)                        
 collate  English_United States.1252  
 tz       Asia/Bangkok                
 date     2017-05-26                  

Packages --------------------------------------------------------------------------
 package   * version    date       source                        
 devtools    1.12.0     2016-06-24 CRAN (R 3.3.2)                
 digest      0.6.12     2017-01-27 CRAN (R 3.3.2)                
 htmltools   0.3.5      2016-03-21 CRAN (R 3.3.2)                
 httpuv      1.3.3      2015-08-04 CRAN (R 3.3.2)                
 memoise     1.0.0      2016-01-29 CRAN (R 3.3.2)                
 mime        0.5        2016-07-07 CRAN (R 3.3.2)                
 R6          2.2.0      2016-10-05 CRAN (R 3.3.2)                
 Rcpp        0.12.8     2016-11-17 CRAN (R 3.3.2)                
 shiny     * 1.0.0.9000 2017-02-13 Github (rstudio/shiny@0f13075)
 shinyBS   * 0.61       2015-03-31 CRAN (R 3.3.3)                
 shinyLP   * 1.1.0      2016-11-26 CRAN (R 3.3.3)                
 withr       1.0.2      2016-06-20 CRAN (R 3.3.2)                
 xtable      1.8-2      2016-02-05 CRAN (R 3.3.2)                

support software citation import

Hello!

Landing pages for any kind of software project are one of the cornerstones of the Software Citation Principles. So, 1k thanks for helping to make them easier to generate :-)

I'd like to start a discussion here about whether & how shinyLP could support the citation workflow with features that expose relevant metadata to for example a Zotero translator. For 1-click import into user's own reference library :-)

Cheers!

error runExample()

Hello Jasmine:

I have tried to execute the example, but it gives me an error

shinyLP :: runExample ()

ERROR: unused argument (list_item("User Updates", badge_value = 24))

apparently the list_group function allows only one element

list_group(list_item("Application Updates", badge_value = 27),list_item("User Updates", badge_value = 24))

regards

Update functions to use `div()`

Functions to be updated:

• jumbotron

• thumbnail_label

• list_item

• wells

cc @jennadaly

Error on shinyLP::runExample()

Error on
shinyLP::runExample()

Listening on http://127.0.0.1:6057
Warning: Error in file.path: cannot coerce type 'closure' to vector of type 'character'
[No stack trace available]

R version 3.6.3 (2020-02-29)

Allowing thumbnail_label to link to a different tab?

Thank you so much for making this very helpful tool - it is awesome. I am searching for a way to get the buttons from thumbnail_label() to link to a different tabPanel in the app (as opposed to an outside link using href()). I have a "home" page and want to allow users to get to the other tabs from the landing page. Is this possible? It would be super helpful. Thanks!

Use button_link of thumbnail_label to navigate to Tab of Shinydashboard

Good morning,

Is it possible to use the "button link" of the thumbnail_label to link to a shinydashboard tab? I would like to use the landing page of ShinyLP as a quick way for the user to navigate for the indented tab.

#Sidebar
sidebar <- dashboardSidebar(

sidebarMenu(

menuItem("Home", tabName = "Home")
,menuItem("About", tabName = "aboutTab")

)#Fim de sidebarMenu

)#Fim de dashboardSidebar

body <- dashboardBody(

tabItems(

#Conteudo da Tab Home

tabItem(tabName = "Home"

,column(4, thumbnail_label(image = 'Rlogo.png', label = 'Spray Drying Search',
                                    content = 'Havana brown cornish rex bombay but bombay,
                                          but havana brown devonshire rex and devonshire rex.
                                          Tomcat egyptian mau. Cornish rex sphynx sphynx yet
                                          cougar and panther. Panther siberian. Lynx munchkin
                                          american shorthair. Norwegian forest. ',
                                    button_link = 'http://getbootstrap.com/', button_label = 'Click me')

)#End of tab Home



,tabItem(tabName = "aboutTab")#End of tab aboutTab

)#End of tabItems

)#End of dashboardBody

Kind regards,
Paulo

runExample() Error

I keep getting this error when I try the runExample() function (using the shinyLP package 1.1.1 from CRAN):

shinyLP::runExample()

Listening on http://IP
Warning: Error in list_group: unused argument (list_item("User Updates", badge_value = 24))
Stack trace (innermost first):
55: list_group
54: tag
53: tags$div
52: div
51: tabPanel
50: navbarPage
49: tag
48: tags$div
47: div
46: tagList
45: attachDependencies
44: bootstrapPage
43: fluidPage
42: shinyUI
2: shiny::runApp
1: shinyLP::runExample
Error : unused argument (list_item("User Updates", badge_value = 24))
Warning: Error in list_group: unused argument (list_item("User Updates", badge_value = 24))
Stack trace (innermost first):
55: list_group
54: tag
53: tags$div
52: div
51: tabPanel
50: navbarPage
49: tag
48: tags$div
47: div
46: tagList
45: attachDependencies
44: bootstrapPage
43: fluidPage
42: shinyUI
2: shiny::runApp
1: shinyLP::runExample
Error : unused argument (list_item("User Updates", badge_value = 24))

What is the error here? It looks like something might be broken in the runExample code?

I can get the shinyLP::runExample() function to work when I install the package from this GitHub repo and install the following dependency, though: install.packages(c("httpuv"))