source() in ui.R

[Martin Loos]

hi!

As my ui.R contains a lot of code, I split it up into a few scripts and use source(file="",...) just as recommended in the shiny tutorial.

Everything works fine except that a TRUE is printed in the web interface (late version of google chrome) for each sourcing. looks stupid!

Tried different argument settings for source(file="",...) - without success. 

any ideas? thnxs in advance...

[Patrick Toche]

Funny you should say this, I observed the same thing just a moment ago. Great minds ...

I also couldn't make it disappear despite trying several options to source that seemed promising.

My workaround was to create a function in global.R (global.R gets read on startup), let's say:

# global.R

gTags <- function() {

  tags$head(

    tags$style(

      type='text/css'

      , "body {font-size: 80%; color: rgb(0,0,100);}"

      , "#mainPanelId {min-width: 40%; max-width: 70%;  float: right;}"

      , "#sidebarPanelId {min-width: 20%; max-width: 40%; float: left;}"

    )

  )

}

# ui.R

    mainPanel = wellPanel(

      id = "mainPanelId"

      ,

      # pass customized display settings stored in function gTags() in global.R

      gTags()

      , etc.

Does this work for you?

[Patrick Toche]

A demo of sorts:

library("shiny")

runGist("https://gist.github.com/ptoche/8386571")

[Martin Loos]

Hi Patrick, thanks for your fast reply!

No, that is not really a promising workaround - I really want to source code from DIFFERENT files to ui.R. With the global.R-approach proposed I indeed source from another file than ui.R - but just ONE, namely global.R. Not?

Although I wonder what happens if sourcing is wrapped into the global.R functions ... but doubt that even works.

hm...

[Vincent Nijs]

You can source any number of files in server.R

source('file1.R', local = TRUE)

Assuming you put your code in the file in renderUI's you can include it in ui.R as:

uiOutput('code_in_file1')

If you want to source all files in a directory you can use the R.utils package and 

sourceDirectory('mycode', recursive = TRUE)

[Martin Loos]

Hi Vincent

Thanks for your reply, too. Do you suggest a workaround from sourcing in server.R using renderUI() plus uiOutput() instead of sourcing in ui.R directly? Otherwise - I am confused. The question was how to source in ui.R without printing TRUE into the browser.

[Vincent Nijs]

You are pretty limited in terms of what you can do directly in ui.R. I am not sure you can avoid the printed message. So yes, I suggest you source from server.R and use renderUI / uiOutput

[Martin Loos]

...you are right, its limited. So I guess your answer was not bad at all. Lazily, I found that adding a HTML tag at the end of each source file defining the text color and another breaking it just after the source() in ui.R at least renders those TRUEs invisible, i.e., making the text color equal to that of the background.

Still, that is no real solution; shiny says you can use source(...) in ui.R, without TRUEs to appear.

[Huidong TIAN]

You may try include the following JavaScript code in you app:

$(document).ready(function(){

  var x = $("div.input").children();

  $("div.input").empty().append(x);

})

$(document).on("change", "div.input", function(){

  var x = $("div.input").children();

  $("div.input").empty().append(x);

})

[Joe Cheng]

How about replacing:

source(...)

with:

{source(...); NULL}

--
You received this message because you are subscribed to the Google Groups "Shiny - Web Framework for R" group.
To unsubscribe from this group and stop receiving emails from it, send an email to shiny-discus...@googlegroups.com.
For more options, visit https://groups.google.com/groups/opt_out.

[Huidong TIAN]

Sounds promising!

Could you give an example to show how to include it in a bootstrapPage ui.R?

[Martin Loos]

{source(...); NULL} does not work in ui.R?

[Huidong TIAN]

Not work in my app. Does it works in yours? If yes, would you like to share your code? 

[Martin Loos]

No - it also doesnt work in my app...

[Yihui Xie]

You may try the current development version on Github. I think the
{source(); NULL} trick should work.

Regards,
Yihui

[Jan Stanstrup]

Any news on this? I cannot make it work either. If I do a tabPanel for example and put the content in a separate file the tabs show up as lists.

It is the same with the github version.

[Karolin Wiedemann]

Hey,

if anyone is still interested...

I had the same problem, but non of these comments helped.
However, I found a really easy solution by a happy coincidence.
Just use

 source("file.R",local=TRUE)[1]

and the TRUE is gone.

[Alex Hasan]

Hello,

i had this problem since today morning, and some one in http://forums.cirad.fr/logiciel-R/   told me something very important about the source command,

the result of this command is two parameters: value and visible

the solution that i tried and it works, at the first line of my ui.R file

first =source('file.R')

and when i want to include it i use

first$value

and the TRUE is gone

[cheng chen]

Apparently, it has not been well addressed by the shiny team (big respect and thanks for all their great efforts, though).

And I encountered the same issue today. Mar 9/ 2015.

Thanks to Karolin and Alex, a simple solution is to source in the following way.

source('ui_whatever.r')[['value']]

 

[Joe Cheng]

Yeah sorry, I didn't know the ins and outs of source() well enough back then. This should now be considered the canonical way you do this:

source("ui_whatever.r", local=TRUE)$value

--

You received this message because you are subscribed to the Google Groups "Shiny - Web Framework for R" group.
To unsubscribe from this group and stop receiving emails from it, send an email to shiny-discus...@googlegroups.com.

To view this discussion on the web visit https://groups.google.com/d/msgid/shiny-discuss/ca8ca86f-ccc8-43f0-aec2-5be1d322d1de%40googlegroups.com.
For more options, visit https://groups.google.com/d/optout.

[Jan Stanstrup]

Hi.

I am trying to build a modular app. So my idea was to find the enabled "modules" (server.R and ui.R files that add a tab to a navbarPage) and loop through them.

This works in my main server.R:

 module_names <- "../Modules/conf.ini" %>% read.ini %>% list.filter(enabled == TRUE) %>% names
 
 
 for(i in seq_along(module_names)){
 paste0("../Modules/",module_names[i],"/shiny_server.R") %>%
 source(local=TRUE)
 }

But when I try the same in the ui.R:

module_names <- "../Modules/conf.ini" %>% read.ini %>% list.filter(enabled == TRUE) %>% names

for(i in seq_along(module_names)){
 source(paste0("../Modules/",module_names[i],"/shiny_ui.R"), local=TRUE)$value
 }

I get:

Stack trace (innermost first):
 47: markSelected
 46: FUN
 45: lapply
 44: findAndMarkSelected
 43: buildTabset
 42: navbarPage
 41: shinyUI
 1: shiny::runApp
Error : attempt to set an attribute on NULL

Any solution to this? Or another similar way to make modules?

Thanks.

[Joe Cheng]

This would work if you use lapply instead of a for-loop. You need to collection the return values from those ui.R files as a list and include them in the UI.

That said, consider using Shiny modules: https://shiny.rstudio.com/articles/modules.html

To unsubscribe from this group and stop receiving emails from it, send an email to shiny-discuss+unsubscribe@googlegroups.com.
To view this discussion on the web visit https://groups.google.com/d/msgid/shiny-discuss/dadc157e-764c-4d03-89c8-c77b8904005b%40googlegroups.com.

[Jan Stanstrup]

Thanks!

I think this was unavailable last time I tried this but after a day of hair pulling I got it working. Thanks!

[Jan Stanstrup]

Spoke too soon. I managed to make my code into modules but I cannot find the right way to insert them dynamically.

I global.R I have a variable module_names that has the names of the modules.

In server.R I then have:

lapply(seq_along(module_names),
       function(i){ callModule(get(module_names[i]), paste0("name",i))
                  }
           )

That works. As before my problem is the ui.R. Right now my attempt is this:

lapply(seq_along(module_names),
       function(i){ do.call(paste0(module_names[i],"UI"),list(id = paste0("name",i)))
                  }
       )

The app loads and there are no errors but I have "tab-7636-1 tab-pane active" displayed instead of the tab I am inserting.

Any hint would be highly appreciated. Also if there is a bit more elegant way to do this.

[Joe Cheng]

Instead of do.call(paste0(...), ...) you need do.call(get(paste0(...)), ...). Or just get(paste0(...))(id = ...).

To view this discussion on the web visit https://groups.google.com/d/msgid/shiny-discuss/83537fe5-0e05-405b-99d7-1bb0354faafe%40googlegroups.com.

[Jan Stanstrup]

Thanks. Just tried that but I get the same result. do.call can take a character string as first argument so I don't think that is the problem.

[Joe Cheng]

Are you sourcing the module files into the global environment, or another environment?

To view this discussion on the web visit https://groups.google.com/d/msgid/shiny-discuss/71382f7e-7aac-48c4-8cb0-b3a3afbcfed9%40googlegroups.com.

[Joe Cheng]

Oh wait. I think the problem is that tabsetPanel doesn't take a list of tabPanel as an argument. But instead takes each tabPanel as an individual, unnamed argument. So if you have a list of tabPanel then you need to do.call(tabsetPanel, tabs).

[Jan Stanstrup]

Thanks again.

You lost me a bit though. Where would I put that?

The main UI has a navbarPage not a tabsetPanel (I assume that is what you assumed?). So do I need to do something special in the main ui?

I realise it is not a nice simple and reproducible example but if you wan't to see what I am doing it is here:

global           https://github.com/stanstrup/QC4Metabolomics/blob/master/Shiny%20App/global.R

main ui:        https://github.com/stanstrup/QC4Metabolomics/blob/master/Shiny%20App/ui.R

main server:  https://github.com/stanstrup/QC4Metabolomics/blob/master/Shiny%20App/server.R

Module ui:         https://github.com/stanstrup/QC4Metabolomics/blob/master/Modules/TrackCmp/shiny_ui.R

Module server:  https://github.com/stanstrup/QC4Metabolomics/blob/master/Modules/TrackCmp/shiny_server.R

To unsubscribe from this group and stop receiving emails from it, send an email to shiny-discuss+unsubscribe@googlegroups.com.

[Joe Cheng]

The main UI should become

do.call(navbarPage, c(list("Navigation bar"), lapply(...)))

I think (sorry I'm on my phone so I can't try right now)

[Jan Stanstrup]

Thanks a million! That was indeed it. Worked.

To unsubscribe from this group and stop receiving emails from it, send an email to shiny-discuss+unsubscribe@googlegroups.com.