It appears that Quarto still doesn't integrate well with shiny data export. Which is a shame, but I guess will be fixed in time. For now, I'll use Rmd files for export generation, but I have a qmd in the waiting for later adoption.

#rstats #shinyr

Hey, dear #rstats and #shinyr people,

I'm building this shiny app, and I am hitting a brick wall with the UI. I have the following code which builds the UI in the attached image. I want to get rid of this indentation that the box ("Data to Export") has. Any ideas how to do that?

Code here:

library(shiny)
library(shinydashboard)
library(DT)

exportlayout <- tabItem(tabName = "export",
fluidRow(
column(width = 12,
h2("Data Export"),
p("This page lets you select different analysis formats to download in a ", tags$i("PDF-File"),". Here's how you do this:",tags$ol(tags$li("Specify the desired output in the ", tags$i("Select Output Type-"), "Window and then select parameters in the field next to it."), tags$li("Click ", tags$i("Add new item to list-"),"Button, after which you will see an overview of your selections in the", tags$i("Data to Export-"), "field."),tags$li("Export the analysis results by clicking on the Export Button")))
)),
fluidRow(
column(width = 4,
selectInput("desire_outcome", "Select Output Type", choices = c("Statistics", "Plot"), selected = NULL)),
column(width = 4,
conditionalPanel("input.desire_outcome == 'Plot'",
selectInput("xcol_output","X Variable", choices = NULL),
selectInput("plot_type_output", "Plot Type", choices = c("Boxplot", "Density Plot", "Histogram"), selected = NULL),
selectInput("fillcol_output", "Separator Variable", choices = NULL, selected = NULL)),
conditionalPanel("input.desire_outcome == 'Statistics'",
selectInput("stats_var", "Variable for Statistic", choices = NULL, selected = NULL),
checkboxGroupInput("stats", "Included Statistics", choices = c("Mean", "SD", "Min", "Max", "N"), selected = c("Mean", "SD", "Min", "Max", "N")))
),
column(width = 4)),
fluidRow(
column(width = 12,
actionButton("add_item", "Add new item to export list")),
p("")
),
fluidRow(
column(width = 12,
p(""))),
fluidRow(
column(width=12,
box(title = "Data to Export", status = "success", DTOutput("selected_items_ui"))
)
),
fluidRow(
column(width = 12,
p(""),
downloadButton('export_pdf','Export Selected Results to PDF')
)
)
)

In 2016 I basically didn't knew anything about #RStats, not to say #shinyr, when I started working at a startup.
My boss pushed me into this project, with a deadline: I had to learn R and shiny in two weeks!

Obviously, my first codes where a mess!
gradually I learned to be a bit more structured. Far from perfect, but better that when I started.

Later I ran my own data analysis area at a new job. Oh the magic I made thanks to Shiny & R
I have grown, but still consider myself as intermediate,

Following @nrennie 's post, here's my R wrapped🎶🎶🎶
(check Rennie's blog post: https://nrennie.rbind.io/blog/2022-12-03-how-to-make-your-own-rstats-wrapped/ )
#Rstats #shinyR

(PAO is my main app)

It's been a while, but I can finally get back to working on using R for ground-penetrating radar data (using the RGPR package). It's been absolutely incredible so far and the developer is very happy to communicate features and fixes. My goal by Christmas is to wrap it in a Shiny app for ease of use.

https://emanuelhuber.github.io/RGPR/

#Rchaeology #Rchaeologists #RStats #Geophysics #RGPR #ShinyR