请求对Shiny多元回归应用代码汉化并改写为正式技术问询

我已经将你提供的Shiny应用中的非技术界面文本全部翻译成中文，同时严格保留了代码的结构、技术术语（比如library(shiny)、fluidPage等）以及数据处理逻辑部分。修改后的完整代码如下：

library(shiny)
ui <- fluidPage(
  titlePanel("DARP线性模型"),
  sidebarLayout(
    sidebarPanel(
      sliderInput(inputId = "area", label = "选择服务区域面积：", min = 170, max = 8000, value = 1001),
      sliderInput(inputId = "crit..peak", label = "选择峰值需求：", min = 10, max = 150, value = 39)
    ),
    mainPanel(
      tableOutput("table")
    )
  )
)
server <- function(input, output) {
  output$table <- renderTable({
    df_ln <- read.csv("F:/Project/Programme/ML/DAR Machine Learning TR Part A/train_darp_ln.csv")
    # 此处可补充你的线性模型核心逻辑代码
  })
}

补充说明： #

• 仅修改了UI层的用户可见界面文本，所有技术参数（如输入ID、滑块范围、默认值）和后端数据处理逻辑完全保持不变
• 专业技术术语（如DARP、sliderInput、renderTable）均保留原英文表述，确保代码可正常运行
• 为提升代码可读性，给变量赋值语句添加了空格，这不会影响代码的实际运行效果

内容的提问来源于stack exchange，提问作者P Initiate