Shiny side by side divs for fileInput and textInput - r

Question

The following attempts to put Shiny fileInput() and textInput() side by side.
A simple server.R file:
shinyServer(function(input, output) {} )
And the following ui.R:
# Custom function(s) to get file- and text-Input side by side
# Based on: <http://stackoverflow.com/a/21132918/1172302>
# options(shiny.error=browser)
# Globals
display.inline.block <- "display:inline-block"
class.input.small = "input-small"
FileInputId <- "SampleFile"
FileInputLabel <- "Sample"
TextInputId <- "SampleLabel"
TextInputLabel <- "Label"
TextInputLabelDefault <- "Sample Label"
# helper functions
fileInput.custom <- function (inputId, label, ...)
{
tagList(tags$label(label, `for` = inputId),
tags$input(id = inputId, type = "file", ...)
)
}
textInput.custom <- function (inputId, label, value = "",...)
{
tagList(tags$label(label, `for` = inputId),
tags$input(id = inputId, type = "text", value = value,...)
)
}
filetextInput <- function (fileId, fileLabel, textId, textLabel, textValue, divstyle, ...)
{
# sample file
div(style = divstyle,
fileInput.custom(inputId = fileId,
label = fileLabel,
class = class.input.small))
# label for sample, to be used in plot(s)
div(style = divstyle,
textInput.custom(inputId = textId,
label = textLabel,
value = textValue,
class = class.input.small))
}
# Shiny UI
shinyUI(
fluidPage(
# sample input
div(style = display.inline.block,
fileInput.custom(inputId = FileInputId,
label = FileInputLabel)
),
# label for sample
div(style = display.inline.block,
textInput.custom(inputId = TextInputId,
label = TextInputLabel,
value = TextInputLabelDefault)
),
hr(),
filetextInput(
fileId = FileInputId,
fileLabel = FileInputLabel,
textId = TextInputId,
textLabel = TextInputLabel,
textValue = TextInputLabelDefault,
divstyle = display.inline.block)
)
)
The above results in:
As shown in the screenshot, it works using two separate divs. Why doesn't it work in the case of the filetextInput() function?

Answer 1

Functions return the last evaluated value, so in your case the first part is lost. E.g. :
function(){
"a"
"b"
}
returns "b"
so you don't want that. Use a div or a tagList.
filetextInput <- function (fileId, fileLabel, textId, textLabel, textValue, divstyle, ...)
{
div(
# sample file
div(style = divstyle,
fileInput.custom(inputId = fileId,
label = fileLabel,
class = class.input.small)
),
# label for sample, to be used in plot(s)
div(style = divstyle,
textInput.custom(inputId = textId,
label = textLabel,
value = textValue,
class = class.input.small)
)
)
}