How to Align Leflet Main Panel to the Right - r

Question

I am trying to get my mainpanel, a base leaflet map, to the right of the sidebar. It seems to align with the side bar panel and I am unsure why. I have attached my entire UI in hopes some one can see why my map is positioned above the side bar panel. I have also attached a picture of what the app looks like. Do I need to include a fluid row argument for the mainpanel?
map UI
ui <- fluidPage(
# Application title ----
titlePanel("Moorea Coral Reef LTER"),
sidebarLayout(
sidebarPanel(),
mainPanel(img(src = "mcr_logo.png", height = 60, width = 150, align = "right"),
img(src = "lter_logo.png", height = 60, width = 70, align = "right"),
img(src = "nsf_logo.png", height = 60, width = 60, align = "right"))),
# Navigatition bar ----
navbarPage("App Title",
#home page ----
tabPanel("Home",
img(src = "mcr_logo.png", height = 60, width = 150, align = "center"),
p("The Moorea Coral Reef (MCR) LTER site, established in 2004, is an interdisciplinary, landscape-scale program whose goal is to advance understanding of key mechanisms that modulate ecosystem processes and community structure of coral reefs through integrated research, education and outreach. Our site is the coral reef complex that encircles the 60 km perimeter of Moorea (17°30'S, 149°50'W), French Polynesia."),
p("A fundamental goal of the the Moorea Coral Reef (MCR) LTER site is to advance understanding that enables accurate forecasts of the behavior of coral reef ecosystems to environmental forcing. To this end we seek to understand the mechanistic basis of change in coral reefs by: (i) elucidating major controls over reef dynamics, and (ii) determining how they are influenced by the major pulse disturbances (e.g., cyclones, coral bleaching, coral predator outbreaks) and local press drivers (e.g., fishing, nutrient enrichment) to which they are increasingly being subjected, against a background of slowly changing environmental drivers associated with global climate change and ocean acidification.")),
#spatial page ----
navbarMenu("Spatial",
#spatial map ----
tabPanel(title = "Map",
mainPanel(leafletOutput(outputId = "leaflet_base",
width = 900,
height = 500), position = c("right")),
sidebarLayout(
fluidRow(
#leaflet map inputs
column(12, sidebarPanel(width = 2,
# Code block for incorporating more years of data
#pickerInput(inputId = "Year",
#label = "Select a Year:",
#choices = c("2016",
#"2017",
#"2018"),
#multiple = FALSE,
#width = 80),
pickerInput(inputId = "Month",
label = "First, Select Month:",
choices = c("January",
"May",
"July"),
selected = "",
multiple = F,
options = pickerOptions(title = "Select Month"),
width = 150),
pickerInput(inputId = "Variable",
selected = "",
multiple = F,
label = "Now, Select Variable:",
choices = c("Percent Nitrogen",
"Isotopic Nitrogen"),
options = pickerOptions(title = "Select Variable"),
width = 150)))),
fluidRow(
column(12, sidebarPanel(width = 2,
pickerInput(inputId = "Additional",
label = "Select Another Layer:",
choices = c("Percent Coral Bleached",
"Predicted Sewage",
"Bathymetry"),
selected = NULL,
multiple = F,
options = pickerOptions(title = "Select Additonal"),
width = 150),
pickerInput(inputId = "Other",
label = "Select an Add on:",
choices = c("LTER Sites",
"Observations",
"Sites & Observations"),
selected = NULL,
multiple = F,
options = pickerOptions(title = "Select Add On"),
width = 150),
checkboxGroupButtons(inputId = "Clear",
label = "Remove Layers",
choices = c("Clear"))))))),
#spatila metadata ----
tabPanel("Metadata")),
#Temporal page ----
navbarMenu("Temporal",
#figures by variable panel ----
tabPanel("Figures by Variable",
(pickerInput(inputId = "Temp_Variable",
label = "Select a Variable",
# choices = c("Crown of Thorns",
# "Coral Cover",
# "Fish Biomass",
# "Algae"),
choices = c("Mean Coral Cover" = "mean_coral_cover",
"Mean Algae Cover" = "mean_algae_cover",
"Mean Fish Biomass" = "mean_biomass_p_consumers",
"COTS Density" = "cots_density"),
multiple = FALSE)),
plotOutput(outputId = "faceted_plot")),
#figures by site panel ----
tabPanel("Figures by Site",
sidebarPanel(checkboxGroupInput(inputId = "site",
label = h4("Choose your Site"),
selected = "LTER 1",
choices = list("Site 1" = "LTER 1",
"Site 2" = "LTER 2",
"Site 3" = "LTER 3",
"Site 4" = "LTER 4",
"Site 5" = "LTER 5",
"Site 6" = "LTER 6"))),
mainPanel(plotOutput(outputId = "variables_by_site_plot"))),
#temporal metadata ----
tabPanel("Metadata")),
)
)