We were unable to load Disqus. If you are a moderator please see our troubleshooting guide.

Alex Matrunich • 10 years ago

Yep, I think it is possible to run 40 apps with open source edition of Shiny server. The question is how many users will simultaneously access these apps.

Alex Matrunich • 10 years ago

Yep, I think it is possible to run 40 apps with open source edition of Shiny server. The question is how many users will simultaneously access these apps.

Alex Matrunich • 10 years ago

Hey Amit!

Cool, thanks for sharing!

Have not you tried Shiny for this?

Amit • 10 years ago

I'm trying to stay away from Shiny a bit... I anyway am working with beneficiary data which is confidential and I prefer to keep my data local. But yeah, I've messed around with shiny a bit. Also with shinydashboard... it's really cool, but it's annoying that hit FORCES me to use a header and left-menu... I need to embed my dashboard in sharepoint so I'm seeing how far I can get without it. Figured out another cool thing...you'll see in an upcoming post. :)

Alex Matrunich • 10 years ago

That is very interesting about integration of a dashboard in Sharepoint. Please provide more details about it!

Amit • 10 years ago

The shiny app needs to be deployed to the web somewhere... Unless it's a server inhouse I feel uncomfortable. I might deploy to a server inhouse... I'm just to busy to work it out for now. And on your code... That's shiny, I was talking about shinydashboard... Look it up. On dashboard in sharepoint, are you trying? If so, where are you stuck?

Alex Matrunich • 10 years ago

In shinydashboard you can disable header and sidebar with `disable = TRUE` in dashboardHeader() and dashboardSidebar().

If you are to present slides only inside of your network, try to run you Shiny app with runApp(..., host = "0.0.0.0") and leave it running. R/Shiny on your computer will listen for external connections. And it will be possible (I hope) to include your Shiny app in the slides as external Internet web-page. You will need to know your local IP.

I haven't tried with Sharepoint. I just remember my tiny experience of using it in FAO :)

Amit • 10 years ago

Oh! That's a convenient trick to `disable=TRUE`... thanks! Unfortunately, I would need about 40 dashboards running 24/7, for multiple projects... If I install shiny on a server of my own server, would I be able to run all 40 from that installation? Or does each require their own server? I know I could also deploy them to shinyapps.io (which I'm nervous about because of the beneficiary data).

I'm almost done with the next piece of the html independent dashboard... you'll see tommorrow!

Alex Matrunich • 10 years ago

As about header and left-menu, you don't have to use it. Any Shiny function from UI parts returns pure html code.

For example:
> mainPanel()

> h1("Header")
Header

So you can use them in any combination:

************
library(shiny)

# Adopted from http://shiny.rstudio.com/ar...

server <- function(input, output) {
output$distPlot <- renderPlot({
hist(
rnorm(input$obs),
col = &#039darkgray&#039,
border = &#039white&#039)
})
}

ui <- mainPanel(sliderInput(
"obs",
"Number of observations:",
min = 10,
max = 500,
value = 100),
plotOutput("distPlot")
)

shinyApp(ui = ui, server = server)

************

Alex Matrunich • 10 years ago

Sorry, output of mainPanel() and h1("Header") was corrupted in the comment as it is html code :)

Alex Matrunich • 10 years ago

I don't understand what is the problem with confidentiality in Shiny. With Shiny package you run it locally and by default it doesn't accept external connections. Also you can use standalone Shiny server and it is possible to make authentication of users there even with open source edition.

Alex Matrunich • 10 years ago

Hey Amit!

Cool, thanks for sharing!

Have not you tried Shiny for this?

Amit • 10 years ago

I'm trying to stay away from Shiny a bit... I anyway am working with beneficiary data which is confidential and I prefer to keep my data local. But yeah, I've messed around with shiny a bit. Also with shinydashboard... it's really cool, but it's annoying that hit FORCES me to use a header and left-menu... I need to embed my dashboard in sharepoint so I'm seeing how far I can get without it. Figured out another cool thing...you'll see in an upcoming post. :)

Alex Matrunich • 10 years ago

That is very interesting about integration of a dashboard in Sharepoint. Please provide more details about it!

Amit • 10 years ago

The shiny app needs to be deployed to the web somewhere... Unless it's a server inhouse I feel uncomfortable. I might deploy to a server inhouse... I'm just to busy to work it out for now. And on your code... That's shiny, I was talking about shinydashboard... Look it up. On dashboard in sharepoint, are you trying? If so, where are you stuck?

Alex Matrunich • 10 years ago

In shinydashboard you can disable header and sidebar with `disable = TRUE` in dashboardHeader() and dashboardSidebar().

If you are to present slides only inside of your network, try to run you Shiny app with runApp(..., host = "0.0.0.0") and leave it running. R/Shiny on your computer will listen for external connections. And it will be possible (I hope) to include your Shiny app in the slides as external Internet web-page. You will need to know your local IP.

I haven't tried with Sharepoint. I just remember my tiny experience of using it in FAO :)

Amit • 10 years ago

Oh! That's a convenient trick to `disable=TRUE`... thanks! Unfortunately, I would need about 40 dashboards running 24/7, for multiple projects... If I install shiny on a server of my own server, would I be able to run all 40 from that installation? Or does each require their own server? I know I could also deploy them to shinyapps.io (which I'm nervous about because of the beneficiary data).

I'm almost done with the next piece of the html independent dashboard... you'll see tommorrow!

Alex Matrunich • 10 years ago

As about header and left-menu, you don't have to use it. Any Shiny function from UI parts returns pure html code.

For example:
> mainPanel()

> h1("Header")
Header

So you can use them in any combination:

************
library(shiny)

# Adopted from http://shiny.rstudio.com/ar...

server <- function(input, output) {
output$distPlot <- renderPlot({
hist(
rnorm(input$obs),
col = &#039darkgray&#039,
border = &#039white&#039)
})
}

ui <- mainPanel(sliderInput(
"obs",
"Number of observations:",
min = 10,
max = 500,
value = 100),
plotOutput("distPlot")
)

shinyApp(ui = ui, server = server)

************

Alex Matrunich • 10 years ago

Sorry, output of mainPanel() and h1("Header") was corrupted in the comment as it is html code :)

Alex Matrunich • 10 years ago

I don't understand what is the problem with confidentiality in Shiny. With Shiny package you run it locally and by default it doesn't accept external connections. Also you can use standalone Shiny server and it is possible to make authentication of users there even with open source edition.