You can do the following. Please take a look at the shiny 4 small input text boxes side by side also
library(shiny) ui =fluidPage( div(style="display:inline-block",submitButton("Analysis"),width=6), div(style="display:inline-block",downloadButton('downloadData', 'Download Data')) ) server = function(input, output, session){} runApp(list(ui = ui, server = server))

Pork chop
source share