display.general.location <- функция (TrendSource, Abbrev, ISMF) {</p>
if (!length(trendsource)) return()
catn("\\begin{minipage}{\\textwidth}\\vspace{2em}")
title.bar("GENERAL LOCATION AND NEIGHBORHOOD INFO", col = "fsLightBlue")
## FIXME
ForLease <- ForSale <- ""
NearbySign <- with(trendsource, expand.abbrev(GenLocnAndNhoodInfo_ForLeaseSignsAndOrForSaleSignsForSim))
if (NearbySign == "Yes" && ForSale == "Yes") NearbySign <- "Yes, For Sale Signs"
if (NearbySign == "Yes" && ForLease == "Yes") NearbySign <- "Yes, For Lease Signs"
GenLocn <- with(trendsource, c(
"Primary Property Type:" =
expand.abbrev(GenLocnAndNhoodInfo_PrimaryPropType),
"Secondary Property Type:" =
expand.abbrev(GenLocnAndNhoodInfo_SecondaryPropType),
"Property/Business Use:" =
GenLocnAndNhoodInfo_PropUseBusinessType,
"Type of Location:" =
expand.abbrev(GenLocnAndNhoodInfo_TypeOfLocn),
"Neighborhood Vacancy Rate:" =
expand.abbrev(GenLocnAndNhoodInfo_NhoodVacancy),
"Neighborhood/Area Stage:" =
expand.abbrev(GenLocnAndNhoodInfo_NhoodAreaStage),
"Neighborhood/Real Estate Conditions:" =
expand.abbrev(GenLocnAndNhoodInfo_NhoodAreaPropCond),
"Subject vs. Competing Area Properties:" =
expand.abbrev(GenLocnAndNhoodInfo_SubjVsCompetingNhoodProp),
"Surrounding Area Is Predominantly:" =
expand.abbrev(GenLocnAndNhoodInfo_SurroundingAreaIsMostly),
**"Neighborhood/Real Estate Conditions:" =
GenLocnAndNhoodInfo_NhoodRealEstateCond,**
"Neighborhood Market Area Comments:" =
GenLocnAndNhoodInfo_NhoodMarketAreaComments,
"Nearby For-Lease or For-Sale Signs?" = NearbySign,
"Notes:" = GenLocnAndNhoodInfo_ForLeaseSignsAndOrForSaleSignsForSim_Comment
)
)
if (ismf){
GenLocn <- c(GenLocn,
with(trendsource, c(
"Multi-Family Recreation:" = expand.abbrev(MFRecreation),
"Multi-Family Recreation Comment:" = MFRecreationComment
)
)
)
}
GLIgnorant <- GenLocn[c(3:10,12,13)]
push2py(GLIgnorant)
name.value.multicol(GenLocn, 1,push=F)
catn("\\end{minipage}")
}
, когда я пытаюсь удалить вторую Соседство / Условия недвижимости: "= GenLocnAndNhoodInfo_NhoodRealEstateCond, появляется с этим кодом
Ошибка в data.frame (..., check.names = FALSE): имена строк содержат пропущенные значения Вызовы: report ... display.general.location -> push2py -> cbind -> cbind -> data.frame