Printing Out Calculated Values - r

Question

I am in the process of learning R and am having some issues. I am trying to add a tab to my app to calculate a few values based on the data I put in. I have a frame of locations and I have some math I did to calculate the values of interest.
I want to take the value called loft and put a string on the panel that says "Loft at Impact is: XXX" with what number is calculated. The data files have several pages in excel I want to shuffle through. Currently it all works except the values I am trying to calculate. It works as expected in a regular R script but I am struggling getting it into R Shiny. I don't think I understand how to manipulate and deal with reactive data and such. Here is my current code:
#Import needed libraries
library(shiny)
library(readxl)
library(plotly)
library(DT)
#start app
runApp(
list(
ui = fluidPage(
#Main Title
titlePanel("Putt Viewer"),
sidebarLayout(
#File input on sidebar
sidebarPanel(
fileInput('file1', ' .xlsx file',
accept = c(".xlsx")
),
#Shot selection
numericInput('shotSelect','Which Shot Would you like to see?', 1, 1)
),
mainPanel(
#Sets up different panels for the main screen
tabsetPanel(
tabPanel("3D View", plotlyOutput("putterPlot2"),
helpText("3D Rendering of data points.")),
tabPanel("Overhead View", plotlyOutput("putterPlot"),
helpText("Overhead view of the toe and heel fiducial markers.")),
tabPanel("View Raw Data", dataTableOutput("contents"),
helpText("Explore the generated data in a table.")),
tabPanel("Face at Launch", textOutput("contents2"))
)
)
),
),
#starts and runs the server functions
server = function(input, output){
data <- reactive({
req(input$file1)
inFile <- input$file1
data <- read_excel(inFile$datapath, input$shotSelect + 1)
})
impactFrame <- data[nrow(shotData)-1,]
launchPoints <- structure(list(X = c(impactFrame$TToe.x_mm,impactFrame$MToe.x_mm, impactFrame$Heel.x_mm, 0),
Y = c(impactFrame$TToe.y_mm,impactFrame$MToe.y_mm, impactFrame$Heel.y_mm, 0),
Z = c(impactFrame$TToe.z_mm,impactFrame$MToe.z_mm, impactFrame$Heel.z_mm, 0)),
.Names = c("X", "Y", "Z"), row.names = c(NA, 3L), class = "data.frame")
ABi = launchPoints[1,2] - launchPoints[1,1] #x2-x1
ABj = launchPoints[2,2] - launchPoints[2,1] #y2-y1
ABk = launchPoints[3,2] - launchPoints[3,1] #z2-z1
ACi = launchPoints[1,3] - launchPoints[1,1] #x3-x1
ACj = launchPoints[2,3] - launchPoints[2,1] #y3-y1
ACk = launchPoints[3,3] - launchPoints[3,1] #z3-z1
AB = c(ABi, ABj, ABk)
AC = c(ACi, ACj, ACk)
normalijk = cross(AB,AC) #face vector
midABi = ABi / 2 + launchPoints[1,1]
midABj = ABj / 2 + launchPoints[2,1]
midABk = ABk / 2 + launchPoints[3,1]
midABCi = launchPoints[3,1] - midABi
midABCj = launchPoints[3,2] - midABj
midABCk = launchPoints[3,3] - midABk
liePlane = c(midABCi, midABCj, midABCk) #lie plane
loft <- reactiveValues(atan(normalijk[3] / sqrt(normalijk[1] ^ 2 + normalijk[2] ^ 2))) #loft
faceAngle = atan(normalijk[2] / sqrt(normalijk[1] ^ 2 + normalijk[2] ^ 2)) # face angle
lie = atan(liePlane[3] / sqrt(liePlane[1] ^ 2 + liePlane[2] ^ 2))
})
output$contents2 <- renderText(loft)
#Tab 3 output of the data
output$contents <- DT::renderDataTable({
#makes sure there is a file and its correct
req(input$file1)
inFile <- input$file1
data = read_excel(inFile$datapath, input$shotSelect + 1)
data
})
output$putterPlot2 <- renderPlotly({
#makes sure there is a file and its correct
req(input$file1)
inFile <- input$file1
data = read_excel(inFile$datapath, input$shotSelect + 1)
plot_ly(data, x = ~TToe.x_mm, y = ~TToe.y_mm, z = ~TToe.z_mm, type="scatter3d", name = "TToe Fiducials", mode="markers", color = ~Timestamp_ms) %>%
add_trace(x = ~MToe.x_mm, y = ~MToe.y_mm, z = ~MToe.z_mm, type="scatter3d", name = "TToe Fiducials", mode="markers", color = ~Timestamp_ms) %>%
add_trace(x = ~Heel.x_mm, y = ~Heel.y_mm + 3, z = ~Heel.z_mm - 25, type="scatter3d", name = "Heel Fiducials", mode="markers", color = ~Timestamp_ms) %>%
layout(title = 'Putter Face Location Data',
scene = list(xaxis = list(title = 'X (mm)', range = c(-200,200), ticktype = "array"),
yaxis = list(title = 'Y (mm)', range = c(-100,100), ticktype = "array"),
zaxis = list(title = 'Z (mm)', range = c(-100,100), ticktype = "array"),
showlegend = FALSE))
})
output$putterPlot <- renderPlotly({
req(input$file1)
inFile <- input$file1
data = read_excel(inFile$datapath, input$shotSelect + 1)
plot_ly(data, x = ~TToe.x_mm, y = ~TToe.y_mm, type="scatter", name = "Toe Data", mode="markers") %>%
add_trace( x = ~MToe.x_mm, y = ~MToe.y_mm, name = 'Toe Regression Fit', mode = 'lines', alpha = 1) %>%
add_trace(x = ~Heel.x_mm, y = ~Heel.y_mm + 3, type="scatter", name = "Heel Data", mode="markers") %>%
add_trace( x = ~Heel.x_mm, y = ~Heel.y_mm, name = 'Heel Regression Fit', mode = 'lines', alpha = 1) %>%
layout(title = 'Top Down View of Toe and Heel',
scene = list(xaxis = list(title = 'X (mm)', range = c(-200,200), ticktype = "array"),
yaxis = list(title = 'Y (mm)', range = c(-100,100), ticktype = "array"),
showlegend = FALSE))
})
}
)
)