crunchyBody: A Shiny UI with Crunch auth
In crunchy: Shiny Apps on Crunch

Description Usage Arguments Details Value See Also Examples

When using crunchyServer() to wrap your app in Crunch authentication and authorization, you need to wrap your UI body content inside crunchyBody().

1	crunchyBody(...)

...

UI elements for your app

This is the part that is conditionally rendered if the user is allowed. Any UI elements you want always to show, including <head> tags, should go outside this function.

A uiOutput() container into which crunchyServer() will conditionally render output.

crunchyPublicBody() crunchyServer()

## Not run: 
shinyUI(fluidPage(
    tags$head(
        # This is content that will always be rendered
        tags$title("My secure app")
    ),
    crunchyBody(
        # This is content that only is rendered if the user is authorized
        fluidRow(
            column(6, h1("Column 1")),
            column(6, h1("Column 2"))
        )
    )
))

## End(Not run)

Loading required package: crunch

Attaching package: 'crunch'

The following objects are masked from 'package:stats':

    rstandard, setNames

The following object is masked from 'package:graphics':

    title

The following object is masked from 'package:utils':

    write.csv

The following object is masked from 'package:base':

    table

Loading required package: shiny

Attaching package: 'shiny'

The following object is masked from 'package:crunch':

    icon


Attaching package: 'crunchy'

The following object is masked from 'package:crunch':

    makeArrayGadget

<div class="form-group shiny-input-container" style="display: none;">
  <input id="token" type="text" class="form-control" value=""/>
</div>
<div class="container-fluid">
  <div id="crunch_body" class="shiny-html-output"></div>
</div>